 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="Ex_Cls/Ex_SkinCls.asp"-->
<!--#include file="Ex_Cls/Ex_SplitPageCls.asp"-->
<%
Dim ExComm
Set ExComm=new Ex_CommonCls
ExComm.GetConfigCache("runmode,ShowName,CmtPageSize,IsCheckCode,cmtmsgcheckre,iscmtmsgcheck,LogNum,blogname,BlogDescription,BlogKeyWord,IndexAddWord,blogurl,logourl,DefaultSkin")
ExComm.CheckInstall
ExComm.IsIpAllow
Dim Title,Show_logids,show_blogKeyword
 '**************************************************
 '作  用：显示tags
 '**************************************************
function show_tags()
	Dim classidss,tagssql,tags,strtitle
	Dim ExPages,page
	Set tags=server.CreateObject("adodb.recordset")
	Set ExPages=new Ex_SplitPageCls
	Expages.letConn=Conn 
	Expages.letColumns="select *"
	ExPages.letDataFrom="from Ex_Tags"
	ExPages.letOrder="order by times desc"
	classidss=cint(request.querystring("classid"))
	If ExComm.G(classidss)<>"" And Classidss<>0 Then
		ExPages.letWhere="where classid="&classidss
		strtitle="<div align=left>以下是分类&nbsp;<b>"&classname&"</b>&nbsp;的标签<br>"
	Else
		ExPages.letWhere=""
		strtitle="<div align=left style=""overflow:hidden; margin-left: 20px;"">以下是全部标签排行<br>"
	End if
	Expages.letPageSize=132
	If ExComm.G(request("page"))="" Then
		page=1
	Else
		page=ExComm.G(request("page"))
	End if
	ExPages.letPage=CInt(page)
	ExPages.letStrPage="&id="&ExComm.G(request("id"))&"&classid="&CInt(Request.Querystring("classid"))&"&classname="&ExComm.G(Request.QueryString("classname"))
	ExPages.Execute()
	Set Tags=ExPages.GetRs
	If ExPages.GetRsCount<>0 Then
		show_tags=show_tags&strtitle&"<br>"
		Do While Not tags.eof
			If Application(sn&"runmode")="静态" Then 
				show_tags=show_tags&"<div style=""width: 160px; height: 24px; margin: 3px;float:left;overflow:hidden;""><a href=""html/tags-"&Trim(tags("tagname"))&"-1.html"">"&Trim(tags("tagname"))&"</a><font color=#FF0000>（"&tags("times")&"次）</font></div>"
			Else 
				show_tags=show_tags&"<div style=""width: 160px; height: 24px; margin: 3px;float:left;overflow:hidden;""><a href=""index.asp?action=search&selecttype=tags&keyword="&server.urlencode(Trim(tags("tagname")))&"&classid="&tags("classid")&""">"&Trim(tags("tagname"))&"</a><font color=#FF0000>（"&tags("times")&"次）</font></div>"
			End If 
			tags.movenext
		Loop
	Else
		show_tags=show_tags&"暂无任何标签" 
	End If
	show_tags=show_tags&"</div>" 
	Dim showpage
	showpage=ExPages.show
    show_tags=show_tags&"<br><br><div style=""clear:both;text-align:center;"">"&showpage&"</div>"
 End Function

'主模板标记替换开始
Dim ExSkin,Head,Body,Bottom,Skin1
Set ExSkin=new Ex_SkinCls
Skin1=ExSkin.GetTxtSkin("default.html")
Body=Replace(Skin1,"$show_log$",show_tags)
Body=Replace(Body,"$show_info$",ExSkin.Info)
Body=Replace(Body,"$show_login$",ExSkin.Login)
Body=Replace(Body,"$show_calendar$",ExSkin.calendar("","",""))
Set ExSkin=Nothing    
Bottom=ExComm.BottomInfo
Title="日志引用"
'输出内容
Head=Head&"<html xmlns=""http://www.w3.org/1999/xhtml"">"&vbcrlf
Head=Head&"<head>"&vbcrlf
Head=Head&"<meta http-equiv=""content-type"" content=""text/html; charset=gb2312"">"&vbcrlf
Head=Head&"<meta name=""generator"" content=""易心博客"">"&vbcrlf
Head=Head&"<meta name=""Description"" content="""&Application(sn&"BlogDscription")&""">"&vbcrlf
Head=Head&"<meta name=""Keywords"" content="""&Application(sn&"BlogKeyWord")&""">"&vbcrlf
Head=Head&"<title>"&Title&Application(sn&"IndexAddWord")&"</title>"&vbcrlf
Head=Head&"<script src=""inc/Main.js""></script>"
Head=Head&"<script src=""inc/UserInfo.js""></script>"
Head=Head&"<script src=""inc/jquery.js""></script>"
Head=Head&"<link href=""inc/OblogSkin.Css"" rel=""stylesheet"" type=""text/css"" />"&vbcrlf
Head=Head&"</head>"&vbcrlf
Head=Head&"<body>"&vbcrlf
If ExComm.IsOblogSkin Then 
	Response.Write Head
	Response.Write Body
	Response.Write "</body></html>"
Else
	Body=Replace(Body,"$show_blogtitle$",Title&Application(sn&"IndexAddWord"))
	Body=Replace(Body,"$show_blogkeyword$",Application(sn&"blogkeyword"))
	Body=Replace(Body,"$show_blogdescription$",Application(sn&"blogdescription"))
	Response.Write Body
End If 
If request.querystring("action")="add" Then
Call add()
End if
If Application(Sn&"Runmode")<>"静态" Then 
	ExComm.visitorCount
End If
Set ExComm=Nothing 
%>