relogincheck.asp

一个非常好的旅游网站程序.

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
Name = Request.form("uid")
Pwd  = Request.form("pwd")
set Rs = Server.CreateObject("ADODB.recordset")
sql="select * from RegUser where UserId='"&Name&"'and PassWD='"&Pwd&"'"
rs.open sql,conn,3,3
IF  rs.RecordCount >=1 then
'更新最后访问时间和访问次数
rs("lastTime")=now    '时间
rs("Look_Count")=rs("Look_Count")+1
rs.update


 Session("LoginSuccess")=rs("UserId")
      response.redirect "PayMentDetail.asp"
   else
      response.redirect "../messagebox.asp?msg=用户登录失败，请输入正确帐号和密码重新登录！"
   End if  
rs.close
conn.close
%>


%>