您现在的位置: 无忧电子商务网 >> 信息学院 >> 程序开发 >> asp >> 正文

ASP实现最简单的加密

作者:作者:未…    信息学院来源:网络收集    点击数:    更新时间:2006-8-27 我要参与讨论

  我在中国素材网的论坛看到网友问怎么简单加密,具体实现可以这样写:

用asp,Perl忘完了。

先写一个登陆表单。假设reg.asp

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>西路登陆页面</title>
</head>
<body>
<FORM action="pass.asp" method="post">
<table cellpadding=2 cellspacing=0 border=0>
<tr>
<td><font face="arial,helvetica" size="2"><b>Username</b></font></td>
<td><input type="text" name="username" size="20"></td>
</tr>
<tr>
<td><font face="arial,helvetica" size="2"><b>Password</b></font></td>
<td><input type="password" name="password" size="20"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Log In"></td>
</tr>
</table>
</FORM>
<p><a href="1.asp">进入</a></p>
<p><span lang="en-us"><a href="signout.asp">loginout</a></span></p>

</body>

</html>

再来一个登陆验证 pass.asp

<%
Option Explicit
Dim username, password

username = Request.FORM("username")
password = Request.FORM("password")

'Change the username and password values below change the login
if (username = "admin") and (password = "admin") then
Response.Cookies("loginadmin") = "True"
Response.Redirect("登陆成功.asp")
end if

Response.Redirect("login.asp")
%>
成功则进入登陆成功.asp页面
失败则返回login.asp

以下注销页面: loginout.asp

<%
Response.Cookies("loginadmin") = ""
Response.Redirect("login.asp")
%>


你也可以用数据库存储,当然是多用户时候了。简单的话这样就行了。

在google里搜索更多ASP实现最简单的加密

Google
Web www.51ec.org
  • 上一篇信息学院:

  • 下一篇信息学院:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    我来说两句 对此文章发表了评论
      昵 称: *必填    ·注册用户·
      评 分: 1分 2分 3分 4分 5分     严禁发表危害国家安全、政治、黄色淫秽等内容的评论,用户需对自己在使用本网站服务过程中的行为承担法律责任。本站管理员有权保留或删除评论内容,评论内容只代表机友个人观点,与本网站立场无关。  
    评 论
    内 容

     
    评论列表 (最新 评论仅限网友观点!)

    供求信息




    | 设为首页 | 加入收藏 | 关于我们 | 广告服务 | 联系方式 | 友情链接 | 版权申明