adminlog.asp

flash留言本源代码

<%@ 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="mms315" AND AdminPassWord="19800713" THEN
		SendFlag=1
		Session("AdminLogged")=1
	ELSE
		SendFlag=3
	END IF
END IF
Response.Write "&&SendFlag="&SendFlag
%>