cklogin.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="connshop.asp"-->
<!--#include file="md5.asp"-->
<%
user_id=replace(request.form("user_id"), "'","’")
user_password=md5(replace(request.form("user_password"), "'","’"))
verifycode	= request.form("verifycode")
if user_id="" or user_password="" then
        response.write"<SCRIPT language=JavaScript>alert('请填写您的帐号或密码！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if verifycode <> cstr(Session("verifycode"))then
        response.Write "<script LANGUAGE='javascript'>alert('登录失败！验证码错误！');history.go(-1); </script>"
response.end
end if
sql="select * from 56770_user where user_id='"&user_id&"' and user_password='"&user_password&"'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 3, 3
if rs.eof or rs.bof then
        response.write"<SCRIPT language=JavaScript>alert('没有您的注册信息！请核对信息！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
session("user_id")=rs("user_id")
session("user_grade")=rs("user_grade")
rs("lastlogintime")=now()
rs("lastloginIP")=request.servervariables("remote_addr")
rs("logins")=rs("logins")+1
rs.update
rs.close
set rs=nothing
if session("oldUrl")="" then
        response.redirect "./"
else
        response.redirect session("oldUrl")
end if
'url=request("url")
'response.redirect url
'response.end
%>