欢迎光临

木子屋

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

作者: dnawo

日期: 2007-07-03 08:47 AM

分类: 程序修改

内容: 本插件作者为锋芒不露，最初版本适用于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

+ 查看当前日志评论 (1)

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.619 ms

返回

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

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.619 ms

返回

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.666 ms

返回