csearch.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="log_lib.asp" -->

<script>
function runEx(cod1)  {
 cod=document.all(cod1)
  var code=cod.value;
  if (code!=""){
  var newwin=window.open('','','');  
  newwin.opener = null 
  newwin.document.write(code);  
  newwin.document.close();
}
}

function check(theForm) {
	if(theForm.ckey.value == ""  ) {
		alert("关键词不能为空");
		return false;
	}
}
</script>

<%
sql="select * from moban where m_id="&m_id&""
set rs=conn.EXECUTE(sql)

if rs.eof or rs.bof then
   sql="select * from moban where m_id=1"
   set rs=conn.EXECUTE(sql)
end if

mb_code=rs("m_html")
rs.close
set rs=nothing
'=====================================写入登陆信息
checkuser()
mb_code=replace(mb_code,"$checkuser$",check_user)
'=======================================写入日历
calenda l_year,l_month,l_day
mb_code=replace(mb_code,"$calenda$",ccode)
'=======================================写入Top10
getTop()
mb_code=replace(mb_code,"$top10$",tcode)
'=======================================写入RSS
getRss()
mb_code=replace(mb_code,"$rss$",rsscode)
'=======================================写入日志信息
getloginfo()
mb_code=replace(mb_code,"$log_info$",icode)
'=======================================写入分类列表
getcatlist()
mb_code=replace(mb_code,"$log_cat_list$",lcode)
'=======================================写入搜索表单
getsearchcode()
mb_code=replace(mb_code,"$search_form$",sccode)
'=======================================写入内容

dim viewtype,ASPLOG,sql_view,urladd,otime,bdate,Mcode
dim plist,maxpages,mypage
sub getmaincode
		  viewtype=request("vt")

		if not isempty(request("page")) then
                    Mypage=cint(Request("page"))
                else
                    Mypage=1
                end if

                  set ASPLOG = Server.CreateObject("ADODB.Recordset")
		  
		  select case viewtype
             case "search"
                  if cat_id=0 then
                     sadd=" "
                  else
                     sadd=" and cat_id="&cat_id&" "
                  end if
		  ckey=trim(request.form("ckey"))
		  sql_view="SELECT * FROM log_r WHERE (log_r_content like '%"&ckey&"%') "&sadd&" ORDER BY log_r_id desc" 
                  urladd="vt=search&ckey="&ckey
		  txtadd="关键词[<b>"&ckey&"</b>] 得到"		


		  end select
		  if sql_view="" then
                        sql_view="SELECT * FROM log_r ORDER BY log_r_id desc"
                        urladd="vt=default"
                        txtadd="共有" 
			'sql_view="SELECT top 5 * FROM log ORDER BY log_id desc"
			'txtadd="本页显示最新添加的 "
	          end if
		  'set ASPLOG=conn.EXECUTE(sql_view)
		  ASPLOG.open sql_view,conn,1,1
		  
		  if ASPLOG.eof then
		     mcode=mcode&"<p align=center style=color:red>没有搜索到包含关键词<b>"&ckey&"</b>的评论！</p>"
                     exit sub
		  end if

Mypagesize=20	'每页显示评论数
ASPLOG.pagesize=Mypagesize
maxpages=cint(ASPLOG.pagecount)
totalsize=cint(Mypagesize)
ASPLOG.absolutepage=Mypage
GuestTotal=ASPLOG.RecordCount
cNum=GuestTotal - Mypage*Mypagesize + Mypagesize

if cint(Mypage) >1 then
    if cint(Mypage) > maxpages then
	     mcode=mcode&"嘿嘿，所翻到的这一页是空白的,请不要捣乱"
         exit sub
    end if
end if

pagelink

mcode=mcode&"<table width='100%' border='0' cellspacing='0' cellpadding='4'><tr><td><img src='images/lead.gif' hspace='4' align='absmiddle'>"&txtadd&""&GuestTotal&"篇评论 | 每页显示"&MyPageSize&"篇 | 第"&cint(Mypage)&"页 [共"&maxpages&"页]&nbsp;<br><font style='font-size:10px'>&nbsp;&nbsp;"&plist&"</font></td></tr></table>"

