chklogin.asp

vb的一个事例,简单了一点,但实用的一个电子超市系统

<%
dim sqlo
dim rso
dim filtersql
dim conn   
dim connstr
on error resume next
connstr="DBQ="+server.mappath("shopping.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 

dim sql
dim rs
dim seekerrs
dim founduser
dim username
dim companyid
dim email
dim errmsg
dim founderr
dim ddh
founderr=false
FoundUser=false
username=trim(request.form("username"))
email=trim(Request.Form("email"))
ddh=trim(Request.Form("ddh"))
if username="" then
   response.redirect "ddcx.asp?errid=yes"
end if
if email="" then
     response.redirect "ddcx.asp?errid=yes"
end if
if ddh="" then
     response.redirect "ddcx.asp?errid=yes"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from Orders where 订单ID="&ddh
rs.open sql,conn,1,1
if not rs.eof then
 if username=rs("olastname") then
   if email=rs("oemail") then
      response.cookies("loginddcx")=true
      response.redirect "ddlb.asp?oid="&ddh
   else
     response.redirect "ddcx.asp?errid=yes"
   end if 
 else
     response.redirect "ddcx.asp?errid=yes"
 end if
else
     response.redirect "ddcx.asp?errid=yes"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing

%>