个性化修改自由动力3.6版全集(二)

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

艾草：虽然我网页制作能力很差，但我有一颗热心，我会在最短时间内为大家搜集自由动力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'动力空间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 & " order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 自由动力3.6版自由动力3.6版 全集全集 个性化修改个性化修改
相关日志: