www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > Tags.asp
<%@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>以下是分类 <b>"&classname&"</b> 的标签<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 %>