tagssearch.asp

一套非常实用的博客源代码,功能全,界面简单易用.

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<!--#include file="header.asp" -->
<div class="GuoBlog_Main">
  <div class="GuoBlog_Left">
<%
	Dim log_Year,log_Month,log_Day,cateID,SQLFiltrate,Url_Add,mfyn,viewMode,url_view,tag
	log_Year=CheckStr(Trim(Request.QueryString("log_Year")))
	log_Month=CheckStr(Trim(Request.QueryString("log_Month")))
	log_Day=CheckStr(Trim(Request.QueryString("log_Day")))
	cateID=CheckStr(Trim(Request.QueryString("cateID")))
	tag=CheckStr(Trim(Request.QueryString("tags")))
	
	viewMode=session("viewMode")

	SQLFiltrate="WHERE "
	Url_Add="?"
	if viewMode="" or viewMode=empty then
	   viewMode="viewNormal"
	end if
	
	If Request.QueryString("viewMode")="viewList" Then
        viewMode="viewList"
        Session("viewMode")="viewList"
    ElseIf Request.QueryString("viewMode")="viewNormal" Then
        viewMode="viewNormal"
        Session("viewMode")="viewNormal"
    End If
	
	IF IsInteger(cateID)=True Then
		SQLFiltrate=SQLFiltrate&" log_CateID="&CateID&" AND"
		Url_Add=Url_Add&"CateID="&CateID&"&"
	End IF
	IF IsInteger(log_Year)=True Then
		SQLFiltrate=SQLFiltrate&" log_PostYear="&log_Year&" AND"
		Url_Add=Url_Add&"log_Year="&log_Year&"&"
	End IF
	IF IsInteger(log_Month)=True Then
		SQLFiltrate=SQLFiltrate&" log_PostMonth="&log_Month&" AND"
		Url_Add=Url_Add&"log_Month="&log_Month&"&"
	End IF
	IF IsInteger(log_Day)=True Then
		SQLFiltrate=SQLFiltrate&" log_PostDay="&log_Day&" AND"
		Url_Add=Url_Add&"log_Day="&log_Day&"&"
	End IF
	If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then
	ELSE
	   SQLFiltrate=SQLFiltrate&" log_mode<>'草稿' AND "
	End IF
	IF tag<>empty then
	   SQLFiltrate=SQLFiltrate & " tagsName = '"&tag&"' AND "
	End IF
    Call MemberCenter
	Response.Write("<br>")
	Call Calendar(log_Year,log_Month,log_Day)
	Response.Write("<br>")
	Call topblogs
	Response.Write("<br>")
	Call NewCommList
	Response.Write("<br>")
	Call SiteInfo
	Response.Write("<br>")
	Call blogSearch
	%>
      <br>
  </div>
	 <div class="GuoBlog_Right">
<div class="GuoBlog_SearchTag">
	     <form action="TagsSearch.asp" method="get" name="SearchTag">
		   <input name="tags" type="text" size="40" maxlength="50"><input type="submit" value=" Search Tags ">
		 </form>
  </div>
<%
IF tag=Empty Then
	Response.Write("<div class=""message"">对不起，您没有提供Tag，无法为您提供数据。<br><br><a href=default.asp>请点击返回</a></div>")
Else
Dim CurPage
If CheckStr(Request.QueryString("Page"))<>Empty and isnumeric(Request.QueryString("Page")) Then
	Curpage=CheckStr(Request.QueryString("Page"))
	If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
	Curpage=1
End If

Dim webLog
Set webLog=Server.CreateObject("Adodb.Recordset")

'SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C "&SQLFiltrate&" C.cate_ID=L.log_CateID ORDER BY log_IsTop DESC,log_ID DESC"
SQL="SELECT blog_Content.*, blog_Category.cate_Name AS cate_Name,Blog_tag.TagsName AS TagsName FROM blog_Content LEFT OUTER JOIN blog_Category ON blog_Content.log_CateID = blog_Category.cate_ID LEFT OUTER JOIN Blog_tag ON blog_Content.log_ID = Blog_tag.Blog_ID "&SQLFiltrate&" 1=1 ORDER BY blog_Content.log_IsTop DESC, blog_Content.log_ID DESC"
webLog.Open SQL,znwl,1,1
SQLQueryNums=SQLQueryNums+1
If webLog.EOF AND webLog.BOF Then 
	Response.Write("<div class=""message"">暂时没有 <b>"&tag&"</b> 此标签的日志！</div>")
