gusucode.com > ASP+ACCESS音乐网站建设设计(源代码+论文+开题报告+答辩PPT+外 > ASP+ACCESS音乐网站建设设计(源代码+论文+开题报告+答辩PPT+外文翻译)\音乐网站设计\BBS\checkusersy.asp
<% Response.Buffer=True %> <!--#include file="dbconn.inc"--> <% name=trim(request("name")) passwd=request("passwd") yxq=request("yxq") set rs=server.createobject("adodb.recordset") sql="select * from user_table where username='"&name&"' and passwd='"&passwd&"'" rs.open sql,conn,3,3 if rs.bof or rs.eof then response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码,请重新输入!');" response.write"javascript:history.go(-1)</SCRIPT>" else rs("lastlogindate")=now() rs.update response.cookies("username")=rs("username") if yxq="1" then response.cookies("username").expires=date()+1 else if yxq="2" then response.cookies("username").expires=date()+7 else response.cookies("username").expires=date()+30 end if end if response.Redirect "index.asp" end if %>