pjblog3的静态Tag页面
作者:hayden 日期:2008-08-26
效果演示：http://www.mysuc.com/tag.html
相关说明：http://www.mysuc.com/article/pjblog3-dejingtai-Tag-page.htm
生成HTML后，原地址（tag.asp）会自动301到新地址。
当后台没有设置全静态时，HTML不会随着Tag的变动而重新更新。
这两天更新了一下PJBLOG至最新，顺便就把TAG页面给静态化了，欢迎有兴趣的朋友一起偿试。
第一步：tag.asp
查找到以下内容：
程序代码
在查找的代码下增加如下代码
程序代码
If blog_postFile = 2 Then
If request("action") <> "postLink" Then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://www.mysuc.com/tag.html"
Response.End
End If
End If
第二步：cls_logAction.asp
查找到以下内容：
程序代码
在查找的代码下增加如下代码
程序代码
第二点五步,继续查找如下内容（该标记有3处，每处均需做修改）：
程序代码
在查找的代码下增加如下代码
程序代码
[b]第三步，修改common/function.asp
在 %> 标记的前面增加如下内容：
程序代码
至此，民工式的劳动已完毕，开始白领式的劳动~
第四步：下载附件中（tag.html）文件上传至空间Template/目录下
点击下载此文件
第五步：随意的修改一篇文章或添加一篇文章，使TAG自动更新。
第六步：http://你的博客网址/tag.html
第七步：登陆后台，将导航中Tag的链接（tag.asp）修改成 tag.html
第八步：登陆后台，重新更新所有页面（更新所有页面导航中的链接）
至此，静态TAG功能完毕，如有错误，请多包含，欢迎指正。
相关说明：http://www.mysuc.com/article/pjblog3-dejingtai-Tag-page.htm
生成HTML后，原地址（tag.asp）会自动301到新地址。
当后台没有设置全静态时，HTML不会随着Tag的变动而重新更新。
这两天更新了一下PJBLOG至最新，顺便就把TAG页面给静态化了，欢迎有兴趣的朋友一起偿试。
第一步：tag.asp
查找到以下内容：
程序代码<!--内容-->
<%
<%
在查找的代码下增加如下代码
程序代码If blog_postFile = 2 Then
If request("action") <> "postLink" Then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://www.mysuc.com/tag.html"
Response.End
End If
End If
第二步：cls_logAction.asp
查找到以下内容：
程序代码getLog = Array(0, "成功获取日志")
End Function
End Function
在查找的代码下增加如下代码
程序代码Public Function postTag()
If blog_postFile < 2 Then Exit Function
Dim log_Tag, log_TagItem,mytaglist
For Each log_TagItem IN Arr_Tags
log_Tag = Split(log_TagItem, "||")
mytaglist = mytaglist & "<li><a href="""&weburl&"?tag="&Server.URLEncode(log_Tag(1))&""" title=""共包含 "&log_Tag(2)&" 篇日志"" "&setTagclass(getTagSize(log_Tag(2)))&">"&log_Tag(1)&"</a>"
Next
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/tag.html")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Temp = Replace(Temp, "<$CategoryList$>", CategoryList(0))
Temp = Replace(Temp, "<$base$>", getbaseUrl)
Temp = Replace(Temp, "<$siteName$>", siteName)
Temp = Replace(Temp, "<$blog_Title$>", blog_Title)
Temp = Replace(Temp, "<$mytitle$>", "标签云集")
Temp = Replace(Temp, "<$skin$>", blog_DefaultSkin)
Temp = Replace(Temp, "<$blogabout$>", blogabout)
Temp = Replace(Temp, "<$comDesc$>", "Desc")
Temp = Replace(Temp, "<$CookieName$>", CookieName)
Temp = Replace(Temp, "<$LogID$>", 0)
Temp = Replace(Temp, "<$taglist$>", "<ul class=""taglist"">"&mytaglist&"</ul>")
Temp = Replace(Temp, "<$mypages$>", "标签云集")
Temp = Replace(Temp, "<$mypages-titleinfo$>", "Tags Cloud")
SaveArticle = SaveToFile(Temp, "Tag.html")
End If
End Function
Public Function getTagSize(c)
Dim i
For i = 1 To 10
If Int(c)<i * 2.5 Then
getTagSize = 12 + i
Exit Function
End If
Next
getTagSize = 22
End Function
Public Function setTagclass(c)
setTagclass = ""
If c>12 Then setTagclass = "class=""s" & c & """"
End Function
If blog_postFile < 2 Then Exit Function
Dim log_Tag, log_TagItem,mytaglist
For Each log_TagItem IN Arr_Tags
log_Tag = Split(log_TagItem, "||")
mytaglist = mytaglist & "<li><a href="""&weburl&"?tag="&Server.URLEncode(log_Tag(1))&""" title=""共包含 "&log_Tag(2)&" 篇日志"" "&setTagclass(getTagSize(log_Tag(2)))&">"&log_Tag(1)&"</a>"
Next
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/tag.html")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Temp = Replace(Temp, "<$CategoryList$>", CategoryList(0))
Temp = Replace(Temp, "<$base$>", getbaseUrl)
Temp = Replace(Temp, "<$siteName$>", siteName)
Temp = Replace(Temp, "<$blog_Title$>", blog_Title)
Temp = Replace(Temp, "<$mytitle$>", "标签云集")
Temp = Replace(Temp, "<$skin$>", blog_DefaultSkin)
Temp = Replace(Temp, "<$blogabout$>", blogabout)
Temp = Replace(Temp, "<$comDesc$>", "Desc")
Temp = Replace(Temp, "<$CookieName$>", CookieName)
Temp = Replace(Temp, "<$LogID$>", 0)
Temp = Replace(Temp, "<$taglist$>", "<ul class=""taglist"">"&mytaglist&"</ul>")
Temp = Replace(Temp, "<$mypages$>", "标签云集")
Temp = Replace(Temp, "<$mypages-titleinfo$>", "Tags Cloud")
SaveArticle = SaveToFile(Temp, "Tag.html")
End If
End Function
Public Function getTagSize(c)
Dim i
For i = 1 To 10
If Int(c)<i * 2.5 Then
getTagSize = 12 + i
Exit Function
End If
Next
getTagSize = 22
End Function
Public Function setTagclass(c)
setTagclass = ""
If c>12 Then setTagclass = "class=""s" & c & """"
End Function
第二点五步,继续查找如下内容（该标记有3处，每处均需做修改）：
程序代码Call Tags(2)
在查找的代码下增加如下代码
程序代码postTag
[b]第三步，修改common/function.asp
在 %> 标记的前面增加如下内容：
程序代码至此，民工式的劳动已完毕，开始白领式的劳动~
第四步：下载附件中（tag.html）文件上传至空间Template/目录下
点击下载此文件第五步：随意的修改一篇文章或添加一篇文章，使TAG自动更新。
第六步：http://你的博客网址/tag.html
第七步：登陆后台，将导航中Tag的链接（tag.asp）修改成 tag.html
第八步：登陆后台，重新更新所有页面（更新所有页面导航中的链接）
至此，静态TAG功能完毕，如有错误，请多包含，欢迎指正。
评论: 4 | 引用: 0 | 查看次数: -
文章来自: 
引用通告: 
Tags: 
回复[2008-08-31 04:12 PM]
情留メ蚊子能发表 友情连接的静态吗
hayden 于 2008-09-02 03:03 PM 回复
hayden 于 2008-09-02 03:03 PM 回复呵呵，省了我很多步骤
嗯，我也发现了，好像是有些问题~找时间改改。
发表评论