<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
dim uid ,upwd
uid=trim(Request.Form("uid"))
upwd=trim(Request.Form("pwd"))

set rs=server.createobject("adodb.recordset")
sqltext="select * from Manage_User where UserName='" & uid & "' and PassWord='" & upwd & "'"
rs.open sqltext,conn,1,1


'查找數(shù)據(jù)庫(kù)，檢查用戶名是否存在
if rs.recordcount = "'"then 
     Response.Redirect "loginsb.asp?msg=您輸入了錯(cuò)誤的帳號(hào)或口令，請(qǐng)?jiān)俅屋斎耄?quot; 
	 response.end
end if

if rs.recordcount >= 1 then 
      response.cookies("adminok")=true
      Response.Redirect "default.asp"   
 	  response.end
      rs.close
	else
	 Response.Redirect "loginsb.asp?msg=您輸入了錯(cuò)誤的帳號(hào)或口令，請(qǐng)?jiān)俅屋斎耄?quot; 
	 response.end
     rs.close
end if
%>