广青医疗队2006-2007版旧站演示     
 
您的位置 位置： 广青医疗组 >> 志愿者资讯 >> 公益站长 >> 网络技术 >> 正文
顶 热 荐  5星级  
个性化修改自由动力3.6版全集  
[ 作者：佚名 | 来源：网络 | 录入：seagull8111 | 更新：2005-7-10 | 字体： 字体颜色 ]
特别推荐

1.增加首页友情连接数目：

index.asp查找 friendlist= ShowFriendSite(1,10,1,1) & ShowFriendSite(2,10,1,3)注意第一个10为logo链接数目，第二个10为文字链接数目，分别改成您想要的数目即可！

2.改变首页留言数目和字数：

index.asp查找 TempStr = Replace(TempStr,"{$showGuest}",showGuest(16,8))注意“16”为显示留言标题字数，“8” 为显示留言条数，分别改成您想要的数目即可！

3.增加首页最新下载数目及去掉后面的时间

index.asp查找 sqlNew="select top 8 S.SoftID,S.SoftName,S.SoftVersion,S.Author,S.Keyword,S.UpdateTime,S.Editor,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True order by S.SoftID desc"把 8 改成您想要的数字然后进入后台刷新缓存，就可以改变首页最新下载数目查找 strtemp = strtemp & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href='Soft_Show.asp?SoftID=" & strcol(0) & "' title='软件名称：" & strcol(1) & vbcrlf & "软件版本：" & strcol(2) & vbcrlf & "文件大小：" & strcol(11) & " K" & vbcrlf & "软件作者：" & strcol(3) & vbcrlf & "更新时间：" & strcol(5) & vbcrlf & "下载次数：今日:" & strcol(8) & " 本周:" & strcol(9) & " 本月:" & strcol(10) & " 总计:" & strcol(7) & "' target='_blank'>" & gotTopic(strcol(1) & " " & strcol(2),30) & "</td><td align=right>[<font color=#999999>" & strcol(5) & "</font>]</td></tr></table>"将<td align=right>[<font color=#999999>" & strcol(5) & "</font>]</td> 删去最新下载条目后的时间即可消失！

4.去掉首页图片黄色边框：

后台，网站模板管理，CSS样式管理，查找“ .pic1”将其下面的 border: #ff9900 1px solid; 删除刷新缓存即可！

5.我想改变首页最新文章一栏图片的大小,怎样改?

index.asp找到这一行：TempStr = Replace(TempStr,"{$ShowPicArticle1}",ShowPicArticle(0,1,20,1,1,120,90,200,false,false))注意，120是图片的宽，90是高，分别改成您想要的数字！

6.如何改变最新栏目文章调用的条数和标题字数

inc/function.asp文件查找sql="select top 6 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"将6改成您想要的数字，然后进入点“修改生效”刷新缓存就可以改变调用最新文章的条数！查找在function.asp中找到strtemp = strtemp & ArticleContentshiyu(20,True,True,False,1,False,False)将20改成您想要的数字，然后进入点“修改生效”刷新缓存就可以改变最新文章标题的字数！

7.修改用户控制面板(6-23 20:46:33)

 

把您网站会员经常要用到的功能放在“用户控制面板”是个不错的主意，如果会员的某个需要他找了半天都找不到，他就会放弃而去，或者骂人！我就经常接到网友不止一次留言“我论坛财富能不能转到前台来阅读文章下载软件啊？怎么转换啊？”——其实我们都知道我们的动力3.6已经有这个插件了，但网友找不到！于是我决定把“论坛金钱换网站点数”放到控制面板里，其步骤有两步：第一步：打开inc/function.asp 查找strLogin = strLogin & "<a href=""javascript:openScript('User_ControlPad.asp?Action=ArticleManage')"">文章管理</a>" & vbcrlf在其下加入一行strLogin = strLogin & "<a href=""javascript:openScript('User_ControlPad.asp?Action=Money2Point')"">论坛金钱换网站点数</a>" & vbcrlf第二步：打开User_ControlPad.asp 查找elseif Action="ModifyInfo" then response.write "User_ModifyInfo.asp"在其下插入一行elseif Action="Money2Point" then response.write "User_Money2Point.asp"体会一下本修改，您就可以对控制面板做其他更多随心所欲的修改了！

8.“文章频道”下部“文章栏目导航”显示5个子栏目就换行。能不能改啊？

inc/ function.asp 搜索mod 5=0 改成 mod 你要的栏数 =0 最好是单数

9.首页图片调用现在是4张图片，怎么改成5张了？

index.asp查找sqlNew=sqlNew & "select top 4 P.PhotoID,P.PhotoName,P.PhotoUrl_Thumb,P.Author,P.Keyword,P.UpdateTime,P.Editor,P.Hits,P.DayHits,P.WeekHits,P.MonthHits,P.PhotoSize,P.PhotoLevel,P.PhotoPoint from Photo P where P.Deleted=False and P.Passed=True order by P.PhotoID desc"将这个4变成您想要的数字,然后进入后台"修改生效"即可！不过注意您得在首页为它腾出足够的地方哦（或者把它变成滚动的）。

10.修改相关软件的数目（3.6默认的是5个）(6月28日)

softshow.asp查找<%call ShowCorrelative(5,200)%>将5改成您想要的数目！

11.一个小问题的修改）(6月28日)

inc/syscode_soft.asp查找response.write "<a href='Soft_CommentShow.asp?SoftID=" & SoftID & "'>查看关于此文章的所有评论</a>"改“文章”为“软件”

12.改“文章栏目导航”（文章频道首页下端）每行栏目数(6月28日)：

Article_Index.asp查找if i mod 6=0 then将数字6改成您想要的数字，注意实际每行显示的栏目数为您设置的数目减1

14.修改文章最底级栏目的目录（即“××文章列表”）(6月28日)

A.修改标题字数 Article_Class2.asp 查找response.write ShowArticle(30) 将30换成您想要的数字B.去掉作者 syscode_Article.asp 查找 tmpdata=ArticleContent(TitleLen,True,True,True,2,True,True) 替换为 syscode_Article.asp 查找 tmpdata=ArticleContent(TitleLen,True,True,True,2,True,True)C.修改时间格式 默认的是“2004年6月26日” syscode_Article.asp 查找 tmpdata=ArticleContent(TitleLen,True,True,True,2,True,True) 共有3处，将其中的2分别都改成1，在后台点“修改生效”，可以使时间显示为“06-26”D.每页显示最多文章篇数 Article_Class2.ASP 查找 MaxPerPage=20 将20换成您想要的数字

15.修改网页标题只显示“首页”的问题(6月28日)

第一步：后台网站模板管理——当前模板主模块(Main_Style) 界面风格——nt2003.mainhtml(1)

删掉<title>{$sitename} >> 首页</title>

第二步：打开article_show.asp article_show2.asp

查找<!-- ********网页中部代码开始******** -->

在其下加入一行“<title>历史风云网——<%=ArticleTitle%></title>”（将“历史风云网”换成您网站的名字）

打开soft_show.asp <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">

在其上插入一行<title>历史风云网——<%=SoftTitle%></title>（将“历史风云网”换成您网站的名字）

后台——网站模板管理 ——分页面模板(page_index) | 界面风格 ——<!-- ********网页中部代码开始******** -->

下加入一行<title>历史风云网，给您想看的历史！</title>

后台——网站模板管理 ——分页面模板(page_article_index) | 界面风格 ——<!-- ********网页中部代码开始******** -->

下加入一行<title>历史风云网文章首页</title>

其他地方如果发现没标题也是同样道理修改！

16.我想让网友可以看到我的会员级别的收费文章内容的头10个字而不是上百的字..请问怎么修改呀? （7月1日21时）

inc/syscode_Article.asp查找 ErrMsg="<p align=left><b>内容预览：</b>" & left(nohtml(rs("Content")),300) & "……</p>" & ErrMsg将300换成您想要的数字！

16.在文章浏览页面加个“编辑本文” （7月12日11时）

当您浏览正文时（前台）有时无意发现某篇文章有错误，怎么办？进入后台搜索那篇文章再修改是否麻烦了点，如果我们浏览时可以直接点击“编辑本文”即加入修改页面，不是省事些吗？其实修改起来也非常简单：article_show.asp article_show2.asp搜索| <a href="Article_Print.asp?ArticleID=<% =rs("ArticleID") %>">打印此文</a>将其替换成|<a href="Admin_ArticleModify.asp?ArticleID=<% =rs("ArticleID") %>">编辑此文</a>|看看正文下面是否多了个“编辑本文”？（发表评论 | 告诉好友 | 打印此文 | 后面），如果您以管理身份登陆，点击后可以直接加入修改本文页面，如果非管理点击后打开的是管理登陆界面，不会带来什么安全问题！

17.如何修改网页背景——改变背景颜色或设置背景图片（8月28日22时更新）

后台——网站模板管理——CSS样式管理——修改css内容

将 background-color: #006699;  的#006699替换成您喜欢的背景颜色代码

或者将其替换成 background-image: url(images/bg.gif);

然后将您选中的准备作为背景的图片改名为bg.gif上传到images文件夹中

记得点“修改生效”哦！

 

 

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

艾草：虽然我网页制作能力很差，但我有一颗热心，我会在最短时间内为大家搜集自由动力3.6的修改办法，希望官方团队在适合的时候将发布完全修正版的3.61，那时候这个帖子就退休了！


1.修改导航栏的6个换行限制
2.关于缓存名称的问题及解决方案
3.部分标签的功能
4.论坛不能搜索的问题
5.论坛新贴显示修改
6.文章那个小图标的问题：
7.首页顶部图象修改
8.注册用户添加软件后，管理员在后台审核时出错：
9.图片频道的图片不能发表评论及后台管理出错的解决办法
10.整合动网后的3.6后台管理评论出错的修改方法
11.我想改用户排行按发表文章数显示5个
12.使用原3.51阿江统计的修改方法
13. 首页最新图片滚动的方法
14.动力/动易用户数据导入整合版用户数据库的方法


以下修改方法来自论坛各位大侠，冒昧收集，是为了让大家更好地修改3.6系统，如没有注明来源请谅！
=====================
=====================
修改导航栏的6个换行限制

function.asp

搜索mod 5=0 
改成 mod 你要的栏数 =0 
最好是单数

若改成偶数,则根据你想要的数量*2

比如你想要8个栏目

那你就改成mod 16=0

--------------------------------------------------------------

作者：KKMSL
贴子位置：http://bbs.asp163.net/dispbbs.asp?boardID=34&ID=39841
3、二级栏目菜单实现在指定位置换行的问题
打开INC/function.ASP,找到 if (j-3) mod 5=0 and j<>3 then

把5改成9,然后去后台生成就可以了!!!

 

===================================

关于缓存名称的问题及解决方案
function.asp 18行-23行是cachename初始名字的获取
代码如下：
1 CacheName=Replace(Server.MapPath("\index.asp"),"index.asp","")
2 if right(CacheName,3)="inc" then
3 　CacheName=Replace(CacheName,"inc","")
4 end if
5 CacheName=Replace(CacheName,":","")
6 CacheName=Replace(CacheName,"\","")

问题是如果同一主站下不同目录的时候，会出现同缓存名，我们举一例子来说：
假如本地地址为 f:\wwwroot\fp360609\index.asp 主站地址根wwwroot
1　cachename="f:\wwwroot\"
5　cachename="f\wwwroot\"
6　cachename="fwwwroot"

这个所有缓存的前缀　
比如sitecount缓存，真正的缓存变量名是 fwwwroot_sitecount

解决的办法有三
1　CacheName=Replace(Server.MapPath("\index.asp"),"index.asp","")　这句话修改成CacheName=Replace(Server.MapPath("index.asp"),"index.asp","")　
2　在这句CacheName=Replace(CacheName,"\","")后面加一句
cachename=cachename & "你想设的英文名"
3　不同的主站用不同的根文件夹
==================================

自由动力3.6 修改参考

动力3.5的config.asp                   动力3.6的缓存常量表示（注意3.6没有config.asp)
——————————————————————————————————————————
Const SiteName=动力空间        '网站名称nt2003.site_info(0)
Const SiteTitle=动力空间        '网站标题nt2003.site_info(1)
Const SiteUrl=httpwww.asp163.net;        '网站地址nt2003.site_info(4)
Const LogoUrl=imageslogo.gif        'Logo地址nt2003.site_info(5)
Const BannerUrl=httpwww.czcsefx.comImages200352423053355.gif;        'Banner地址nt2003.site_info(6)
Const WebmasterName=WEBBOY        '站长姓名nt2003.site_info(7)
Const WebmasterEmail=webboy888@163.com        '站长信箱nt2003.site_info(8)
Const Copyright=版权所有 Copyright© 2003 a href='httpwww.asp163.net&#39;动力空间a        '版权信息nt2003.site_info(9)
Const ShowPopMenu=No        '后台是否显示右键菜单nt2003.site_setting(1)
Const ShowSiteChannel=Yes        '是否显示网站频道nt2003.site_setting(2)
Const ShowMyStyle=Yes        '是否显示自选风格nt2003.site_setting(3)
Const ShowClassTreeGuide=No        '是否使用树状导航菜单nt2003.site_setting(4)
Const EnableArticleCheck=Yes        '是否启用文章审核功能nt2003.site_setting(5)
Const EnableGuestCheck=Yes        '是否启用留言审核功能nt2003.site_setting(6)
Const EnableUploadFile=Yes        '是否开放文件上传nt2003.site_setting(7)
Const EnableSaveRemote=Yes        '是否保存远程图片到本地nt2003.site_setting(8)
Const EnableUserReg=Yes        '是否允许新用户注册nt2003.site_setting(9)
Const EmailCheckReg=No        '新用户注册是否需要邮件验证nt2003.site_setting(10)
Const AdminCheckReg=No        '新用户注册是否需要管理员认证nt2003.site_setting(11)
Const EnableLinkReg=Yes        '是否开放友情链接申请nt2003.site_setting(12)
Const PopAnnounce=No        '是否弹出公告窗口nt2003.site_setting(13)
Const HitsOfHot=50        '热门文章点击数nt2003.site_setting(14)
Const SessionTimeout=50        'Session会话的保持时间nt2003.site_setting(15)
Const CommentPurview=999        '发表评论的权限nt2003.site_setting(16)
Const MailObject=Jmail        '邮件发送组件nt2003.site_setting(17)
Const MailServer=pop3.21cn.com        '用来发送邮件的SMTP服务器nt2003.site_setting(18)
Const MailServerUserName=webboy@asp163.net        '登录用户名nt2003.site_setting(19)
Const MailServerPassWord=aaaa        '登录密码nt2003.site_setting(20)
Const MailDomain=asp163.net        '域名nt2003.site_setting(21)
Const MaxFileSize=200        '上传文件大小限制nt2003.site_setting(22)
Const SaveUpFilesPath=UploadFiles        '存放上传文件的目录nt2003.site_setting(23)
Const UpFileType=rargifjpgbmpaspswfexemidmp3        '允许的上传文件类型nt2003.site_setting(24)
Const DelUpFiles=Yes        '删除文章时是否同时删除文章中的上传文件nt2003.site_setting(25)
Const ChargeType_999=1        '注册用户的默认计费方式nt2003.site_setting(26)
Const UserPoint_999=100        '注册用户的默认可用点数nt2003.site_setting(27)
Const ValidDays_999=10        '注册用户的默认有效期nt2003.site_setting(28)
Const ChargeType_99=1        '收费用户的默认计费方式nt2003.site_setting(29)
Const UserPoint_99=500        '收费用户的默认可用点数nt2003.site_setting(30)
Const ValidDays_99=30        '收费用户的默认有效期nt2003.site_setting(31)
Const ChargeType_9=1        'VIP用户的默认计费方式nt2003.site_setting(32)
Const UserPoint_9=5000        'VIP用户的默认可用点数nt2003.site_setting(33)
Const ValidDays_9=300        'VIP用户的默认有效期nt2003.site_setting(34)

部分标签说明（修改模板参考）
序号   标签                 对应变量名                               替换标签的asp文件
1       $width}            nt2003.mainsetting(0)                  function.aspindex.asp 
2      {$PicUrl}                 Site_PicUrl                                           function.asp 
3     {$ShowUserLogin}    ShowUserLogin()                                     index.asp 
4     {$ShowNewArticle}  ShowNewArticle(8,40)                              index.asp 
5     {$ShowPicArticle1} ShowPicArticle(0,1,20,1,1,120,90,200,false,false)       index.asp  
6     {$ShowHot}           ShowHot(10,14)                       index.asp  
7     {$ShowSpecial}          ShowSpecial(10)                     index.asp  
8     {$ShowSiteCountAll}   ShowSiteCountAll                   index.asp
9     {$ShowTopUser}          ShowTopUser(10)              index.asp 
10   {$ShowNewPhoto} ShowNewPhoto                      index.asp 
11   {$ShowFriendSite} friendlist index.asp 0
12   {$ShowPicArticle2}  ShowPicArticle(0,2,14,2,1,100,90,106,false,false) index.asp  
13   {$ShowVote}        nt2003.value                                index.asp
14   {$ShowClassNewarticle} nt2003.showarticleshiyu()    index.asp  
15   {$ShowNewSoft} ShowNewSoft                           index.asp 
16   {$showGuest} showGuest(16,8)                            index.asp 
17   {$ShowNewPhoto} ShowNewPhoto                      index.asp  
18   {$ShowElite}     ShowElite(8,24)                      article_index.asp  
19   {$ShowPicArticle}    ShowPicArticle(0,1,12,1,1,100,75,200,false,false)) article_index.asp  
20  {$ShowPicArticle2}    ShowPicArticle(0,4,18,1,4,120,90,200,false,false)) article_index.asp  
21  {$ShowHot2}   ShowHot(10,14))                   article_index.asp  
22  {$ShowHot1}   ShowHot(10,14)                  article_index.asp 
23  {$ShowSiteCount}   ShowSiteCountAll           article_index.asp  
24  {$ShowTopUser}    ShowTopUser(10)            article_index.asp
25  {$ShowClassNewarticle}   nt2003.showarticleshiyu() article_index.asp  
26  {$ShowClassNavigation}   ShowClassNavigation  article_index.asp  
27  {$call ShowAnnounce} 被删除 ShowAnnounce_article_index(2,1)  article_index.asp  
28   {$showAD1},nt2003.CacheData(7,0)或者为空 article_index.asp  
29  {$ShowFriendSite} friendlist                            article_index.asp  
30  {$ShowVote} nt2003.value                           article_index.asp  

