<%

　　username=trim(Request.Form("username"))

　　password=trim(Request.Form("password"))

　　sql="Select * FROM admin Where user='"&username&"'"

　　Set rs=Server.CreateObject("adodb.recordset")

　　rs.Open sql,conn,1,1

　　if rs.eof then

　　checksysUser=FALSE

　　else

　　passwd=trim(rs("pwd"))

　　if passwd=password then

　　Session("admin")=username

　　checksysUser=TRUE

　　else

　　checksysUser=FALSE

　　end if

　　End if

　　rs.close

　　conn.close

　　if checksysUser=true then

　　Response.Redirect("main.asp")

　　else

　　errmsg="<font color=#FF0000><b>用户名输入有误，请重新输入！</b></font>"

　　end if

　　%>