不用数据库的单文件登陆页面,适合所有网站。
作者:wang 日期:2009-10-12
login.asp 登陆页面
<%
if session("asai")<>"loginok" then
dim user,pwd
user="admin" ‘登陆的用户名设置
pwd="admintg" ’登陆的密码
if request.Form("name")=user and request.Form("pwd")=pwd then
session("asai")="loginok"
session.Timeout=6000
Response.Redirect "adminadd.asp"
else
response.Write""
end if
else
Response.Redirect "adminadd.asp"
end if
%>
log.asp 加在管理页面的顶部
<%
if session("asai")<>"loginok" then
Response.Redirect "login.asp"
end if
%>
<%
if session("asai")<>"loginok" then
dim user,pwd
user="admin" ‘登陆的用户名设置
pwd="admintg" ’登陆的密码
if request.Form("name")=user and request.Form("pwd")=pwd then
session("asai")="loginok"
session.Timeout=6000
Response.Redirect "adminadd.asp"
else
response.Write""
end if
else
Response.Redirect "adminadd.asp"
end if
%>
log.asp 加在管理页面的顶部
<%
if session("asai")<>"loginok" then
Response.Redirect "login.asp"
end if
%>
评论: 0 | 引用: 0 | 查看次数: 2783
发表评论