adminlog.asp

来自「动态网站制作,担任源码的. 本站不保证所提供软件或程序的完整性和安全性。 ║」· ASP 代码 · 共 21 行

<title>不归作品</title><%@ Language=VBScript %>
<%
Dim AdminId
Dim AdmimPassWord
Dim SendFlag
SendFlag=0
AdminId=Request("AdminID")
AdminPassWord=TRim(Request("password"))
Session("AdminLogged")=0
IF  isempty(AdminId) or isempty(AdminPassWord) THEN
	SendFlag=2
ELSE
	IF AdminId="admin" AND AdminPassWord="admin888" THEN
		SendFlag=1
		Session("AdminLogged")=1
	ELSE
		SendFlag=3
	END IF
END IF
Response.Write "&&SendFlag="&SendFlag
%>