⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search.asp

📁 庐江二中
💻 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 + -