📄 searchgoods.asp
字号:
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub search_onclick
if document.searchform.key.value="" then
msgbox "查询关键字不为空"
document.location.assign("goods.asp")
end if
End Sub
-->
</SCRIPT>
<META name="VI60_defaultClientScript" content="VBScript">
<link href="xingxing.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {color: #0000FF}
.style3 {
font-size: 12px;
font-weight: bold;
}
.style4 {
color: #0000FF;
font-size: 14px;
font-weight: bold;
}
-->
</style>
<body >
<font color="#0000ff" size="5" face="幼圆">物品查询 </font>
<form action="search.asp" method="post" name="searchform" >
<table width="100%" height="61%" border=" " align="center" cellpadding="0" cellspacing="1" bordercolor="#0000FF" bgcolor="#3399CC">
<tr bgcolor="#CCCC66">
<td width="161" height="16">
<div align="right" class="style2 style3">
关键字:</div> </td>
<td width="601" height="16"> <input name="key" class="headinput " size="12"></td>
</tr>
<tr bgcolor="#CCCC66">
<td width="161" height="21">
<div align="right" class="style4">
类 别：</div> </td>
<td width="601" height="21">
<select name="select1" 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 height="13" colspan="2"><div align="center" >
<input name="search" type="submit" value="查询">
</div></td>
</tr>
</table>
</form>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -