📄 searchinfo.asp
字号:
<html>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub searchinfo_onclick
if document.searchform2.key2.value="" then
msgbox "查询关键字不为空"
document.location.assign("info.asp")
end if
End Sub
-->
</SCRIPT>
<body>
<font color="#0000FF" size="5" face="幼圆"><strong>信息查询 </strong></font>
<form action="search2.asp" method="post" name="searchform2" >
<table width="100%" height="61%" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#0033CC" bgcolor="#99FF99">
<tr bgcolor="#CCCC66">
<td width="161" height="16">
<div align="right"> <font color="#CC0066">关键字:</font></div></td>
<td width="601" height="16">
<input class="headinput" size="12" name="key2"></td>
</tr>
<tr bgcolor="#CCCC66">
<td height="21" width="161">
<div align="right"> <font color="#CC0066">类 别：</font></div></td>
<td height="21" width="601">
<select name="select2" id="Select1" language=vbscript on>
<option selected value="">全部范围</option>
<%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from class1 order by taxis desc"
rs.open sql,conn,1
do while not rs.eof
%>
<option value="<%=rs(0)%>"><%=rs(1)%></option>
<%
rs.movenext
loop
rs.close
%>
</select> </td>
</tr>
<tr bgcolor="#99FF99">
<td colspan="2" height="13"><div align="center" >
<input name="searchinfo" type="submit" value="查询">
</div></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -