searchbox.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<form method="POST" action="../../product/result.asp" name="frm_search">
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="0">
                
    <tr> 
      <td height="25" align="center">
        <select name="selCatalog" class="Input" style="width:120">
          <option value="">所有类别</option>
                <%
				set sch_rs= server.CreateObject("ADODB.RECORDSET")                      
				strSQL = "SELECT catalogID,CatalogName from ys_product_catalog where version='"&current_ver&"'"
				sch_rs.Open strSQL,conn
				do until sch_rs.EOF 
					Response.Write "<option value=""" & sch_rs("CatalogID") & """ " & isSelected(strschCatalog,cstr(sch_rs("CatalogID"))) & ">⊙" &sch_rs("catalogname") & "</option>"
					sch_rs.MoveNext 
				loop
                sch_rs.Close 
                %>
        </select>        
        
        </td>
    </tr>
<tr> 
      <td height="25" align="center">
        <select name="selField" class="Input" style="width:120">
          <option value="0" <%=isSelected("0",strSchField)%>>所有产品</option>
          <option value="1" <%=isSelected("1",strSchField)%>>按产品名称</option>
          <option value="2" <%=isSelected("2",strSchField)%>>按产品介绍</option>
        </select>
           </td>
    </tr>
    <tr> 
      <td height="25" align="center"> 
      <input name="KeyWord" type="text" class="Input" size="16" style="width:120" value="<%=strKeyWord%>"> 
      </td>
    </tr>
    <tr> 
      <td height="25" align="right">
      <input name="Submit" type="submit" class="Input" value="搜索"></td>
    </tr>
  </table>
</form>
</body>
</html>