sale3.asp

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

ASP
44 行
字号 
<%@ LANGUAGE="VBScript" %>
<html>
<head></head>
<body bgcolor="#FFFF99">
<%
'查询图书分类
' 注释：如果由第二层分类信息则执行查询操作
   If Request("fid") <> "" Then
      mysql = "SELECT id, title FROM booktype " & _
               "WHERE id = '" & Request("fid") & "' " & _
                  "OR parentid = '" & Request("fid") & "'"
   ' 注释：连接数据库并执行SQL语句
   	Set objRS = Session("objRS")
      objRS.Source = mysql
      objRS.Open
   ' 注释：利用循环语句生成分类信息串
      For i = 1 To objRS.RecordCount
         If i = 1 Then
            outstr = _
               "<font size=5 face=楷体_GB2312 color=red><b>" & _
                objRS("title") & "：</b></font><br>"
         Else
            outstr = outstr & _
               "<a href=sale4.asp?fid=" & objRS("id") & _
               "&type=" & objRS("title") & _
               " target=sale4>" & objRS("title") & _
               "</a>&nbsp;"
         End If
         objRS.MoveNext
      Next
   ' 注释：显示查询结果
      If objRS.RecordCount > 0 Then Response.Write(outstr)
   ' 注释：如果只返回一条记录（第二层分类信息），表示没有第三层分类信息
      If objRS.RecordCount = 1 Then Response.Write("<b>还没有相关图书！</b>")
      
   ' 注释：关闭数据记录集
      objRS.Close
      Set objRS = Nothing
   Else
      Response.Write("<b>请选择图书类型！</b>")
   End If
%>
</body>
</html>

sale3.asp - 源码说明

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

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

⌨️ 快捷键说明

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