money.asp

一个免费的绿叶网上书店请大家提宝贵意见 站长的帐号是 用户名：雨丁香 密码：200505 副站长帐号是 用户名： wangli 密码：197207

<%@ LANGUAGE="VBSCRIPT" %>
<!--#INCLUDE file="../include/top.asp" -->
<!--#include file="../include/util.asp" -->
<% dim you,sum

ProductList = Session("ProductList")
If Len(ProductList) = 0 Then 
Response.Redirect "Nothing.htm"
end if
sql="select * from system where used=true"
   set rs=conn.execute(sql)
   guahao=rs("guahao")
   youfei=rs("youfei")
   ems=rs("ems")
   rs.close
user=request("user")
pwd=request("pwd")
you=request("you")
if you=1 then sum=session("sum1")+youfei
if you=2 then sum=session("sum1")+guahao
if you=3 then sum=session("sum1")+ems
sql="select * from member where username='"& request("user") &"'"
rs.open sql,conn,1,2
if rs.eof or rs.bof then
rs.addnew
rs("username")=user
rs("password")=pwd
rs("sex")=request("sex")
rs("yb")=request("yb")
rs("phone")=request("phone")
rs("email")=request("email")
rs("address")=request("address")
rs("money")=sum
rs.update
rs.close
else 
response.write"此用户名已有重复，请修改用户名! <br>"
response.end
end if
set rs=server.createobject("adodb.recordset")
products=split(session("productlist"),",")
sql = "Select bookname,id,memprice From books"
sql = sql & " Where bookid In (" & ProductList & ")"
Set rs = conn.Execute( sql )

%>
<%
while not rs.eof
book=rs("bookname")
num=rs("id")
memprice=rs("memprice")
sql1="select * from dingdan"
 set rs1=server.createobject("adodb.recordset")
 rs1.open sql1,conn,1,2
 rs1.addnew
 rs1("username")=user
 rs1("bookname")=book
rs1("benshu")=cint(session("'"&num&"'"))
 rs1("youji")=you
rs1("memprice")=memprice
 rs1("intime")=now
 rs1.update
 rs1.close
rs.movenext
wend
session.abandon

rs.close
conn.close

%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="219" height="35" background="../images/bg2.gif">&nbsp;</td>
    <td width="559" rowspan="5" bgcolor="#FFFFFF">
<table width="550" border="0" cellspacing="0" cellpadding="3" align="center">
        <tr bgcolor="FFAF30"> 
          <td width="593" height="20" class="p1">　以下为您在购买本商品时的用户名和密码，请牢记，并以此查询订单</td>
        </tr>
        <tr> 
          <td bgcolor="#000000" height="1"></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td><br> <br> <table width="60%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolordark="#000000" bordercolorlight="#FFFFFF">
              <tr> 
                <td width="46%"><font color="#000000" size="2">您 的 用 户 名 为 ：</font></td>
                <td width="54%"><%=user%></td>
              </tr>
              <tr> 
                <td><font size="2">您 的 密 码 是：</font></td>
                <td><%=pwd%></td>
              </tr>
            </table>
            <p align="center"><span class="HML">[ <font color="#000000">凭 以 上 
              信 息 查 询 货 物 ]</font></span><font color="#000000"><br>
              <br>
              如果您要查询货物有关信息，请点击“<a href="../liuyan/server.asp">服务中心</a>”<br>
              <br>
              </font></p></td>
        </tr>
        <tr> 
          <td bgcolor="FFAF30" height="1"></td>
        </tr>
      </table></td>
  </tr>
   <!--#include file="../include/left.htm"-->
</table>
</body>
</html>