qlwz1

引用:

首发：http://www.94qing.cn/article/40.htm
演示：http://www.94qing.cn/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

打开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

替换成：

复制内容到剪贴板

代码:

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

打开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

1、下载附件中（bloglink.html）文件上传至空间Template/目录下
2、登陆后台，更新友情连接。

谢谢 静￠脉的帮助

习惯

LZ的网站已经被PJBBS定性为AD了。。。 呵呵 。。。
看来是AD没少发啊。。。

那个这个静态友情连接有什么用呢？

qlwz1

AD就AD用图片代替 演示地址

hayden

汗。。。AD呵呵，给管理员说说去

anson

kimwl

其实还不错了，静态的用久了就知道好处了

allenadmin

不懂哈