ASP實現最簡單的加密

來源:互聯網
上載者:User
加密 我在中國素材網的論壇看到網友問怎麼簡單加密,具體實現可以這樣寫:

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


你也可以用資料庫儲存,當然是多使用者時候了。簡單的話這樣就行了。



相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.