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

用asp,Perl忘完了。

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

进入

loginout

再来一个登陆验证 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")

%>

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