logon.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../../sql.asp" -->
<!-- #include file="../../asp/md5.asp" -->
<%
    HY=Request.form("HYname")
    HYpwd=md5(Request.form("HYpwd"))
	
    set rs=server.CreateObject("ADODB.Recordset")
    SQL="select * from HuiYuan where HYname='"&HY&"' and HYpwd='"&HYpwd&"'"
    rs.open SQL,conn,2,3
	
      if not rs.eof then
	    if rs("HYquanXian") = 10 then 
		  session("adminHY")=HY
		  session("type_admin")=10
		  Response.Redirect("adminHYinfo.asp")
		end if
	  else
		Response.Redirect("Error.asp")    
	  end if	  
  rs.close
  set rs=Nothing
  CloseDataConn
%>