nwdata.asp

线上售货网管理模组

<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
email=request("email")
pwd=request("pwd")
sex=request("sex")
address1=request("address1")
Dim arrAreana, arrDatano, arrDatana, arrPrice, arrQty, arrDate, OrderContent
'------------------- Create ADO Connection --------------------
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from members where cname='"&cname&"' And pwd='"&pwd&"'"
rs.open sqlstr,conn,3,2
If rs.recordcount<>0 Then
  response.write "<br><center><hr><h1>Sorry~~~<p>"
  response.write "帐号、密码输入重复，请重新输入</p></h1><hr>"
  response.write "<a href='javascript:history.back()'>回前一画面</a></center>"
  rs.close
  response.End
End If
'------------------------ Write cookies ---------------------------
'Cookies("cname") 的有效期限为一个月
Response.Cookies("cname") = cname
Response.Cookies("cname").Expires = DateAdd("m", 1, Date)
rs.close
Call Display_Result

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
  total_p=0
  OrderContent="<table border=0 width='90%'>"
  For i = 1 to Session("purNO")
    Assign_session i
      '
    total_o = total_o + Session(arrPrice) * Session(arrQty)
    OrderContent=OrderContent&"<tr><td>"&I&"</td>"
    OrderContent=OrderContent&"<td>"&Session(arrDatana)&"</td>"
    OrderContent=OrderContent&"<td align=right>"&Session(arrPrice)&"×"&Session(arrQty)&"="&Session(arrPrice)*Session(arrQty)&"元</td></tr>"
  Next
  Total_P=Total_O*.9+100
  OrderContent=OrderContent&"<tr><td colspan=3><font color=000088><b>全部金额："&total_o&"元"
  OrderContent=OrderContent&"<font color=red>【会员价"&total_p&"元】</font>"
  OrderContent=OrderContent&"(含邮局代收费100元)</b></font></td></tr>"
  OrderContent=OrderContent&"</table>"
End Sub

Call Display_Result
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("CD.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from ordermem"
rs.open sqlstr,conn,3,2
rs.AddNew
rs("cname")=cname
rs("tel")=request("tel1")&"<br>"&request("tel2")
rs("address1")=address1
rs("email")=email
rs("OrderContent")=OrderContent
rs.Update
rs.close
conn.close
Call Send_ASPEMail
response.write "<center><font size=6>订单已写入</font><br><br>"
response.write "<table border=0 width='75%'><tr><td><font size=3><font color=000088>"&cname&"</font> "&sex&"谢谢您的光顾！<br><br>您的通讯地址是："&address1&"<br>本公司将在三至五日内，将您所订购的货品送达，如果您的通信地址有更改，请务必<a href=mailto:[e-mail]>来函</a>告知。再次感谢您！</font></td></tr></table>"

Sub Send_ASPEMail
  Dim objMail
  Set objMail = Server.CreateObject("Persits.MailSender")
  ObjMail.isHTML = True
  ObjMail.Host = "ms6.hinet.net"
  ObjMail.From = "[e-mail]"
  ObjMail.FromName = "Chome 售物网订购单自动回复系统"
  ObjMail.AddAddress "[e-mail]"
  ObjMail.AddBCC email
  ObjMail.Subject = "您的订购单"
  ObjMail.Body = OrderContent
  ObjMail.Send
  Set ObjMail=Nothing
End Sub
%>