hyjz.asp

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

<%@ LANGUAGE="VBSCRIPT" %>
<!--#INCLUDE file="../include/top.asp" -->
<!--#include file="../include/util.asp" -->
<% dim sum1,user,you,pwd
sum1=request("sum1")
you=request("you")
if you=1 then sum=sum1+8
if you=2 then sum=sum1+10
if you=3 then sum=sum1+22
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then 
Response.Redirect "Nothing.htm"
end if
sql="select * from member where username='"&request("username")&"' and password='"&request("pwd")&"' "
rs.open sql,conn,1,2
if rs.eof and rs.bof then
  response.write"系统：您非本站会员，请先加入会员。"
  response.write"<br>"
  response.write"<br>"
  response.write"<a href='javascript:window.history.go(-1)'>上一页</a>"
  rs.close
  conn.close
  response.end
else 
  user=rs("username")
  pwd=rs("password")
  rs("money")=rs("money")+sum1
  rs.update
  rs.close
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"><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>
              </font></p></td>
        </tr>
        <tr> 
          <td bgcolor="FFAF30" height="1"></td>
        </tr>
      </table></td>
  </tr>
  <!--#include file="../include/left.htm"-->
</table>
</body>
</html>