admin_chklogin.asp

这是一个非常好的留言版程序

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

 Response.Buffer=True

 dim Rs,sql
 dim verifycode,verifycode2

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


 if verifycode<>session("SNCode") then
 	response.write"<SCRIPT language=JavaScript>alert('您输入的验证码不正确。');"
	response.write"javascript:history.go(-1);</SCRIPT>"
 end if

 Set Rs=Server.CreateObject("ADODB.RECORDSET")
 
 Sql="Select * from admin where username='" & replace(Request.form("yhm"),"'","") & "' and password='" & md5(replace(Request.form("mm"),"'",""),16) & "'"
 Rs.Open sql,Conn,1,1


 If Rs.EOF AND Rs.BOF then
 	
 	Session.Abandon
  	response.write"<SCRIPT language=JavaScript>alert('您输入的用户名或密码不正确，\n请返回重新输入,谢谢！');"
	response.write"javascript:history.go(-1);</SCRIPT>"
	response.end 
 	
 Else
 	
 	conn.execute("update admin set LastloginIP='"&Request.ServerVariables("REMOTE_ADDR")&"' where username='"&Rs("username")&"'")
 	Session("AdminName")=Rs("username")
 	response.redirect "Admin_Index.asp"
 	response.end
 	

 End if

Rs.close
call closeconn()
session.timeout=60

 
%>