程序修改 订阅所有【程序修改】的日志

三列带后台社区明星 FOR DVBBS7.1.0Sp1(20070703更新)

编辑:dnawo 日期:2007-07-03

字体大小: 小 中 大
本插件作者为锋芒不露，最初版本适用于DV7.0，阿飛在此基础上修改出适用于DV7.1的版本，当我将阿飛修改的安装到Dv7.1.0Sp1上时出现了一些问题，于是在阿飛的基础上再次做了修改。

2007-07-03修改列表：

1.将mingxing.asp中mingxing()子过程改为函数过程
2.会员信息查看窗口不限制大小
3.修改插件原先调用方式，插入位置更灵活
4.删除admin_mingxing.asp错误的包含语句：<!--#include file="../inc/dv_loadcache.asp"-->

插件下载：

点击下载

插件调用方法：

1.将所有文件复制粘贴到论坛文件夹

2.后台"风格界面模板总管理"中修改“page_index→template.html(0)”(红色部分新增)：

复制内容到剪贴板程序代码 程序代码
...
<xsl:template  match="/">
<xsl:if test="BoardList/@boardid=0"><xsl:call-template name="welcome" /></xsl:if>
<xsl:call-template name="main" />
<xsl:if test="BoardList/@boardid=0"><xsl:call-template name="mingxing" /><xsl:call-template name="link" /><xsl:call-template name="index_bottom" /></xsl:if>
</xsl:template>
...
<xsl:template name="mingxing">
<br />
{!mingxing}
</xsl:template>
<xsl:template name="link">
<div class="th" style="margin-top:12px;"><xsl:text disable-output-escaping="yes" >  </xsl:text>-=> 友情论坛</div>
<div class="mainbar3">
...

3.后台"风格界面模板总管理"中修改“page_admin→template.html(0)”：

在最末增加右边代码"@@<a href=admin_mingxing.asp target=main>明星显示设置</a>"

4.index.asp开始处增加语句：“<!--#include file="dv_plus/mingxing/mingxing.asp"-->”

5.修改index.asp文件中transform_BoardList函数：

复制内容到剪贴板程序代码 程序代码
Sub transform_BoardList()
    Dim proc,XMLStyle
    If (Not Response.IsClientConnected) and Dvbbs.userid=0 Then
        Response.Clear
        Session(Dvbbs.CacheName & "UserID")=empty
        Response.End
    Else
        If Not IsObject(Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID)) Then
            Set Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID)=Server.CreateObject("Msxml2.XSLTemplate" & MsxmlVersion)
            Set XMLStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
            XMLStyle.loadxml template.html(0) ' Server.MapPath("index.xslt")
            Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID).stylesheet=XMLStyle
        End If
        Set proc = Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID).createProcessor()
        proc.input = XMLDom
        proc.transform()
        '-------- mingxing begin --------
        Dim strTemp
        strTemp = "<table cellpadding=""6"" cellspacing=""1"" align=""center"" class=""tableBorder1"" width=""98%"" class=""th""><TR><Th colSpan=""6"" align=""left"">-=> 社区明星 "
        if request("action1")="mingxing" then
            strTemp = strTemp & "[<a href=""index.asp?action1=&action="&request("action")&""" style=""font-weight:normal;color:white;font-weight:bold;"">显示详细列表</a>]</th></tr>"
        else
            strTemp = strTemp & "[<a href=""index.asp?action="&request("action")&"&action1=mingxing"" style=""font-weight:normal;color:white;font-weight:bold;"">关闭详细列表</a>]</th></tr>"
        end if
        if request("action1")<>"mingxing" then
            strTemp = strTemp & mingxing()
        end if
        strTemp = strTemp & "</font></table>"

        Dim strContent
        strContent = proc.output
        strContent = Replace(strContent,"{!mingxing}",strTemp)
        Response.Write strContent
        '-------- mingxing end --------
        Set XMLDom=Nothing
        Set proc=Nothing
    End If
End Sub


上一篇: 借助批处理进行DW模板类站点更新
下一篇: 瑞星防火墙密码保护规则设置不当导致163、126邮箱无法登陆
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
评论: 1 | 引用: 0 | 查看次数: 4976
发表评论
请登录后再发表评论！