cklogin.asp

来自「实现http的多项功能」· ASP 代码 · 共 25 行

<%
admin_name="dangban"  '用户名
admin_pass="1004" '密码 

username=trim(request.Form("username"))
password=trim(request.form("password"))

if username="" then 
response.write"<SCRIPT language=JavaScript>alert('用户名不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if

if password="" then
response.write"<SCRIPT language=JavaScript>alert('密码不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if

if username=admin_name and password=admin_pass then '修改密码
session("admin")="smallstick"
response.Redirect "admin.asp"
else
response.write"<SCRIPT language=JavaScript>alert('对不起，用户名或密码错误！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
%>