chkuser_login.asp

一个较好的网上购物系统 是基于ASP的多用户网上商城

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
if request("username")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('用户名不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
if request("password")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('密码不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

username=request("username")
password=Request("password")

sql="select * from user_info where user_name='"&username&"' and user_password='"&password&"' "
set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('用户名或密码不正确!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
else
session("user_id")=rs("user_id")
session("user_name")=rs("user_name")
session("user_password")=rs("user_password")
session("user_email")=rs("user_email")
session("user_question")=rs("user_question")
session("user_answer")=rs("user_answer")
session("user_qq")=rs("user_qq")
session("user_realname")=rs("user_realname")
session("user_sex")=rs("user_sex")
session("shop_name")=rs("shop_name")
session("shop_content")=rs("shop_content")
session("shop_address")=rs("shop_address")
session("shop_phone")=rs("shop_phone")
response.redirect "user.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>