Else
	Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,log_modes,log_mf,log_key,log_tags
	log_key="B"
	if viewMode="viewList" then
	   blogPerPage=blogPerPage*8
	end if
	webLog.PageSize=blogPerPage
	webLog.AbsolutePage=CurPage
	Log_Num=webLog.RecordCount
    Response.Write ("<div class=""GuoBlog_tagsT"">")
    Response.Write ("<span class=""GuoBlog_Tags_font"">&nbsp;&nbsp;<a href=""tags.asp"">Tags</a>:"&tag&"</span>")
    Response.Write ("<br /><br />&nbsp;&nbsp;&nbsp;共有 "&Log_Num&" 篇日志使用了该Tag </div>")
	Dim Log_Num,MultiPages,PageCount,pageurls
	if log_Num>blogperpage then
	MultiPages="<table width=""98%""  border=""0"" cellspacing=""0"" cellpadding=""5""><tr><td width=""73%"">"&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add&"tags="&tag&"&")&"</td><td width=""25%""><div align=""right""><img src=""images/normal.gif"" alt=""按摘要模式显示"" align=""absmiddle"" /> <a href="""&url_add&"viewMode=viewNormal&tags="&tag&""">摘要模式</a> | <img src=""images/list.gif"" alt=""按列表模式显示"" align=""absmiddle"" /> <a href="""&url_add&"viewMode=viewList&tags="&tag&""">列表模式</a></div></td></tr></table>"
	'MultiPages="<div class=""smalltxt"">"&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&"</div> <a href="&url_view&">摘要模式</a> | <a href="&url_view&">列表模式</a>"
	Response.Write(MultiPages)
	else
	response.write "<table width=""98%""  border=""0"" cellspacing=""0"" cellpadding=""5""><tr><td width=""73%""> </td><td width=""25%""><div align=""right""><img src=""images/normal.gif"" alt=""按摘要模式显示"" align=""absmiddle"" /> <a href="""&url_add&"viewMode=viewNormal&tags="&tag&""">摘要模式</a> | <img src=""images/list.gif"" alt=""按列表模式显示"" align=""absmiddle"" /> <a href="""&url_add&"viewMode=viewList&tags="&tag&""">列表模式</a></div></td></tr></table>"
	end if
	if viewMode="viewList" then
	response.write "<table width=""98%""  border=""0"" cellspacing=""1"" cellpadding=""3"" bgcolor=""#cccccc""><tr><td width=""10%"" height=""35"" background=""images/blog_title_bg.gif"" bgcolor=""#ffffff""><div align=""center"" style=""font-weight: bold"">分类</div></td><td width=""56%"" background=""images/blog_title_bg.gif"" bgcolor=""#ffffff""><div align=""center"" style=""font-weight: bold"">标题</div></td><td width=""8%"" background=""images/blog_title_bg.gif"" bgcolor=""#ffffff""><div align=""center"" style=""font-weight: bold"">作者</div></td><td width=""15%"" background=""images/blog_title_bg.gif"" bgcolor=""#ffffff""><div align=""center"" style=""font-weight: bold"">发布时间</div></td><td width=""11%"" background=""images/blog_title_bg.gif"" bgcolor=""#ffffff""><div align=""center"" style=""font-weight: bold"">点击/回复</div></td></tr>"
    Do Until webLog.EOF OR PageCount=blogPerPage
	    weblog_ID=weblog("log_ID")
		log_IsShow=weblog("log_IsShow")
		log_Author=webLog("log_Author")
		log_IsTop=weblog("log_IsTop")
		log_modes=weblog("log_mode")
		log_mf=weblog("log_mf")
		log_key=weblog("log_key")
		log_tags=weblog("log_tags")
		'log_key="d"
		log_Weather=Split(weblog("log_Weather"),"|")
		log_Intro=Replace(webLog("log_Intro"),"&#39;&#39;","&#39;")

	   If IsInteger(cateID)=False Then
			log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&""">"
			pageurls="blogview.asp?logID="&weblog_ID
		Else
			log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&"&cateID="&cateID&""">"
			pageurls="blogview.asp?logID="&weblog_ID&"&cateID="&cateID
		End If
		
		'首页显示分页
		
		pcounts = ubound(split(weblog("log_content"),"[page][/page]"))
		If pcounts>0 then
		   paa="<img src=""images/page.gif"" alt=""PAGES"" align=""absmiddle"" />"
		   If pcounts>4 then
		   For pis=1 to 4
		       paa = paa & " <a href=""" & pageurls & "&pages=" & pis & """>" & pis &"</a>"
		   Next
		       paa = paa & " ... <a href=""" & pageurls & "&pages=" & pis & """>" & pcounts & "</a>"
		   Else
		   For pis=1 to pcounts
		       paa = paa & " <a href=""" & pageurls & "&pages=" & pis & """>" & pis &"</a>"
		   Next
		   End if