relogincheck.asp

一套很早的多用户电子商务程序

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
refe=Request("refe")
Name = Request.form("uid")
Pwd  = Request.form("pwd")
Name=replace(Name,"'","k")
Name=replace(Name,",","k")
Pwd=replace(Pwd,"'","k")
Pwd=replace(Pwd,",","k")
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.write"<script>alert('你已成功登录！祝购物愉快！');window.location.href='../"&refe&"'</script>"
  else
  Response.Write ("<script>alert('登录失败，请输入正确帐号和密码重新登录！');javascript:history.back(1)</script>")
  End if  
rs.close
conn.close
%>