key.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<%
if CStr(Request.Cookies("KEY")) = "" then
	If CStr(Request.Cookies("MM_ADMINNAME")) = "" Then
	Response.Redirect("login.asp")
	else
		set MM_rsUser = Server.CreateObject("ADODB.Recordset")
		MM_rsUser.ActiveConnection = MM_ECONN_STRING
		MM_rsUser.Source = "SELECT * FROM S_Admin WHERE AdminName='" & Replace(Request.Cookies("MM_ADMINNAME"),"'","''") &"' AND AdminPws='" & Replace(Request.Cookies("MM_ADMINPASS"),"'","''") & "'"
		MM_rsUser.CursorType = 0
		MM_rsUser.CursorLocation = 2
		MM_rsUser.LockType = 3
		MM_rsUser.Open
		If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
		Response.Cookies("KEY") = "ACMS"
		Response.Cookies("MM_LEVEL")=(MM_rsUser.Fields.Item("AdminLevel").Value)
		end if
	end if
end if
if InStr(CStr(Request.Cookies("MM_LEVEL")),MM_Author) = 0 then
	Response.Redirect("login.asp")
end if
%>