searchok.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="char.asp"-->
<script language="vbscript" runat="server">
Response.Buffer=True
'*****************************************************************注意。显示分页程序的过程
Public Sub showpage() 
         '---------------------->显示分页！！！
	 Response.write("<form name=form1 method=post action="&seagotopage&" onsubmit=""return xxg()"">")
	 Response.Write("<table align=""center"" width=""98%"" border=""0"" height=""20"">")
	 Response.Write("<tr><td width=""723"" height=""14""align=""center"">")
	 Response.Write("共<font color=red>"&rs.recordcount&"</font>条留言&nbsp;&nbsp;<font color=red>"&maxsize&"</font>/每页&nbsp;&nbsp;") 
	 Response.Write("当前<font color=red>"&currentpage&"/"&pagenum&"</font>页&nbsp;&nbsp;")
	 If currentpage-1>0 Then
	     Response.Write("<a href="&seagotopage & "?" & GoToPage(mysearch,1)&">首页</a>&nbsp;&nbsp;")
	     Response.Write("<a href="&seagotopage&"?"&GoToPage(mysearch,currentpage-1)&">上一页</a>&nbsp;&nbsp;")
	 Else
		 Response.Write("<font color=#BBBBBB>首页&nbsp;&nbsp;上一页&nbsp;&nbsp;</font>")
	 End If  
	 If currentpage<>pagenum Then
		 Response.Write("<a href="&seagotopage&"?"&GoToPage(mysearch,currentpage+1)&">下一页</a>&nbsp;&nbsp;")
		 Response.Write("<a href="&seagotopage&"?"&GoToPage(mysearch,pagenum)&">尾页</a>&nbsp;&nbsp;")
	 Else
		 Response.Write("<font color=#BBBBBB>下一页&nbsp;&nbsp;尾页&nbsp;&nbsp;</font>")
	 End If 
         Response.Write("转到：") 
         Response.Write("<input class=smallInput maxlength=10 name=page size=4 value="&currentpage&">")
         Response.Write("&nbsp; <input class=buttonface name=""submit"" type=submit value=GO>")
         Response.Write("</td><td width=""11"" height=""14"">&nbsp;</td></tr></table></form>")
