check.asp

都乐电子书店!!! !!! !!! !1

<%

'主函'''''''''''''''''''''''''''''''''''''''''''''''''''''''
if session("username")="" then
%>
<!--#include file="default.html"-->
<%
else
check
end if



sub check
set conn = server.CreateObject ("ADODB.Connection")
    conn.Open application("dtbase"),application("user"),application("pwd")
    
set rs_record = server.CreateObject ("ADODB.Recordset")
    rs_record.Open "select * from shoppedsignal where userid = '"&Session("userid")&"'",conn,3
    
if rs_record.EOF then
   Response.Write "你目前还没有在我们书店买书！"
else       
     rs_recordCount = rs_record.RecordCount
     Pagesize = 10 
	 Page= CInt(Request("Page"))
	 rs_record.pagesize = Pagesize	 
     if Page < 1 then Page=1
	 if page > rs_record.pagecount then page= rs_record.Pagecount 
	 rs_record.AbsolutePage = page 
    
'显示购买信息.................................................
    
    Response.Write "<div align=center><br><font color=red>"&Session("username")&",</font><font color=blue> 你好！你在我们都乐书店买了 <font color=red>"&rs_recordCount&"</font> 次书，谢谢你的光顾，以下是你的详细购买纪录</font><br>"
'显示分页
for m = 1 to rs_record.Pagecount
    if m = page then 
       Response.Write "["& m &"]"
    else
       Response.Write "<a href=user.asp?job=check&page="&m&">"& m &"</a>"
    end if
next 
Response.Write "<br>每页显示10个纪录，共有"&rs_record.Pagecount&"页<br></div>"  
 
   
    for i = 1 to Pagesize
   
  Response.Write "<hr size=1 color=blue>"      
  Response.Write "购书时间："&rs_record("shoptime")&"<br>"
  Response.Write "取书方式："
                 select case rs_record("takebook")
                 case "0" 
                      Response.Write "送书上门<br>"
                 case "1"
                      Response.Write "邮寄汇款<br>"
                 case "2"
                      Response.Write "自行取书<br>"          
                 end select
 if rs_record("needs") <> "" then                
    Response.Write "其余要求："&rs_record("needs")&"<br>" 
 end if               
 Response.Write "你购买的书："     

'初始化总价..............................................
 totalprice = 0  
 '.......................................................
 
      sql = "select * from shoppedbook where shoppedsignalid = '"&rs_record("shoppedsignalid")&"'"
      set rs = server.CreateObject ("ADODB.Recordset")
          rs.Open sql,conn,3
          
  Response.Write "<table width='90%' align=center>"        
    for n = 1 to rs.RecordCount
    set rs_book = server.CreateObject ("ADODB.Recordset")
        rs_book.Open "select bookname,unitprice,publish from books where bookid = '"&rs("bookid")&"'",conn,3
        
           Response.Write "<tr>"
           Response.Write "<td><a href=display.asp?bookid="&rs("bookid")&">"&rs_book("bookname")&"</a></td>"
           Response.Write "<td>"&rs_book("publish")&"</td>"  
           Response.Write "<td>单价： "&rs_book("unitprice")&"</td>"
           Response.Write "<td>数量： "&rs("num")&"</td>"
           price = rs("num")*rs_book("unitprice")
           Response.Write "<td>合计： "&price&"</td>"
           totalprice = totalprice + price
           Response.Write "</td></tr>"
        
        rs_book.Close 
             
    rs.MoveNext 
    if rs.EOF then exit for
    next 
     
    rs.Close 
     Response.Write "<tr><td align=right colspan=5>这一次的总价是： "&totalprice&"</td></tr>"
     Response.Write "</table>"
        
    rs_record.MoveNext 
    if rs_record.EOF then exit for
    next 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

end if 

rs_record.Close 
conn.Close
end sub
%>