部分标签的功能
{$width}：表格宽度变量；（主模块(Main_Style)基本设置） {$ShowAnnounce}：公告信息变量；
{$ShowUserLogin}用户登录窗口调用；
{$ShowPicArticle1}：最新文章图片调用；
{$ShowNewArticle1}：最新文章标题调用；
{$ShowNewSoft}：最新下载调用；
{$showGuest}：最新留言调用；
{$ShowClassNewarticle}：最新栏目文章调用（分栏目调用）；
{$ShowNewPhoto}：最新图片调用；
{$ShowPicArticle2}：最新图片文章调用；
{$ShowVote}：最新调查调用；
{$ShowHot}：最新热点（热门）调用；
{$ShowSpecial}：专题栏目调用；
{$ShowSiteCountAll}：网站统计调用；
{$ShowTopUser}：用户排行调用；
{$ShowFriendSite}：友情链接调用；

----------------------------------------------------------------------

论坛不能搜索的问题
网站模板管理-->分页面模板(page_index)-->界面风格-->template.html(0)-->
onClick="javascript:document.search.action='forum/queryResult.asp?sType=2&pSearch=1&SearchDate=ALL&Stable=bbs1&boardid=0';document.search.Field.value='Title';"style="background-color: #CEDEFA;"> 论坛
改为
onClick="javascript:document.search.action='bbs/query.asp?sType=2&pSearch=1&SearchDate=ALL&Stable=bbs1&boardid=0';document.search.Field.value='Title';"style="background-color: #CEDEFA;"> 论坛

=====================================
论坛新贴显示修改
首先确认论坛首页调用文件已经修改好（具体见动网说明）
网站模板管理 -->分页面模板(page_index)-->界面风格-->template.html(0)
把其中的论坛调用代码修改为：
<script src='./bbs/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=10&sdate=&orders=4&info=3&action=1&reply=0&showpic=1'></script>
=====================================
文章那个小图标的问题：
打开 article_index.asp 
把
Dim TempStr
Dim ShowAnnounce_article_indexstr 
TempStr = Replace(template.html(0),"{$width}",nt2003.mainsetting(0))
TempStr = Replace(TempStr,"{%ShowUserLogin}",ShowUserLogin()) 
TempStr = Replace(TempStr,"{$ShowElite}",ShowElite(8,24))  
TempStr = Replace(TempStr,"{$PicUrl}",nt2003.Site_PicUrl)      ' 把这一句移动到本节最后
TempStr = Replace(TempStr,"{$ShowPicArticle}",ShowPicArticle(0,1,12,1,1,100,75,200,false,false))
TempStr = Replace(TempStr,"{$ShowPicArticle2}",ShowPicArticle(0,4,18,1,4,120,90,200,false,false)) 
TempStr = Replace(TempStr,"{$ShowHot2}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowHot1}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowSiteCount}",ShowSiteCountAll)
TempStr = Replace(TempStr,"{%ShowSpecial}",ShowSpecial(10))
TempStr = Replace(TempStr,"{$ShowTopUser}",ShowTopUser(10)) 
TempStr = Replace(TempStr,"{$ShowClassNewarticle}",nt2003.showarticleshiyu()) 
TempStr = Replace(TempStr,"{$ShowClassNavigation}",ShowClassNavigation)
TempStr = Replace(TempStr,"{$ShowSearchForm}",ShowSearchForm("Article_search.asp",1)) 
调整为
Dim TempStr
Dim ShowAnnounce_article_indexstr 
TempStr = Replace(template.html(0),"{$width}",nt2003.mainsetting(0))
TempStr = Replace(TempStr,"{%ShowUserLogin}",ShowUserLogin()) 
TempStr = Replace(TempStr,"{$ShowElite}",ShowElite(8,24))  
TempStr = Replace(TempStr,"{$ShowPicArticle}",ShowPicArticle(0,1,12,1,1,100,75,200,false,false))
TempStr = Replace(TempStr,"{$ShowPicArticle2}",ShowPicArticle(0,4,18,1,4,120,90,200,false,false)) 
TempStr = Replace(TempStr,"{$ShowHot2}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowHot1}",ShowHot(10,14))
TempStr = Replace(TempStr,"{$ShowSiteCount}",ShowSiteCountAll)
TempStr = Replace(TempStr,"{%ShowSpecial}",ShowSpecial(10))
TempStr = Replace(TempStr,"{$ShowTopUser}",ShowTopUser(10)) 
TempStr = Replace(TempStr,"{$ShowClassNewarticle}",nt2003.showarticleshiyu()) 
TempStr = Replace(TempStr,"{$ShowClassNavigation}",ShowClassNavigation)
TempStr = Replace(TempStr,"{$ShowSearchForm}",ShowSearchForm("Article_search.asp",1)) 
TempStr = Replace(TempStr,"{$PicUrl}",nt2003.Site_PicUrl)  '就是这一句，是从上面移动下来的