End Sub 
'************************显示留言内容*******************************************************
public sub main()
do while not rs.eof
Response.Write("<TABLE  cellPadding=0 cellSpacing=0 height=129 width="&bodywidth&" align=""center"" class=""table002"">")
  Response.Write("<tr>") 
    Response.Write("<td width=""151"" height=""9"" align=""center"" class=""indextd"">留言作者信息</td>")
    Response.Write("<td width=""597"" height=""9""><table width=""100%"" border=""0"" cellspacing=""4"" cellpadding=""0"">")
        Response.Write("<tr>")
          Response.Write("<td>&nbsp;")
     If rs("mail")<>"" then
		  Response.Write("<a href=mailto:"&rs("mail")&" title="&rs("user")&"的信箱是："&rs("mail")&"><img src=""images/mail.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 邮箱</a>　")
	  Else 
		  Response.Write("<img src=""images/mail1.gif"" align=""absmiddle""> <font color=#666666>信箱</font>　")
	  End if   
	  If rs("url")<>"" and rs("url")<>"http://" then
		  Response.Write("<a href="&rs("url")&" title=到"&rs("user")&"的主页去看看吧！ target=_blank><img src=""images/home.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 主页</a>　")  
      Else 
		  Response.Write("<img src=""images/home1.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> <font color=#666666>主页</font>　")
	  End if 
	  If rs("QQ")<>"" then
		  Response.Write("<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&rs("QQ")&" title="&rs("user")&"的QQ号是："&rs("QQ")&" target=""_blank""><img src=""images/qq.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> OICQ</a>　")
	  Else 
		  Response.Write("<img src=""images/qq1.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> <font color=#666666>OICQ</font>　")
	  End if  
	  If showIP = true Then
          Response.Write("<img src=""images/ip.gif"" width=""16"" height=""15"" align=""absmiddle"">"&rs("ip")&" ")
	  Else
	      Response.Write("<a href=""Javascript:openWindow('viewip.asp?id="&rs("ID")&"')""><img src=""images/ip.gif"" width=""16"" height=""16"" border=""0"" width=""16"" height=""15"" align=""absmiddle""> I P</a> ")  
	  End If	  
      Response.Write("<a href=""search.asp""><img src=""images/search.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 留言搜索</a>&nbsp; ") 
      Response.Write("<a href=""write.asp""><img src=""images/write.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 我要留言</a>&nbsp;")
	  If session("kenanbook")<>"" Then
      Response.Write("<a href=""loginout.asp"" onClick=""rusure(); return false;""><img src=""images/loginout.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 退出管理</a>&nbsp;")
	  End If
      Response.Write("</td>")
      Response.Write("</tr>")
      Response.Write("</table>")
      Response.Write("<table width=""100%"" height=""1"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
	  Response.Write("<tr><td height=""1"" class=""indextd2""><img src=""images/space.gif"" height=""1""></td></tr></table>")
	  Response.Write("</td> </tr><tr>")
	  Response.Write("<td height=""79"" rowspan=""2"" align=""center"" valign=""top"" class=""indextd"">") 
      Response.Write("<img src="&rs("face")&" align=""top""><br><br>")
      Response.Write("<TABLE class=""namefilter"">")
      Response.Write("&nbsp;<FONT color=#ffffff>"&rs("user")&"</FONT>&nbsp;</TABLE> <br>")
      Response.Write("来自"&rs("adress"))
	  If rs("sex")="帅哥" Then
        Response.Write("<img src=images/boy.gif border=0 title="&rs("sex")&">")
	  Else
	    Response.Write("<img src=images/girl.gif border=0 title="&rs("sex")&">")
	  End If
Response.Write("</td>")
    Response.Write("<td width=""597"" height=""80""> <table border=""0"" cellspacing=""6"" cellpadding=""0"" style=""TABLE-LAYOUT: fixed"" align=""left"">")
        Response.Write("<tr>")
          Response.Write("<td style=""LEFT: 20px; WIDTH: 100%; WORD-WRAP: break-word"" width=""417""><img src=""IMAGES/profile.gif"" width=""16"" height=""16"">&nbsp;&nbsp;") 
            Response.Write("<img src=title/face" & rs("em") & ".gif><b>"&rs("title")&"</b><br>")
			If rs("hide")=0 Then
			   Response.Write(ubbcode(rs("content")))
			Else
			   If session("kenanbook")<>"" Then
			       Response.Write("<b>这是一点悄悄话... ...<br></b>"&ubbcode(rs("content")))
			   Else
				   Response.Write("<table width=""80%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td align=""center"">")
				   Response.Write("<hr align=""center"" width=""90%"" size=""1"" noshade>")
				   Response.Write("<a href=""login.asp"">这是留给站长的一点悄悄话... ...</a>")
				   Response.Write("<hr align=""center"" width=""90%"" size=""1"" noshade>")
				   Response.Write("</tr></table>")
			   End If
			End If
			If rs("reply")<>"" Then 
			   Response.Write("<fieldset style=""padding: 2; width:480;""> <legend>站长回复</legend> <b><img src=""IMAGES/replynow.gif"" width=""16"" height=""16"" border=""0"">"&rs("replytitle")&"</b><br>")
			   Response.Write(ubbcode(rs("reply")) & "<br><div align=right>回复日期:" & rs("time2") & "</div></fieldset>")
            End if
           Response.Write("</td>")
       Response.Write("</tr>")
    Response.Write("</table></td></tr>")
Response.Write("<tr>") 
    Response.Write("<td width=""597"" height=""2"" align=""right""><table width=""100%"" height=""1"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
        Response.Write("<tr><td height=""1"" class=""indextd2""><img src=""images/space.gif"" height=""1""></td></tr></table>")
     Response.Write("<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"">")
        Response.Write("<tr>") 
          Response.Write("<td width=""53%"" height=""19"">&nbsp;&nbsp;<img src=""images/posttime.gif"" width=""16"" height=""15"" align=""absmiddle"">&nbsp;"&rs("time1")&"&nbsp;&nbsp;&nbsp;&nbsp;</td>")
          Response.Write("<td width=""47%"" align=""right""><a href=edit.asp?id="&rs("ID")&"><img src=""images/edit.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle"">")
           Response.Write("编辑</a>&nbsp; <a href=reply.asp?id="&rs("ID")&"><img src=""images/replynow.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 回复</a>&nbsp;") 
            Response.Write("<a href=delete.asp?id="&rs("ID")&"><img src=""images/del.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> 删除</a>&nbsp;&nbsp;<a href=""javascript:scroll(0,0)""><img src=""images/gotop.gif"" width=""15"" height=""15"" border=""0"" align=""absmiddle"">")
            Response.Write("顶端</a></td></tr></table></td></tr></table><br>")
      i=i+1
      if i>=maxsize then exit do
	  rs.movenext
	  loop
End sub
</script>
<meta http-equiv="refresh" content="180">
<title><%=webname%>留言本首页</title>
<script language="JavaScript">
function openWindow(url) {
  popupWin = window.open(url, 'new_page', 'width=420,height=220')
}
function xxg(){
f1v = document.form1.page.value;
if(isNaN(f1v)){
  alert("请输入数字！");
  document.form1.page.focus();
  document.form1.page.select();
  return false;
 }
 document.form1.Submit.disabled = 1;
 return true;
 }
</script>
<% If Session("kenanbook")<>"" Then %>
<script language=javascript> 
function rusure()
{ question = confirm("你 确 定 要 退 出 管 理 吗?\n\n----------如果点击确定则退出\n\n----------如果点击取消则返回！！") 
if (question !="0")
{ parent.right.location = "loginout.asp" } 
} 
</script>
<% End If  %>
</head>
<script language="vbscript" runat="server">
ipcheck() 
search=Request("search")
key=Request("key")
op=Request("op")
mysearch = request.ServerVariables("QUERY_STRING")
If UCase(op) = "OR" Then
   op = "OR"
Else
   op = "AND"
End If                      '-------->确定 与 或 的关系
If instr(search,CHR(32))<>"" Then   '-->利用这条语句来判断用户是否在语句之间输入了空格
	aryKeywords = Split(search, " ")          '-->如果带有空格则执行以下程序
		sql = "select * from content where"
						For i = 0 To UBound(aryKeywords)
							SQL = SQL & tempJoinWord & "(" & _
							key&" LIKE '%" & aryKeywords(i) & "%' "&op&" " & _												
							key&" LIKE '%" & aryKeywords(i) & "%')"
								tempJoinWord =  op							
						Next
Else 
		sql="select * from content where "&key&" like '%"&search&"%' "    '--------->如果没有空格则执行此语句
End If
sql = sql & " order by id desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1,3
If rs.bof and rs.eof Then
   call header()
   Response.Write("<center><br><br><br><br><br><br><br><br>对不起。没有搜索到任何留言！<a href=index.asp>请返回吧！</a><br><br><br><br><br><br><br></center>")
   call rsclose()
   call connclose()
   footer()
Else
      rs.pagesize=maxsize
'**********************分页程序*******************************************
	  dim currentpage,page,pagenum
	  max=rs.recordcount
	  pages=max/maxsize
	  dim seagotopage '-------------------->注意！！在这里定义分页程序所跳转的页面
	  seagotopage="searchok.asp"    '----->如果这个程序的页面发生改变。可以设定值改变它
      Rem 以下为判断分页逻辑
	      if pages>int(pages) then
			   pagenum=int(pages)+1
	      else
			   pagenum=int(pages)
	      end if
	      if trim(request("page"))<>"" then
		    	currentpage=Clng(request("page"))
		        if currentpage=0 then currentpage=1
		        if currentpage>rs.pagecount then
			       currentpage=rs.pagecount
		        end if
	     else
		 currentpage=1
	     end if
	     rs.absolutepage=currentpage   
'******************************************************************   
  header() 
  Response.Write("<br>")
  main()
  If rs.pagecount>1 Then
     showpage()
  End If
  rsclose()
  connclose()
  footer()
End If 
</script>
</body>
</html>
<%function GoToPage(mysearch,page)
    dim lens,s1,s2,pos,i
    lens = len(mysearch)
    pos = instr(mysearch,"page=")
    if pos = 0 or IsNull(pos) then pos = instr(mysearch,"PAGE=")
    if pos = 0 or IsNull(pos) then
        GoToPage = mysearch & "&page=" & page
        exit function
    end if
    s1 = left(mysearch,pos - 1 + len("page="))
    i = pos + len("page=")
    do while (i <= lens) and (mid(mysearch,i,1) <> "&")
        i = i + 1
    loop
    if i > lens then
        GoToPage = s1 & page
    else
        s2 = right(mysearch,lens - i)
        GoToPage = s1 & page & "&" & s2
    end if
end function              '-----------------------> 定义页面跳转时的 Querystring

  %>