userpass.asp

asp游戏点卡销售系统,基本东西,代码+实现

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim rs
dim sql
userid=replace(trim(request("userid")),"'","")
password=replace(trim(Request("password")),"'","")
GetCode=request("GetCode")
valicode=Session("GetCode")
If request("GetCode")="" or isnull(request("GetCode")) then
response.write"<script language='javascript'>alert('请填写验证码')</script>"
response.write"<script language='javascript'>window.location='index.asp'</script>"
response.end
end if
if int(request("GetCode"))<>int(Session("GetCode")) then
response.write"<script language='javascript'>alert('验证码填写错误')</script>"
response.write"<script language='javascript'>window.location='index.asp'</script>"
response.end
end if



sql="select * from users where userid='"&userid&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
  
  response.write"<script>alert('用户名或密码错误！');history.back();</Script>"
  response.end
end if
if md5(password)<>rs("password") then 
  response.write"<script>alert('用户名或密码错误！');history.back();</Script>"
  response.end
end if
session("userid")=trim(rs("userid"))
session("oklook")=trim(rs("oklook"))


  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  response.redirect "cuser.asp"
  
 %>