上一篇
下一篇
pjblog3静态化友情连接
作者:情留メ蚊子 日期:2008-08-31
引用内容演示http://www.94qing.com/bloglink.asp 自动301到bloglink.htm
生成HTML后，原地址（bloglink.asp）会自动301到新地址。
当后台没有设置全静态时，HTML不会随着bloglink的变动而重新更新。
修改方法：
打开bloglink.asp找到第一个
复制内容到剪贴板
程序代码
程序代码<%
在下面插入：
复制内容到剪贴板 程序代码
程序代码If blog_postFile = 2 Then
If request("action") <> "postLink" Then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","bloglink.html"
Response.End
End If
End If
If request("action") <> "postLink" Then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","bloglink.html"
Response.End
End If
End If
打开control/f_control.asp找到
复制内容到剪贴板 程序代码
程序代码Sub PostLink()
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/Link.asp")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Dim blog_Links, ImgLink, TextLink
Set blog_Links = conn.Execute("select * from blog_Links where link_IsShow=true order by link_Order asc")
Do Until blog_Links.EOF
If Len(blog_Links("link_Image"))>0 Then
ImgLink = ImgLink&"<a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_Name")&""" border=""0"" style=""margin:3px;width:88px;height:31px""/></a>"
Else
TextLink = TextLink&"<div class=""link"" style=""width:108px;float:left;overflow:hidden;margin-right:8px;height:24px;line-height:180%""><a href="""&blog_Links("link_URL")&""" target=""_blank"" title="""&blog_Links("link_Name")&""">"&blog_Links("link_Name")&"</a></div>"
End If
blog_Links.movenext
Loop
Temp = Replace(Temp, "<$ImgLink$>", ImgLink)
Temp = Replace(Temp, "<$TextLink$>", TextLink)
SaveArticle = SaveToFile(Temp, "post/link.html")
End If
End Sub
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/Link.asp")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Dim blog_Links, ImgLink, TextLink
Set blog_Links = conn.Execute("select * from blog_Links where link_IsShow=true order by link_Order asc")
Do Until blog_Links.EOF
If Len(blog_Links("link_Image"))>0 Then
ImgLink = ImgLink&"<a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_Name")&""" border=""0"" style=""margin:3px;width:88px;height:31px""/></a>"
Else
TextLink = TextLink&"<div class=""link"" style=""width:108px;float:left;overflow:hidden;margin-right:8px;height:24px;line-height:180%""><a href="""&blog_Links("link_URL")&""" target=""_blank"" title="""&blog_Links("link_Name")&""">"&blog_Links("link_Name")&"</a></div>"
End If
blog_Links.movenext
Loop
Temp = Replace(Temp, "<$ImgLink$>", ImgLink)
Temp = Replace(Temp, "<$TextLink$>", TextLink)
SaveArticle = SaveToFile(Temp, "post/link.html")
End If
End Sub
替换成：
复制内容到剪贴板 程序代码
程序代码Sub PostLink()
If blog_postFile = 1 Then
PostLink_auto
ElseIf blog_postFile = 2 Then
PostLink_html
End If
End Sub
Sub PostLink_auto()
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/Link.asp")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Dim blog_Links, ImgLink, TextLink
Set blog_Links = conn.Execute("select * from blog_Links where link_IsShow=true order by link_Order asc")
Do Until blog_Links.EOF
If Len(blog_Links("link_Image"))>0 Then
ImgLink = ImgLink&"<a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_Name")&""" border=""0"" style=""margin:3px;width:88px;height:31px""/></a>"
Else
TextLink = TextLink&"<div class=""link"" style=""width:108px;float:left;overflow:hidden;margin-right:8px;height:24px;line-height:180%""><a href="""&blog_Links("link_URL")&""" target=""_blank"" title="""&blog_Links("link_Name")&""">"&blog_Links("link_Name")&"</a></div>"
End If
blog_Links.movenext
Loop
Temp = Replace(Temp, "<$ImgLink$>", ImgLink)
Temp = Replace(Temp, "<$TextLink$>", TextLink)
SaveArticle = SaveToFile(Temp, "post/link.html")
End If
End Sub
Sub PostLink_html()
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/bloglink.html")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Dim blog_Links, ImgLink, TextLink
Set blog_Links = conn.Execute("select * from blog_Links where link_IsShow=true order by link_Order asc")
Do Until blog_Links.EOF
If Len(blog_Links("link_Image"))>0 Then
ImgLink = ImgLink&"<a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_Name")&""" border=""0"" style=""margin:3px;width:88px;height:31px""/></a>"
Else
TextLink = TextLink&"<div class=""link"" style=""width:108px;float:left;overflow:hidden;margin-right:8px;height:24px;line-height:180%""><a href="""&blog_Links("link_URL")&""" target=""_blank"" title="""&blog_Links("link_Name")&""">"&blog_Links("link_Name")&"</a></div>"
End If
blog_Links.movenext
Loop
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, "<$skin$>", blog_DefaultSkin)
Temp = Replace(Temp, "<$blogabout$>", blogabout)
Temp = Replace(Temp, "<$blog_version$>", blog_version)
Temp = Replace(Temp, "<$comDesc$>", "Desc")
Temp = Replace(Temp, "<$CookieName$>", CookieName)
Temp = Replace(Temp, "<$LogID$>", 0)
Temp = Replace(Temp, "<$ImgLink$>", ImgLink)
Temp = Replace(Temp, "<$getcode$>", getcode())
Temp = Replace(Temp, "<$TextLink$>", TextLink)
SaveArticle = SaveToFile(Temp, "bloglink.html")
End If
End Sub
Sub InstallPlugins
If blog_postFile = 1 Then
PostLink_auto
ElseIf blog_postFile = 2 Then
PostLink_html
End If
End Sub
Sub PostLink_auto()
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/Link.asp")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Dim blog_Links, ImgLink, TextLink
Set blog_Links = conn.Execute("select * from blog_Links where link_IsShow=true order by link_Order asc")
Do Until blog_Links.EOF
If Len(blog_Links("link_Image"))>0 Then
ImgLink = ImgLink&"<a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_Name")&""" border=""0"" style=""margin:3px;width:88px;height:31px""/></a>"
Else
TextLink = TextLink&"<div class=""link"" style=""width:108px;float:left;overflow:hidden;margin-right:8px;height:24px;line-height:180%""><a href="""&blog_Links("link_URL")&""" target=""_blank"" title="""&blog_Links("link_Name")&""">"&blog_Links("link_Name")&"</a></div>"
End If
blog_Links.movenext
Loop
Temp = Replace(Temp, "<$ImgLink$>", ImgLink)
Temp = Replace(Temp, "<$TextLink$>", TextLink)
SaveArticle = SaveToFile(Temp, "post/link.html")
End If
End Sub
Sub PostLink_html()
Dim LoadTemplate, Temp, SaveArticle
LoadTemplate = LoadFromFile("Template/bloglink.html")
If LoadTemplate(0) = 0 Then '读取成功后写入信息
Temp = LoadTemplate(1)
Dim blog_Links, ImgLink, TextLink
Set blog_Links = conn.Execute("select * from blog_Links where link_IsShow=true order by link_Order asc")
Do Until blog_Links.EOF
If Len(blog_Links("link_Image"))>0 Then
ImgLink = ImgLink&"<a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_Name")&""" border=""0"" style=""margin:3px;width:88px;height:31px""/></a>"
Else
TextLink = TextLink&"<div class=""link"" style=""width:108px;float:left;overflow:hidden;margin-right:8px;height:24px;line-height:180%""><a href="""&blog_Links("link_URL")&""" target=""_blank"" title="""&blog_Links("link_Name")&""">"&blog_Links("link_Name")&"</a></div>"
End If
blog_Links.movenext
Loop
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, "<$skin$>", blog_DefaultSkin)
Temp = Replace(Temp, "<$blogabout$>", blogabout)
Temp = Replace(Temp, "<$blog_version$>", blog_version)
Temp = Replace(Temp, "<$comDesc$>", "Desc")
Temp = Replace(Temp, "<$CookieName$>", CookieName)
Temp = Replace(Temp, "<$LogID$>", 0)
Temp = Replace(Temp, "<$ImgLink$>", ImgLink)
Temp = Replace(Temp, "<$getcode$>", getcode())
Temp = Replace(Temp, "<$TextLink$>", TextLink)
SaveArticle = SaveToFile(Temp, "bloglink.html")
End If
End Sub
Sub InstallPlugins
打开common/function.asp在之间
复制内容到剪贴板 程序代码
程序代码<% %>
复制内容到剪贴板 程序代码
程序代码Function getbaseUrl()
'静态页面特有的属性
Dim baseUrl
baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))
getbaseUrl = baseUrl
End Function
'静态页面特有的属性
Dim baseUrl
baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))
getbaseUrl = baseUrl
End Function
1、下载附件中（bloglink.html）文件上传至空间Template/目录下
2、登陆后台，更新友情连接。
谢谢 静￠脉的帮助
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1241
发表评论
