inc_search.asp

个人网站系统,本人基于第三方源码进行更改!

<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
set rss1=server.createobject("adodb.recordset")
sqls1 = "select * from SmallClass order by sj desc"
rss1.open sqls1,conn,1,1
%>
<script language = "JavaScript">
var onecount1;
subcat1 = new Array();
        <%
        count1 = 0
        do while not rss1.eof 
        %>
subcat1[<%=count1%>] = new Array("<%= trim(rss1("id"))%>","<%=trim(rss1("dl"))%>","<%= trim(rss1("smallclassname"))%>");
        <%
        count1 = count1 + 1
        rss1.movenext
        loop
        rss1.close
        %>
onecount1=<%=count1%>;

function changelocation1(locationid)
    {
    document.SearchInfo.SmallClassName.length = 1; 
    var locationid=locationid;
    var i;
    for (i=0;i < onecount1; i++)
        {
            if (subcat1[i][1] == locationid)
            { 
                document.SearchInfo.SmallClassName.options[document.SearchInfo.SmallClassName.length] = new Option(subcat1[i][2], subcat1[i][0]);
            }        
        }
    }    

</script><script language="javascript">
//检验表单的合法性
function SearchInfoForm() {
	if (document.SearchInfo.Keyword.value == "") {
		alert("\关健字不能为空！");
		document.SearchInfo.Keyword.focus();
	}
	else {
        return true;
    }
    return false;
}
function resetSearchImg(){
	var fact = document.all.SearchInfo
	fact.Keyword.style.backgroundImage="";
}
</script>
<table borderColor="#111111" height="50" cellSpacing="0" cellPadding="0" width="558" border="0">
  <form name="SearchInfo" action="<% = strSysUrl%>list.asp" method="post" OnSubmit="return SearchInfoForm()">
  <tbody>
  <tr>
    <td vAlign="bottom" width="558" colSpan="5" height="8"></td>
  </tr>
  <tr>
    <td width="43" height="21">　<img src="<% = strImageUrl%>s.gif"  border="0" alt="查看全部信息"></td>
    <td width="98">
	<input name="Keyword" type="text" size="16" style="font-size: 12px; font-family; background-color: #ffffff; background-image: url('<% = strImageUrl%>ss.gif'); background-repeat: no-repeat; background-position: center 50%" onclick="resetSearchImg();"></td>
    <td width="58"><select name="InfoClass" size="1">
              <option value="" selected>类型</option>
              <option value="">不限</option>
              <option value="1">销售</option>
              <option value="2">求购</option>
              <option value="3">要闻</option>
              <option value="4">动态</option>
              <option value="5">招聘</option>
              <option value="6">求职</option>
              <option value="7">展会</option>
              <option value="8">其它</option>
            </select></td>
    <td width="308"><%
		set rsb=server.createobject("adodb.recordset")
        sqlb = "select * from BigClass order by sj desc"
        rsb.open sqlb,conn,1,1
		if rsb.eof and rsb.bof then
			response.write "请先添加栏目。"
		else
		%>
                    	<select name="InfoAdd" size="1">
                          <option value="" selected>地区</option>
<%
	  set mxdq=server.CreateObject("adodb.recordset")
	  	sqlmxdq = "Select * From mxdq order by sj desc"
 mxdq.Open sqlmxdq,Conn,1,1
	  if not( mxdq.bof and  mxdq.eof) then
		do while not  mxdq.eof
	%>
                          <option value="<%=mxdq("name")%>"><%=mxdq("name")%></option>
<%
 mxdq.movenext
	loop
	end if
mxdq.close
set mxdq=nothing
%>
</select><select name="BigClassName" onChange="changelocation1(document.SearchInfo.BigClassName.options[document.SearchInfo.BigClassName.selectedIndex].value)" size="1">
                      <option selected value="">所有类别</option>
                      <%
		    do while not rsb.eof
			%>
                      <option value="<%=trim(rsb("id"))%>"><%=trim(rsb("BigClassName"))%></option>
                      <%
		        rsb.movenext
    	    loop
		end if
        rsb.close
        set rsb=nothing
			%></select><select name="SmallClassName">
                      <option value="" selected>不指定小类</option>
                     </select><select name=sj class=form size="1">
                        <option selected value="">时间不限</option>
                        <option value=7>七天内</option>
                        <option value=15>半月内</option>
                        <option value=30>一月内</option>
                        <option value=90>三月内</option>
                      </select></td>
    <td vAlign="top" width="52" align="center"><input type="image" height="36" width="37" src="<% = strImageUrl%>button_go_01.gif"  name="Submit1" border="0"></td>
  </tr>
  </tbody>
  </form>
</table>