📄 search.asp
字号:
<%
dim count,onecount
sql="select * from SmallClass order by SmallClassID DESC"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%=rs("SmallClassName")%>","<%=rs("BigClassName")%>","<%=rs("SmallClassID")%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.SmallClassID.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.SmallClassID.options[document.myform.SmallClassID.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<table border="0" width="100%" align=center cellspacing="0" cellpadding="0" bgcolor="<%=LeftBColor%>">
<%=TTitle("left","资料搜索")%>
<form method="post" name="myform" action="showsearch.asp">
<tr>
<td width="100%" bgcolor="<%=LeftCColor%>" background="<%=LeftCImg%>" align=center valign="middle">
<br>
<select name="action" size="1">
<option value="" selected>不指定条件</option>
<option value="title">按标题</option>
<option value="content">按内容</option>
<option value="author">按作者</option>
<option value="original">按来源</option>
</select>
<select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
<option selected value="">不指定大类</option>
<%
dim xp
set xp=conn.execute("select * from BigClass order by BigClassID")
do while not xp.eof
%>
<option value="<%=xp("BigClassName")%>"><%=xp("BigClassName")%></option>
<%
xp.movenext
loop
xp.close
set xp=nothing
%>
</select>
<select name="SmallClassID">
<option selected value="">不指定小类</option>
</select>
<input type="text" name="keyword" size=10 value="<%if request("keyword")<>"" then%><%=request("keyword")%><%else%>无关键字<%end if%>" maxlength="50">
<input type="submit" name="Submit" value="搜索" class="submit">
<br>
<%=space(10)%>
</td>
</tr></form>
<%=InTable("bottoml")%>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -