ASP实现最简单的加密。

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

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

用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")

%>

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航