login.asp

一个简单的网上购物系统。ASP的源码！ 包括数据库的链接。

<!--#include file="dbcon.asp"-->
<%
dim uname, upass 
uname=request.form("uname")
upass=request.form("upass")

SQL="select * from users where uname='" & uname & "' and upass='" & upass & "'"

CN.Open
RS.Open SQL,CN

if RS.EOF then
  response.Write("没有用户")
  Response.Redirect("default.asp")
else
  Response.Write("用户登录")
  Session("login")=1
  Session("rname")=RS(3)
  Session("uid")=RS(0)
  Response.Redirect("default.asp")
end if

RS.Close
%>