|
我在中國(guó)素材網(wǎng)的論壇看到網(wǎng)友問(wèn)怎么簡(jiǎn)單加密，具體實(shí)現(xiàn)可以這樣寫(xiě)：
用asp,Perl忘完了。
先寫(xiě)一個(gè)登陸表單。假設(shè)reg.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>西路登陸頁(yè)面</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>
</FORM>
<p><a href="1.asp">進(jìn)入</a></p>
<p><span lang="en-us"><a href="signout.asp">loginout</a></span></p>
</body>
</html>
再來(lái)一個(gè)登陸驗(yàn)證 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")
%>
成功則進(jìn)入登陸成功.asp頁(yè)面
失敗則返回login.asp
以下注銷(xiāo)頁(yè)面： loginout.asp
<%
Response.Cookies("loginadmin") = ""
Response.Redirect("login.asp")
%>
你也可以用數(shù)據(jù)庫(kù)存儲(chǔ)，當(dāng)然是多用戶(hù)時(shí)候了。簡(jiǎn)單的話(huà)這樣就行了。
|
溫馨提示：喜歡本站的話(huà)，請(qǐng)收藏一下本站！
