<%@ LANGUAGE = VBScript %>
<!-- #include virtual = "/include/myopen.asp" -->
<%
	set RS = Server.CreateObject("ADODB.RecordSet")
	set RS1 = Server.CreateObject("ADODB.RecordSet")
%>
<%
	IF Request.Form ("USER_name") <> "" AND Request.Form ("user_PASS") <> "" THEN
		SQL = "SELECT * FROM manage WHERE user_name = '" & Request.Form ("USER_name") & "' AND user_pass = '" & Request.Form ("user_pass") & "'"
		RS.Open SQL,CONN,adOpenKeyset ,adLockReadOnly
		
			Response.Cookies ("Admin_name") = Request.Form ("USER_name")
			Response.Cookies ("Admin_PASS") = Request.Form ("user_PASS")
			Response.Redirect ("default.ASP")
		
	ELSE
	'用户输入的不完整
	Response.Redirect ("Admin_Login.ASP")
	END IF
%>