mcode=mcode&"<table width=100% border=0 cellspacing=1 cellpadding=2 bgcolor='"&color1&"'><tr bgcolor="&color1&" align=center><td width=40><b>编号</b></td><td><b>评论内容索引</b></td><td><b>评论人</b></td><td><b>发表时间</b></td></tr>"

ic = 0
  total = 0

  do until ASPLOG.Eof or total = totalsize
  
  if ic = 0 then 
    CColor = Color2 
  else 
    CColor = Color1
  end if
  if ASPLOG.Eof or ASPLOG.Bof then
	mcode=mcode&"<td colspan=4>Sorry, 暂时没有评论</td>"
  end if
	mcode=mcode&"<tr bgcolor='"&ccolor&"'>"
	mcode=mcode&"<td align=center class=eng>"&cNum&"</td>"
	mcode=mcode&"<td><a href=""showlog.asp?log_id="& ASPLOG("log_ID") &""">"&unHtml(FormatTitle(ASPLOG("log_r_content")))&"</a></td>"
	mcode=mcode&"<td>"&ASPLOG("log_r_author")&"</td>"
	mcode=mcode&"<td class=eng align=center>"&ASPLOG("r_written_time")&"</td></tr>"
  ASPLOG.MoveNext
  cNum = cNum - 1
  ic = ic + 1
  if ic = 2 then ic = 0
  total = total + 1
  loop                  
	mcode=mcode&"</table>"


  mcode=mcode&"<table width='100%' border='0' cellspacing='0' cellpadding='4'><tr><td><font style='font-size:10px'>&nbsp;&nbsp;"&Plist&"</font></td></tr></table>"



ASPLOG.close
set ASPLOG=nothing
end sub


'===================================================内容结束
getmaincode
mb_code=replace(mb_code,"$main_content$",mcode)


response.write mb_code


%>

<%

function PageLink  
  
PageShowSize = 10  
Scriptname=Request.Servervariables("script_name")  
PageNextSize=int((MyPage-1)/PageShowSize)+1  
Pagetpage=int((GuestTotal-1)/MyPageSize)+1  
  
if Maxpages > 1 then  
   if PageNextSize >1 then  
       PagePrev=PageShowSize*(PageNextSize-1)  
       plist=plist&"<a href='" & Scriptname & "?"&urladd&"&page=" & PagePrev & "'>[<<]</a>-"  
   end if  
   if Mypage-1 > 0 then  
       Prev_Page = MyPage - 1  
       plist=plist&"<a href='" & Scriptname & "?"&urladd&"&page=" & Prev_Page & "'>[<]</a> "  
   end if  
   if maxpages>=PageNextSize*PageShowSize then  
       PageSizeShow = PageShowSize  
   else  
       PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)  
   end if  
   for PageCounterSize=1 to PageSizeShow  
       PageLink = (PageCounterSize+PageNextSize*10)-10  
       if PageLink <> cint(Mypage) then  
	   plist=plist&"<a href='" & Scriptname & "?"&urladd&"&page=" & PageLink & "'>[" & PageLink & "]</a> "  
       else  
           plist=plist&PageLink  & "  "  
       end if   
   next  
   if Mypage+1 <=Pagetpage  then  
       Next_Page = MyPage + 1  
       plist=plist& "<a href='" & Scriptname & "?"&urladd&"&page=" & Next_Page & "'>[>]</a>"  
   end if  
   if maxpages > PageShowSize*PageNextSize then  
       PageNext = PageShowSize * PageNextSize + 1  
       plist=plist& "-<a href='" & Scriptname & "?"&urladd&"&page=" & PageNext & "'>[>>]</a>"  
   end if  
   else  
       plist=plist&"[1]"
end if  
END function

conn.close
set conn=nothing
%>

<!--#include file="bottom.asp"-->