最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用ASP为你的站点加密
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
首先,你需要制作登录页面,在html中加入form,并设为自发送页
〈form name=″login″ action=″default.ASP″ method=″post″ target=″―top″〉
action后接本页url,这样即使用户登录错误,在本页即获提示,而无须再返回前一页登录。在表单中加入
〈input name=″uid″ size=″10″maxlength=″10″ style=″ ″〉
〈input name=″pwd″ type=″password″ size=″10″ maxlength=″10″〉
完成html后,在页首填加程序代码如下:
〈% ′send customer direct to main page if already logged in
if not isempty(session(″cust―id″)) and len(session(″cust―id″))〉0 then response.redirect(″navigation/dashbrd.ASP″)
′在此添入你真正的主页url
end if
′set flags
blogin = false
berror = false
′check blank entries
if isempty(request(″uid″)) or len(request(″uid″)) = 0 or isempty(request(″pwd″)) or len(request(″pwd″)) = 0 then
′need to log in
blogin = true
else
′check user credentials against db
… ′检验你的数据库保存密码表中是否有该用户
′此处放入连接数据库代码
′其sql如下 ″select * from customer where cust―id=′ ″ & request(″uid″) & ″ ′ and ′cust―pwd=′ ″ & request(″pwd″) & ″ ′ ″
′其中request(″uid″)和request(″pwd″) 为本页html中表单中的用户名和密码的text
gbfound = false
if not rscust.bof and not rscust.eof then
gbfound = true
end if
if gbfound then
′record useful customer info in session variables
session(″cust―id″) = rscust.fields(″cust―id″)
′ 此项为数据库中用户名
session(″cust―pwd″) = rscust.fields(″cust―pwd″) ′此项为数据库中用户密码
session(″power″) = rscust.fields(″power″) ′此项为数据库中用户权限[可选]
′update last login time [可选]
-
上一个: 一个分离中文英文的函数。
-
下一个: 磁盘ID在ASP源码防拷贝中的应用(z)
相关文章
- asp 仿md5加密算法 07-14
- SHA256 加密的ASP实现 01-12
- 在ASP中使用MD5加密 01-12
- ASP原码加密工具介绍 01-12
- MD5加密算法(asp) 01-12
- VBS 批量Ping的项目讲解 09-19