📄 sale2.asp
字号:
<%@ LANGUAGE="VBScript" %>
<html>
<head>
<script language="vbscript">
<!--
' 注释：定义搜索按钮的单击事件
Sub search_OnClick
Dim infstr
' 注释：验证搜索信息
If fset.sitem.value = "" Then
Alert("请先输入具体的查询内容！然后重试...")
Else ' 生成搜索条件
Select Case fset.stype.value
Case 1 infstr = "title="
Case 2 infstr = "author="
Case 3 infstr = "ISBN="
End Select
' 注释：提交搜索数据
parent.sale4.location = "sale4.asp?" & infstr & fset.sitem.value
End If
End Sub
-->
</script>
</head>
<body bgcolor="#FFFF99">
<form name="fset">
<font size="5" face="楷体_GB2312"><b>图书分类</b></font><hr>
<table><tr><td>
<input name="search" type="button" value="搜索">
<select name="stype">
<option value="1">书名</option>
<option value="2">作者</option>
<option value="3">书号</option>
</select>
<input name="sitem" type="text" size="25" maxlength="50">
</td></tr></table>
</form>
<%
' 注释：第一层图书分类信息查询
mysql = "SELECT id, title FROM booktype WHERE parentid = '000'"
Set objRS = Session("objRS")
objRS.Source = mysql
objRS.Open
' 注释：显示查询结果
pids = "" : titles = ""
Do While Not objRS.EOF
If pids = "" Then
pids = "'" & objRS("id") & "'"
titles = objRS("title")
Else
pids = pids & ",'" & objRS("id") & "'"
titles = titles & "," & objRS("title")
End If
objRS.MoveNext
Loop
objRS.Close
' 注释：如果存在第一层分类信息则检索第二层分析信息
If pids <> "" Then
mysql = "SELECT * FROM booktype " & _
"WHERE parentid IN (" & pids & ")"
objRS.Source = mysql
objRS.Open
' 注释：显示检索到的结果
i = 0 : pid = "" : title = Split(titles, ",")
Do While Not objRS.EOF
If pid <> objRS("parentid") Then
If pid = "" Then
Response.Write("<table>")
outstr = ""
Else
Response.Write("</td>" & outstr & "</tr>")
outstr = "<tr><td> </td></tr>"
End If
outstr = outstr & _
"<tr><td><b>" & _
"<font color=red size=5 face=楷体_GB2312>" & _
title(i) & "：" & _
"</font></b></td></tr>" & _
"<tr><td>"
pid = objRS("parentid")
i = i + 1
End If
outstr = outstr & _
"<a href=sale3.asp?fid=" & objRS("id") & " target=sale3>" & _
objRS("title") & "</a> "
objRS.MoveNext
Loop
If outstr <> "" Then Response.Write("</td>" & outstr & "</tr></table>")
objRS.Close
End If
Set objRS = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -