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">[color=Red]<xsl:call-template name="mingxing" />[/color]<xsl:call-template name="link" /><xsl:call-template name="index_bottom" /></xsl:if>
</xsl:template>
...
[color=Red]<xsl:template name="mingxing">
<br />
{!mingxing}
</xsl:template>[/color]
<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()
[color=Red]'-------- 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 --------[/color]
Set XMLDom=Nothing
Set proc=Nothing
End If
End Sub
评论（0）
暂无评论。