<%
'┌─  風云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統(tǒng)開發(fā)，網(wǎng)站制作，提供高質(zhì)量的網(wǎng)絡產(chǎn)品、技術和服務！│
'│                                                                 │
'│【版權聲明】                                                     │
'│                                                                 │
'│     本程序版權歸坐看風云所有，未經(jīng)授權擅自修改、復制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內(nèi)的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│                                                                 │
'└───────────────────  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">動態(tài)</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>地區(qū)</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>七天內(nèi)</option>
                        <option value=15>半月內(nèi)</option>
                        <option value=30>一月內(nèi)</option>
                        <option value=90>三月內(nèi)</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>