=====================================
 首页顶部图象修改
CSS（51dsn03）修改
.nav_main
{
 background-color: #2C92DC;
 background-image: url(Skin/51dsn03/top_main01.jpg);
 background-repeat: no-repeat;
 height: 138px;
}
说明：我直接把自己的图片改名为top_main01.jpg，然后上传到/skin/51dsn03/下面，由于自己的图片高度为138，所以在这个地方修改为138。
8 修改用户排行个数
把 index.asp 中的 TempStr = Replace(TempStr,"{$ShowTopUser}",ShowTopUser(10))
修改为 TempStr = Replace(TempStr,"{$ShowTopUser}",ShowTopUser(3))

===================================
注册用户添加软件后，管理员在后台审核时出错：

错误类型：
Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'WebmasterName'
/36/Admin_SoftProperty.asp, 第 133 行
答：
Admin_SoftProperty.asp里
在dim....
   dim.....
下加上
dim WebmasterName

一枝梅注：此处应该把所有WebmasterName改成nt2003.site_info(7)

========================================
图片频道的图片不能发表评论及后台管理出错的解决办法
在Photo_Comment.asp文件的第一个
<%
下加上下面一句
nt2003.GetSite_Setting()


在INC/syscode_Photo.asp文件中1079行也就是

response.write "<li>会员"  

 这一行的下面加上下面这段

          IF UserTableType="Dvbbs7.0" then
    set rsCommentUser=Conn_User.execute("select " & db_User_ID & "," & db_User_Name & "," & db_User_Email & "," & db_User_UserIM & " from " & db_User_Table & " where " & db_User_Name & "='" & rsComment("UserName") & "'")
      dim UserIM,homepage,QQ
      UserIM=split(rsCommentUser(3),"|||")
      homepage=UserIM(0)
      QQ=UserIM(1)
    if rsCommentUser.bof and rsCommentUser.eof then
     response.write rsComment("UserName")
    else
     response.write "『<a href='UserInfo.asp?UserID=" & rsCommentUser(0) & "' title='姓名：" & rsCommentUser(1) & vbcrlf & "信箱：" & rsCommentUser(2) & vbcrlf & "Oicq：" & QQ & vbcrlf & "主页：" & homepage &"'><font color='blue'>" & rsComment("UserName") & "</font></a>』"
    end if
          Else


在1098行再加一个

       end if

===========================================
整合动网后的3.6后台管理评论出错的修改方法

本修改方法是整合动网后的3.6修改方法
找到文件
图片评论Admin_PhotoComment.asp  文章评论 Admin_ArticleComment.asp
我没有用软件下载,改法一样
在上面几个文件中找到下面语句:
if rs("UserType")=1

将其全部修改为

if rs("UserType")="Dvbbs7.0"

===================================
我想改用户排行按发表文章数显示5个

inc/fuction.asp

查找  If nt2003.ObjIsEmpty() Then
  sqlTopUser="select top 10 "&db_User_ID&","&db_User_Name&","&db_User_ArticleChecked&" from " & db_User_Table &&nbs