login.asp

一套完整的在线购物系统

<!--#include file="inc/config.asp" -->
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/md5.asp" -->
<%
dim username,password,rs
username=trim(request("username"))
password=md5(trim(request("password")),16)
set rs=conn.execute("select * from userinfo where username='"&username&"'")
if rs.eof and rs.bof then
  response.write"<script>alert('该用户名不存在，请核对正确后重新登陆！');"
  response.write"history.go(-1);</script>"
else
  if rs("userpassword")<>password then
    response.write"<script>alert('密码输入不正确，请核对正确后重新登陆！');"
    response.write"history.go(-1);</script>"
  else
    session("username")=username
	rs.close
	set rs=nothing
    response.redirect"index.asp"
  end if
end if
%>