check.asp

来自「应用于高等院校党团思想教育」· ASP 代码 · 共 35 行

<%@ Language=VBScript %>
<%

Dim USR(3)
Dim PSW(3)
dim SysNum
SysNum=3
' 上面定义了系统管理员的数量，可以自己修改

USR(1)="SYSOP"
USR(2)="Admin"
USR(3)="root"

PSW(1)="SYSOP"
PSW(2)="ADMIN"
PSW(3)="ROOT"
' 这里定义了管理员的用户名和密码


Username=Request.Form("Username")
Password=Request.Form("Password")

for i=1 to Sysnum
  if username=usr(i) and password=psw(i) then
    Session.Contents("sysop")=True
    exit for
  end if
next

if session.Contents("sysop")="" then
  Response.Redirect "login.asp"
else
  Response.Redirect "main.asp"
end if
%>