admin.asp

WAP整站源码,可以直接用在手机网站上.

<!--#Include File="WapConfig/WapHeader.asp"-->
<%
If Lcase(Request("Name"))=Lcase(AdminName) And Lcase(Request("Pwd"))=Lcase(AdminPwd) Then '避免区分大小写。
Session("IsAdmin")=True
Else
Session("IsAdmin")=False
End If
'注销管理员身份。
If Request("ToDo")="Exit" Then 
Session("IsAdmin")=False
Response.Redirect Wap.WapPath & "MessageList.asp"
End If
%>
<%
If Session("IsAdmin")=True Then
Wap.WriteRow Wap.A("","MessageList.asp","进入管理")
Wap.WriteRow Wap.A("",Wap.ThisFileName & "?ToDo=Exit","注销登录")
Else
'以下为文件正文。
Wap.WriteRow Wap.TextIn("请输入姓名","text","Name","Admin","姓名")
Wap.WriteRow Wap.TextIn("请输入密码","password","Pwd","","密码")
Wap.WriteRow Wap.AnchorGo("确定提交",Wap.ThisFileName,"Name Pwd","Name Pwd"," ","post")
End If
%>
<!--#Include File="WapConfig/WapFooter.asp"-->