searh.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<link href="css.css" rel="stylesheet" type="text/css">
<title>搜索</title>

<!--#include file="sysinfo.asp"-->
<!--#include file="bottom.asp"-->
<%
name=Trim(request.form("key"))
if name="" then 
name=Trim(Request("key"))
end if
name=Replace(name,"'","")
name=replace(name,"<","&lt;")
name=replace(name,">","&gt;")
rad=request.form("rad")
if rad="" then
rad=request("rad")
end if
%>
<table width="775" border="0" align="center" cellspacing="0">
  <tr> 
    <td width="200"><a href=./><img src=<%=slogo%> border=0></td>
    <td><form name=form2 method=post action=searh.asp?key=<%=name%>>
        <table width=100% border=0 align=center cellspacing=0>
          <tr> 
            <td><div align=center> 
                <input name=key type=text value="<%=name%>" size=30>
                <input type=submit name=Submit value=贴吧搜索>
              </div></td>
          </tr>
          <tr> 
            <td><div align=center> 
                <input name=rad type=radio value=1  checked>
                进入贴吧 
                <input type=radio name=rad value=2>
                查找主题 
                <input type=radio name=rad value=3>
                查找内容 
                <input type=radio name=rad value=4>
                国际搜索 </div></td>
          </tr>
        </table>
      </form></td>
    <td width="120">&nbsp;</td>
  </tr>
</table>
<p>
  <!--#include file="gongneng.asp"-->
<table width="775" border="0" align="center" cellspacing="0" class="td4">
  <tr>
    <td><a href="./" target="_self"><font color="#FFFFFF">·首页</font></a>>>><font color="#FFFFFF"><%=name%><%=sbbs%></font></td>
  </tr>
</table>
  <% 
Response.Write "<table width=775 align=center border=0 align=center cellspacing=0><tr><td>"
if name="" then 
 Response.Write "关键字不能为空,请输入关键字"
 else 
'raa="r1"
'raa2="r2"
'raa3="r3"
'raa4="r4"
if CInt(rad)=1 or rad="" then
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from luntan  where luntan='"+name+"'",conn,1,1

    if rs.eof then '不存在建立新论坛%>
</p>
<table align="center" width="100%" border="0" cellspacing="6" >
  <tr>
    <td> 您好，您是第一个来到<font color="#FF0000"><%=name%></font>贴吧的贵客，目前<font color="#FF0000"><%=name%></font>贴吧还没有留言，欢迎在<font color="#FF0000"><%=name%></font>贴吧里留言，需要留言请先建立<font color="#FF0000"><%=name%></font>贴吧。请您填写<font color="#FF0000"><%=name%></font>简介，以便其它网友与您交流和分享<font color="#FF0000"><%=name%></font>相关信息。如果您不想建立贴吧您可以 
      <a href=index.asp>返回首页</a> 或重新搜索其它相关的贴吧。</td>
     </tr>
     </table>
     <form name="form2" method="post" action="luntansave.asp">
     <table width="100%" border="0" align="center" cellspacing="0">
     <tr> 
      <td width="15%">贴吧名称:</td>
      <td><input name="aa" type="text" value="<%=name%>" size="80"></td>
      </tr>
       <tr> 
      <td>简&nbsp;&nbsp;&nbsp;&nbsp;介:</td>
      <td><textarea name="bb" cols="80"></textarea></td>
       </tr>
        <tr> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="建立新贴吧">
        <input type="reset" name="Submit2" value="重新写信息"></td>
        </tr>
        </table>
        </form>

      <% 
	  else
	  if rs("fenlei")= -1 then
	  response.redirect"tiebalist.asp?idl="&rs("idl")&""
	  else
      response.redirect"list.asp?idl="&rs("idl")&""
	  end if
	  end if
      %>
       
<%
else if CInt(rad)=2 then
     ccs="select * from neirong where  shanzhu=0  and zhuti like '%"&name&"%' "
     set rssa=server.createobject("adodb.recordset")
     rssa.open ccs,conn,1,1

    if rssa.eof then 
    Response.Write "没找到 "&name&" 相关主题"
   
   
    else 
	   rssa.PageSize = 20 'pagesize属性指定了每页要显示的记录条数 
       Page = CLng(Request("Page")) 'string型转化为long型 
        If Page < 1 Then Page = 1 
	    
        If Page > rssa.PageCount Then Page = rssa.PageCount 
	    
        rssa.AbsolutePage = Page
        %>
	    您搜索 <%=name%> 的相关内容有：<br><br><%
        For iPage = 1 To rssa.PageSize   
        %><a href=show.asp?ids=<%=rssa("ids")%>><%=rssa("zhuti")%></a><br><%
        rssa.MoveNext 
        If rssa.EOF Then Exit For 
        Next 
	    Response.write"第" & Page & "页/总共有" & rssa.PageCount & " 页 每页"& rssa.PageSize &"贴"

        If Page > 1 Then 
        Response.Write "<A HREF=searh.asp?rad=2&key="&name&"&Page=1>第一页</A>