search.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

				if (targetDiv.style.display!='block'){
					targetDiv.style.display="block";
					targetImg.src="images/minus.gif";
					if (targetImg.loaded=="no"){document.frames["hiddenframe"].location.replace("loading.asp?id="+ino+"");}
				}else{
					targetDiv.style.display="none";
					targetImg.src="images/plus.gif";
				}
		}
		</script>
		<iframe HEIGHT="0" WIDTH="0" NAME="hiddenframe"></iframe>
		 <table borderColor="#a4b6d7" background=images/title_sub.gif  cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
		<tr>
		<td width="4%" >　</td>
		<td align="middle" height="24"  width="45%"><font color="#000000"><font color="#000000"> 主题</font></font></td>
		<td align="middle" width="13%" height="24"><font color="#000000"><font color="#000000">作者</font></font></td>
		<td align="middle" width="9%" height="24"><font color="#000000">字/[回]</font></td>
		<td width="27%" height="24"> <center><font color="#000000">最后回复</font></a></font></center></td>
		</TR></TABLE>
			<%
			Do While Not Rs.Eof	If Rs("GoodTop")=True Then
			img= "topicgood"
		ElseIf Rs("TopTopic")>0 Then
			img= "f_top"
		ElseIf Rs("LockTopic")=True Then
			img= "f_locked"
		Else
			img= "f_new"
		End if%>
		<table cellSpacing="0" cellPadding="3" width="100%" border="0">
		<tr> 
		<td width="4%"  class=unnamed1><img src="images/<%= img %>.gif"></td>
		<td  width="45%"  class=unnamed1> <img loaded="no" src="images/plus.gif" id="followImg<%=rs("ShowID")%>" style="cursor:hand;" onclick="loadThreadFollow(<%=rs("ShowID")%>)"> 
		<a target="_blank" href=BbsShow.asp?Menu=Show&BbsId=<%=rs("ShowID")%>&Bbs=<%=rs("BbsID")%>> <img src=images/brow/<%= Rs("Icon") %>.gif border=0></a> 
		<font color="#000000"><a href=BbsShow.asp?Menu=Show&BbsId=<%=rs("ShowID")%>&Bbs=<%=rs("BbsID")%>><%= Rs("Title") %></a> &nbsp;<% NextPage rs("ShowID"),Rs("AllPost"),rs("BbsID") %></font></div></td>
		<td align="middle" width="13%"  class=unnamed1><font color="#000000"><a href=ShowUserInfo.asp?UsId=<%=rs("UserID")%>><%= Rs("UserName") %></a></font></td>
		<td align="middle" width="9%"  class=unnamed1><font color="#000000"><%= Len(Rs("Content")) %>/<font color="#CC3300">[<%= Rs("AllPost") %>]</font></font></td>
		<td align="center" width="27%" height="24" class=a1> <font color="#000000"><%= Rs("LastTime") %> | <%= Rs("Restore") %></font></td>
		</TR>
		<tr style="display:none" id="follow<%=rs("ShowID")%>"> 
		<td colspan="5" id="followTd<%=rs("ShowID")%>"  class=a1>
			<div onclick="loadThreadFollow(<%=rs("ShowID")%>)">
			<table width="100%" cellpadding="0">
			<tr>
			<td width="100%">加载中，请稍等....</td>
			</tr>
			</table>
			</div>
		</td>
		</TR>
		</TABLE>
		<%Rs.Movenext
		loop
		Rs.Close
		Set Rs = Nothing
		end if
	Case Else
	Error 1,"非法登陆信息！\n您的IP已被记录！",""
End Select
htmlend
Response.end
End if%>







<title>搜索帖子</title>
<script>
var i=0;
function formCheck(){i++;if (i>1) {document.form.submit1.disabled = true;}return true;}
</script>
<form method="post" name=form action="search.asp">
<div align="center">
<center>
    <table id="AutoNumber1" style="border-collapse: collapse; border-left: 1px none; border-right-width: 1px; border-top: 1px none; border-bottom: 1px none; padding: 0px" borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%">
      <tr> 
        <td style="border: 1px solid; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" colSpan="2" height="23" background=images/title_sub.gif> 
          <p align="center"><span style="FONT-SIZE: 9pt">请输入要搜索的关键字</span></td>
      </tr>
      <tr> 
        <td style="border: 1px solid #a4b6d7; padding: 1px" vAlign="top" bgColor="#f2f8ff" colSpan="2" height="24"> 
          <p align="center"> 
            <input name="key" id="key" size="40">
        </td>
      </tr>
      <tr> 
        <td style="border: 1px solid #a4b6d7; padding: 1px" bgColor="#f2f8ff" colSpan="2" height="25"> 
          <p align="center"><span style="FONT-SIZE: 9pt">搜索选项</span></td>
      </tr>
      <tr> 
        <td style="border: 1px solid #a4b6d7; padding: 1px" width="33%" height="28"> 
          <p align="right">搜索用户号码 
            <input type="radio" value="User" name="search">
        </td>
        <td style="border: 1px solid #a4b6d7; padding: 1px" vAlign="top" width="67%" height="28"> 
          &nbsp; <select name="UserNum" id="UserNum">
            <option value="UserName_1" selected>按真实姓名</option>
            <option value="UserName_2">按社区昵称</option>
            <option value="UserTel">联系电话</option>
          </select></td>
      </tr>
      <tr> 
        <td style="border: 1px solid #a4b6d7; padding: 1px" width="33%" height="29"> 
          <p align="right"> 搜索产品资料 
            <input type="radio" value="Pro" name="search">
        </td>
        <td style="border: 1px solid #a4b6d7; padding: 1px" vAlign="top" height="29" width="67%"> 
          &nbsp; <select name="ProNum" id="ProNum">
            <option value="ProductCnName" selected>产品名称</option>
            <option value="ProductNum">产品货号</option>
          </select></td>
      </tr>
      <tr> 
        <td style="border: 1px solid #a4b6d7; padding: 1px" width="33%" height="29"> 
          <p align="right">搜索论坛主题 
            <input type="radio" value="Bbs" name="search">
        </td>
        <td style="border: 1px solid #a4b6d7; padding: 1px" vAlign="top" width="67%" height="29"> 
          &nbsp; <select name="BbsID" id="BbsID">
            <option value="all" selected>全部论坛</option>
			<%	Sql="Select BbsId,BbsName From BbsInfo Where DelThis=False and BbsShow=False Order by BbsPx"
		Set Rs = Conn.Execute(Sql)
		Do While Not Rs.Eof
		Response.Write "<option value="&Rs("BbsId")&" >"&Rs("BbsName")&"</option>"
		Rs.Movenext
		Loop
		Rs.close
		Set Rs = Nothing
 		%>
          </select>
          <select size="1" name="TimeLimit">
            <option value="all">所有日期</option>
            <option value="1">昨天以来</option>
            <option value="5" selected>5天以来</option>
            <option value="10">10天以来</option>
            <option value="30">30天以来</option>
          </select>
          <select name="Title" size="1" id="Title">
            <option value="Title" selected>主题中</option>
			<option value="UserName" >主题作者</option>
          </select> </td>
      </tr>
      <tr> 
        <td height="31" colspan="2" align="right" style="border: 1px solid #a4b6d7; padding: 1px" align="center"> 

            <input type="submit" name=submit1 value="开始搜索" onclick="return formCheck()">
  </td>
      </tr>
      <tr> 
        <td style="border: 1px solid #a4b6d7; padding: 1px" colSpan="2" height="13%" background=images/title_sub.gif> 
          <p align="center">　</td>
      </tr>
    </table>
</center>
</div></form>
<%htmlend
Sub Tab(Msg1,Msg2)%>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<tr><td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none"> 
	<b>&nbsp;■ </b><%= Msg1 %></td>
	</tr></table>
	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR> 
	<TD  height=12 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9"><%= Msg2 %></TD>
	</TR></TABLE>
<%End Sub

Sub NextPage(BbsI,AllPage,BbsID)
if AllPage > 15 Then
a=1
Response.write "（<img src=images/multipage.gif> "
For i=i to AllPage Step 15
Response.write "<a href=BbsShow.asp?Menu=Show&BbsId="&BbsI&"&Bbs="&BbsID&"&page="&a&"><b>"&a&"</b></a> "
a=a+1
Next
Response.write "）"
End if
End Sub%>