searchgoods.asp

来自「ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFAN」· ASP 代码 · 共 74 行

ASP
74
字号
<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">
			  类&nbsp;&nbsp;别:</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 + =
减小字号Ctrl + -
显示快捷键?