?? 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 + -