orderlist.asp

来自「数据库课程设计」· ASP 代码 · 共 65 行

ASP
65 行
字号 
<%@ LANGUAGE="VBScript" %>
<html>
<head><title>购书记录</title></head>
<body bgcolor="#FFFF99"><body background="img\backgd.jpg"></body>
<center>
<font size="5" face="楷体_GB2312"><b>当前会员的所有购书记录</b></font><hr>
<%
' 注释：获取用户信息并进行分析
   userid = Session("userid")
   If userid = "" Then userid = "guest"
' 注释：连接数据库并执行SQL语句
   mysql = "SELECT * FROM orderlist WHERE customerid='" & userid & "'"
   Set objRS = Session("objRS")
   objRS.Source = mysql
   objRS.Open
' 注释：显示相关结果
   If objRS.RecordCount > 0 Then
      outstr = "<font color=red>【单击订单[编号]可查看详细内容】</font>" & _
               "<table border=1><tr>" & _
               "<th>编号</th><th>会员</th><th>购书时间</th>" &_
               "<th>付款方式</th><th>签收人</th><th>配送地址</th>" & _
               "<th>金额</th><th>成交</th></tr>"
      Response.Write(outstr)
   End If
   Do While Not objRS.EOF
   ' 注释：检查订单中的交易是否成交
      If objRS("finished") = 0 then
         finished = "否"
      Else
         finished = "是"
      End If
   ' 注释：处理购书结算时间，仅显示年-月-日信息
      paytime = Year(objRS("paytime")) & "-" & _
                Month(objRS("paytime")) & "-" & _
                Day(objRS("paytime"))
      outstr = "<tr>" & _
               "<td>[ <a href=bookorder.asp?listid=" & objRS("id") & _
               " target=_blank>" & objRS("id") & "</a> ]</td>" & _
               "<td>" & objRS("customerid") & "</td>" & _
               "<td>" & paytime & "</td>" & _
               "<td>" & objRS("paytype") & "</td>" & _
               "<td>" & objRS("name") & "</td>" & _
               "<td>" & objRS("address") & "</td>" & _
               "<td>" & objRS("money") & "元</td>" & _
               "<td>" & finished & _
               "</tr>"
      Response.Write(outstr)
      objRS.MoveNext
   Loop
   If objRS.RecordCount > 0 Then
      Response.Write("</table><hr>")
   Else
      outstr = "<p><b>"
      If userid <> "guest" Then outstr = outstr & "[" & userid & "]"
      outstr = outstr & "<b>您还没有在本店购过书！</b>"
      Response.Write(outstr)
   End If
' 注释：关闭数据记录集
   objRS.Close
   Set objRS = Nothing
%>
<a href="#" onClick="vbscript:window.close">关闭窗口</a>
</center>
</body>
</html>

orderlist.asp - 源码说明

本页面展示了「数据库课程设计」中的 orderlist.asp 源码文件，采用 ASP 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Database Coursework相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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