login.asp

他是一个asp+access的多用户留言板！

<!-- #include file="密码验证.asp" -->

<%un=request.form("NOIuser")

pa=request.form("NOIpass")
title="请您登陆 --NOIP2006"
%>



<!-- #include file="conn.asp" -->





<% 
   
   
   set rs = server.CreateObject("ADODB.Recordset")
   rs.open "SELECT * FROM NOIP选手 WHERE id=0" & Request.Cookies("NOIPid") ,conn ,3,3
   if not rs.eof then
   
   NOIPUserName =rs("姓名")
   NOIPUserID=rs("id")
   NOIPUserTit=rs("头衔")  
   NOIPUserMD5=rs("MD5密码")
   
   if Request.QueryString("menu")="out" then 
   Response.Clear
   response.Cookies("NOIPpass")=""
   response.Cookies("NOIPid")=""
   response.Cookies("NOIPuser")=""



   rs.update
   rs.close
   set rs=nothing
   
 
   conn.close
   set conn=nothing
   
   %>
 <SCRIPT language=vbscript>
  top.location.reload
  </SCRIPT>
  sdddddd
  <%
   Response.End 
   
   end if
   
   
   
   rs.close
   set rs=nothing
   
   end if
   if NOIPUserMD5=md5(Request.Cookies("NOIPpass")) then   
   
   %>
   <!-- #include file="head.asp" -->

   <table width="333" border="0" cellspacing="1" cellpadding="2" align="center" class=a2 id="table6">
   您已经登陆成功，您的用户名是：<%=Request.Cookies("NOIPuser") %>如果要退出，请点击<a href="login.asp?menu=out">这里</a>
   </table>
   <!-- #include file="foot.asp" -->
   
  
   <% 
   
   Response.End 
   end if
   
   


if   un<> "" and pa<>""  then

         set rs = server.CreateObject("ADODB.Recordset")
         rs.open "SELECT * FROM NOIP选手 WHERE 姓名 = " & """" &  un & """",conn ,3,3
         if err then   Response.end

         if rs.eof then Response.Redirect "login.asp?class=" & classnum
         
         if rs("MD5密码")=md5(pa) then
            rs("登陆次数")=rs("登陆次数")+1
            Response.Clear
            response.Cookies("NOIPpass")=pa
            response.Cookies("NOIPuser")=rs("姓名")
                                           
            response.Cookies("NOIPid")=rs("id")
            rs.update
            rs.close
            Response.Redirect "index.asp?class="& classnum
         
            else
            Response.Write  "<script language=vbscript> self.alert("&""""&"密码错误"&""""&")</script>"
            Response.Write "<script language=vbscript> history.back </script>"
          end if
       
         set rs=nothing
else
%>
<!-- #include file="head.asp" -->
<script language=VBScript>

if instr(1 , top.location , "index.asp" )=0 then top.location="index.asp?url=" & replace(self.location ,"&","%26")

</script>

<table width="333" border="0" cellspacing="1" cellpadding="2" align="center" class=a2 id="table6">


<form action="login.asp?class=<%=classnum%>" method="POST" id=form1 name=form1>
<tr>
<td width="328" height="25" align="center" class=a1>
登录留言板</td></tr><tr>
<td height="19" width="328" valign="top" align="center" class=a3>
&nbsp;用户名称: <input type="text" size="20" value name="NOIuser">
<br>
&nbsp;用户密码: <input type="password" size="20" value name="NOIpass">&nbsp;<br>

<input type="submit" value=" 登录 " name="Submit1">　<input type="reset" value=" 取消 " name="Submit"> </td></tr> <input type="hidden" name="do" value="login"> </form></table>
<%end if%><!-- #include file="foot.asp" -->