logined.asp

来自「提供给大家学习交流,图片制作程序.希望大家提出提意见.」· ASP 代码 · 共 13 行

<%
Dim adm,pwd
adm=Trim(Request("adm"))
pwd=Trim(Request("pwd"))

if adm="123" and pwd="123" then
  Session("admin")="admin"
  Session("admin2")="admin"
  Response.Redirect "admin.asp"
End if

Response.Write "管理员帐号或密码错误！"
%>