⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 odrsrchset.asp

📁 一个非常好的旅游网站程序.
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
 If Session("LoginSuccess")="" Then
	Response.Redirect"login.asp"
End If
%>
<% dim userid
userid=Session("LoginSuccess")
set rs=server.createobject("adodb.recordset")             
mysql="select *from orderlist  where user_id='"&userid&"'  order by form_id desc"
rs.open mysql,conn,1,1
%>



<%
page=request("page")      
newpage=0  
if page="" then page=1      
do while newpage<page*5-5  
newpage=newpage+1      
rs.movenext      
loop  

%> 
<html>
<head>
<title>会员管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE>BODY {
	FONT-SIZE: 9pt
}
TD {
	FONT-SIZE: 9pt
}
a            { text-decoration: none; color: #000000 }
a:hover      { text-decoration: underline; color: #0000FF }
</STYLE>
<SCRIPT language=JavaScript>
<!--
function openbag(url,name){
		window.open(url,name,"height=200,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no")}
-->
</SCRIPT>
</head>

<body bgcolor="#FFFFFF" text="#000000" background="../pic/bg.jpg" leftmargin="0" topmargin="0">
<div align="center">
  <table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td><iframe src=../top.asp noresize scrolling=no frameborder=0 width=778 height=100 hspace="0" vspace="0" marginheight="0"></iframe> 
      </td>
    </tr>
  </table>
  <table width="778" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td height="423" background="../pic/user/images/user_06.gif" valign="top"><img src="../pic/user/images/user_01.gif" width="162" height="343" align="top" usemap="#Map" border="0"></td>
      <td width="616" valign="top"> 
        <table width="616" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td background="../pic/user/images/user_03.gif"><img src="../pic/user/images/user_03.gif" width="21" height="18"></td>
          </tr>
        </table>
        <div align="center"><br>
          <br>
          <font color="#FF0000"><b>我 的 订 单</b></font> 
          <table width="580" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td>  
                <%
 If rs.RecordCount >=1 then
%>
                <% do while not rs.eof %>
                <% 
i=i+1 
form_id=rs("form_id") 
 
set rs2=server.createobject("adodb.recordset") 
sqltext2="select * from ShopList where Form_Id=" & form_id 
rs2.open sqltext2,conn,1,1 
%>
                <br>
                 订单号:<font color="#FF0000"><b><%=rs("form_Id")%></b></font>   订单时间:<%=rs("RegTime")%>  
                <table width="580" border="0" cellspacing="3" cellpadding="2">
                  <tr> 
                    <td bgcolor="#4A95E8" width="69" align="center"><font color="#FFFFFF">商品编号</font></td>
                    <td bgcolor="#4A95E8" width="165" align="center"><font color="#FFFFFF">商品名称</font></td>
                    <td bgcolor="#4A95E8" width="112" align="center"><font color="#FFFFFF">商品价格</font></td>
                    <td bgcolor="#4A95E8" width="81" align="center"><font color="#FFFFFF">商品数量</font></td>
                    <td bgcolor="#4A95E8" width="79" align="center"><font color="#FFFFFF">金额小计</font></td>
                  </tr>
                  <%
	  '循环显示出一张订单的所有商品
	  Sum=0
      While Not rs2.EOF%>
                  <tr> 
                    <td bgcolor="#FFD9B3" width="69"> 
                      <div align="center"><%=rs2("Product_Id")%></div>
                    </td>
                    <td bgcolor="#FFD9B3" width="165"> 
                      <div align="center"><a href="../ProductDetail.asp?Product_id=<%=rs2("Product_Id")%>" target="_blank"><%=rs2("Product_Name")%></a></div>
                    </td>
                    <td bgcolor="#FFD9B3" width="112"> 
                      <div align="center"><%=rs2("P_NewPrice")%> 元</div>
                    </td>
                    <td bgcolor="#FFD9B3" width="81"> 
                      <div align="center"><%=rs2("Number")%></div>
                    </td>
                    <td bgcolor="#FFD9B3" width="79"> 
                      <div align="center"><%=rs2("P_NewPrice")*rs2("Number")%> 
                        元</div>
                    </td>
                    <%Sum=Sum+rs2("P_NewPrice")*rs2("Number")%>
                  </tr>
                  <%  rs2.MoveNext
   	  Wend
	 %>
                  <tr> 
                    <td colspan="5"> 
                      <div align="right">(总计金额:<%=Sum%> 元)  </div>
                    </td>
                  </tr>
                </table>
                  
                <%if i=3 then exit do
rs.movenext
loop%>
                <%if page=1 then %>
                上一页 
                <%else%>
                <a href="odrsrchset.asp?page=<%=page-1%>"><font color="#0000FF">上一页</font></a> 
                <%end if%>
                &nbsp; 
                <%if i=3 and not rs.eof then %>
                <a href="odrsrchset.asp?page=<%=page+1%>"><font color="#0000FF">下一页</font></a> 
                <%else%>
                下一页 
                <%end if%>
                <%rs2.close 
			  rs.close  
			  conn.close %>
                <% 
else  
 rs.close 
 conn.close 
 response.write"你还没有提交过订单" 
 End if  
%>
                <br>
              </td>
            </tr>
          </table>
          <br>
        </div>
      </td>
    </tr>
  </table>
  <map name="Map"> 
    <area shape="rect" coords="19,126,114,149" href="javascript:openbag('../check.asp?shopname=<%=session("shop")%>')">
    <area shape="rect" coords="19,160,112,184" href="default.asp">
    <area shape="rect" coords="19,194,114,217" href="myinfo.asp">
    <area shape="rect" coords="19,228,113,251" href="odrsrchset.asp">
    <area shape="rect" coords="23,262,113,283" href="cctsrch.asp">
  </map>
</div>
</body> 
</html> 

⌨️ 快捷键说明

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