📄 register.asp

📁 线上售货网管理模组
💻 ASP
字号:
<HTML>
<HEAD>
<TITLE>会员登录</TITLE>
<SCRIPT LANGUAGE="JavaScript">
function CreateWindow()
{
msgWindow=window.open("join.asp","displayWindow","toolbar=no,width=620,height=380,directories=no,status=no,scrollbars=yes,resize=no,menubar=no")
}
</SCRIPT>
<script language="JavaScript" src="check.js"></script>
</HEAD>
<BODY bgcolor=cfe3f2>
<center>
<H2><FONT color=blue>欢迎光顾西风购物网</FONT></H2>
<%
Dim arrAreana, arrDatano, arrDatana, arrPrice, arrQty, arrDate

Sub Assign_session(i)
  '目的：Assign responding session variables
  arrAreana = "arrAreana." & i
  arrdatano = "arrDatano." & i
  arrdatana = "arrDatana." & i 
  arrPrice = "arrPrice." & i
  arrQty = "arrQty." & i 
  arrDate = "arrDate." & i
End Sub

Sub Display_Result()
  Dim total_o, total_p, i, dis_price  
  Response.Write "<h3>您订购的物品为：</h3>"
  total_p = 0   '汇总书款
  Response.Write "<table border=0 width='90%'>"
  For i = 1 to Session("purNO")
    Assign_session i
      '
    total_o = total_o + Session(arrPrice) * Session(arrQty)
    Response.Write "<tr><td>"&I&"</td>"
    Response.Write "<td>"&Session(arrDatana)&"</td>"
    Response.Write "<td align=right>"&Session(arrPrice)&"×"&Session(arrQty)&"="&Session(arrPrice)*Session(arrQty)&"元</td></tr>"
  Next
  Total_P=Total_O*.9+100
  Total_O=Total_O+100
  Response.Write "<tr><td colspan=3><font color=000088><b>全部金额："&total_o&"元"
  If session("members")<>"" Then
    Response.Write "<font color='red'>【会员价"&total_p&"元】</font>"
  End If
  Response.Write "(含邮局代收费100元)</b></font></td></tr>"
  Response.Write "</table><br>"
End Sub

Call Display_Result
If session("members")<>"" Then
%>
<FORM NAME="write_sent" action="write_sent.asp" method="post">
<INPUT TYPE=Submit value="送出订单">
</form>
<% Else %>
<table border=0 width=90%><tr><td><font size=2>会员九折优待，请在<a href=#1>会员输入区</a>输入帐号及密码；非会员请到<a href=#2>非会员区</a>，正确输入您的基本资料，在按下「登录资料」钮後，系统随即登录资料，并 E-mail 给您确认（请务必回信确认，以方便作业）！累计购物超过3000元，系统会自动登录为会员，并将密码 E-mail 给您。（如果您的伊媚儿没填错的话）</font></td></tr></table><HR></center>
<a name=1><H2>会员输入区</H2>
<FORM NAME="Check_mem" action="mwdata.asp" method="post" onSubmit="return check_mem()">
<ul>
<li>帐号：
<INPUT name="cname" size="20" value="<%=Request.cookies("cname")%>"><BR>
<li>密码：
<INPUT name="pwd" size="10"><BR>
<INPUT TYPE=Submit value="填妥送出">
<INPUT TYPE=reset value="清除重填">
</FORM>
</ul>
<hr>
<a name=2><H2>非会员登录</H2>
<FORM NAME="Check_n" action="nwdata.asp" method="post" onSubmit="return check_n()">
<ul>
<li>会员署名： 
<INPUT value="<%= Request.cookies("cname") %>"
 name=cname size="20"><BR>
<li>会员性别：
<INPUT name=sex type=radio CHECKED value=M>男 
<INPUT name=sex type=radio value=F>女<BR>
<li>电子信箱：<INPUT value="<%= Request.cookies("email") %>"
 name=email size="50"><BR>
<li>通信住址一<INPUT value="<%= Request.cookies("address1") %>"
 name=address1 size="50"><BR>
<li>通信住址二<INPUT value="<%= Request.cookies("address2") %>"
 name=address2 size="50"><BR>
<li>联络电话：<INPUT value="<%= Request.cookies("tel1") %>"
 name=tel1 size="20"><BR>
<li>传真电讯：<INPUT value="<%= Request.cookies("tel2") %>"
 name=tel2 size="20"><BR>
<INPUT TYPE=Submit value="送出订阅">
<INPUT TYPE=reset value="清除重填"></P>
</FORM>
</ul>
<HR>
<% End If %>
</center>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -