📄 sale3.asp
字号:
<%@ 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> "
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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -