logined.asp

提供给大家学习交流,图片制作程序.希望大家提出提意见.

<%
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 "管理员帐号或密码错误！"
%>