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

网站使用统计的修改方法（晕了提供）
演示: http://www.y00.net/index.asp


第一步:打开后台模版管理在(page_index)界面风格管理里找到{$ShowSiteCountAll}将其修改为
<script src=bbs/tongji.asp?orders=1></script>
{$ShowSiteCountAll}<script src='count/mystat.asp?style=all'></script>

第二步:将原来3.51的阿江统计文件夹复制到网站目录也就是Count目录,并修改该目录里stat.asp文件,找到
"根据要求输出"再往下拉找到case "all"后,将下面一段

case "all"
outstr="总访问量：" & vtop & "人次
今日访问：" & vtoday & "人次
昨日访问：" & vyesterday & "人次"
if is_online then
  outstr=outstr & "
当前在线：" & vonline & "人"
end if

替换为:

case "all"
outstr="· 总访问量：" & vtop & "人次
· 今日访问：" & vtoday & "人次
· 昨日访问：" & vyesterday & "人次"
if is_online then
  outstr=outstr & "
· 当前在线：" & vonline & "人"
end if

第三步:调用论坛tongji.asp,首先确定论坛已经使用了动网调用文件newscode.asp newsfile.asp newtopic.asp tongji.asp,确定有了几个文件后,将几个文件内的地址改为自己的论坛地址.

第四步:修改tongji.asp文件,找到sub tongji()后,将本段

sub tongji()
'Dim BoyNum
'BoyNum=allboys
Response.Write "document.write('□- 主题总数 "&Dvbbs.CacheData(7,0)&"
□- 论坛贴数 "&Dvbbs.CacheData(8,0)&"
□- 注册人数 "&Dvbbs.CacheData(10,0)&"
□- 当前在线 <font color=red>"&MyBoardOnline.Forum_Online&"</font>
□- 新进会员 <font color=red>"&Dvbbs.CacheData(14,0)&"</font>');"
'Response.Write "document.write('
□- 论坛女生 "&Dvbbs.CacheData(10,0)-BoyNum&" 位
□- 论坛男生 "&BoyNum&" 位');"
Response.Write "document.write('
□- 今日帖数 <font color=red>"&Dvbbs.CacheData(9,0)&"</font>
□- 昨日贴数 "&Dvbbs.CacheData(11,0)&"
□- 高峰贴数 "&Dvbbs.CacheData(12,0)&"');"

替换为:

sub tongji()
'Dim BoyNum
'BoyNum=allboys
Response.Write "document.write('· 主题总数 "&Dvbbs.CacheData(7,0)&"
· 论坛贴数 "&Dvbbs.CacheData(8,0)&"
· 注册人数 "&Dvbbs.CacheData(10,0)&"
· 论坛在线 <font color=red>"&MyBoardOnline.Forum_Online&"</font>
· 新进会员 <font color=red>"&Dvbbs.CacheData(14,0)&"</font>');"
'Response.Write "document.write('
· 论坛女生 "&Dvbbs.CacheData(10,0)-BoyNum&" 位
· 论坛男生 "&BoyNum&" 位');"
Response.Write "document.write('
· 今日帖数 <font color=red>"&Dvbbs.CacheData(9,0)&"</font>
· 昨日贴数 "&Dvbbs.CacheData(11,0)&"
· 高峰贴数 "&Dvbbs.CacheData(12,0)&"');"

当然你如果想显示论坛男生女生数量还可以将
'Response.Write "document.write('
· 论坛女生 "&Dvbbs.CacheData(10,0)-BoyNum&" 位
· 论坛男生 "&BoyNum&" 位');"这段前的'号去掉.好了,现在看网站上的统计就比较全了

统计的参数请修改Count里的inc_config.asp文件里的相关参数,里面有具体的说明
is_online = true   ' 是否统计在线人数，true表示启用，false表示不启用

具体情况可以根据自己的设置进行调整

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

  3.6图片滚动的方法
演示：http://hnkmmyc.com/web
无路可逃注：本办法由小鱼提供。

首先保证有六张图片以上
然后就下面代码

<script>                                      
  var speed=10                                      
  demo2.innerHTML=demo1.innerHTML                                      
  function Marquee(){                                      
  if(demo2.offsetWidth-demo.scrollLeft<=0)                                      
  demo.scrollLeft-=demo1.offsetWidth                                      
  else{                                      
  demo.scrollLeft++                                      
  }                                      
  }                                      
  var MyMar=setInterval(Marquee,speed)                                      
  demo.onmouseover=function() {clearInterval(MyMar)}                                      
  demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}                                      
  </script>  


复制到模版管理中的page_index中
<td id="demo1">{$ShowNewPhoto}</td>          
                        <td id="demo2"></td>
的后面

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
14.动力/动易用户数据导入整合版用户数据库的程序
（由刀刀制作，问的人多，就放这儿了）

界面预览：http://www.iiscn.net/upload/UserTrans.asp

下载地址：http://www.iiscn.net/TestPe/Soft/ShowSoft.asp?SoftID=8

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

1、动力3.6首页不显示子栏目菜单的方法：
转贴自：
function.asp 找到head()

找到这句　strtmp = Replace(strtmp,"{$ClassMenu}",value)

改成　
if channelid=1 then
　strtmp = Replace(strtmp,"{$ClassMenu}","")
else
　strtmp = Replace(strtmp,"{$ClassMenu}",value)
end if

channelid=1 这是指首页
如果是首页，将一级菜单列表标签替换成空

注，只适合用模板方式调用页的，因为程序只放在了nt2003.head()里了
--------------------------------------------------------------------
贴子位置：http://bbs.asp163.net/dispbbs.asp?boardid=34&id=39513&star=#61180
作者：梅铭志
2、完全解读首页的中部代码
经常碰到新手问：怎么index.asp打开后什么都没有啊？
由于动力的首页布局是通过莫板进行修改的。那怎么修改呢？
跟我来：
进入后台-->网站模板管理
看到“分页面模板(page_index)”了吧，点同一行的“界面风格”

新出现的窗口中的“template.html(0)”就是主页的代码了。点边上的“演示”就可以完全看到以下代码了。自己看哦，其实很简单的。呵呵，看懂之后就随便改吧。

记得改之前先复制在某个txt文件内，改完后，点“保存修改”，之后会回到之前的窗口，这个时候千万记得，再点一次：“修改”。这才算真的修改好了。


<!-- ********网页中部代码开始******** -->
<!-- 说明，主页中部代码分为上中下三段，全部都是独立的，每段代码又分左右两部分 -->
<!-- 下面是第一段开始 -->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
<!-- 以上为第一段总表头 -->
<!-- 第一段左边部分开始 -->
    <td width="180" valign="top" class="border"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<!-- 以上为第一段左边部分表头 -->
<!-- 以下为用户登录部分，不需要可以直接屏蔽 -->
      <tr>
        <td class="tdbg_leftall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_left">用户登录</td>
          </tr>
          <tr>
            <td class="tdbg_left">{$ShowUserLogin}</td>
          </tr>
        </table></td>
      </tr>
<!-- 用户登录部分结束 -->
<!-- 以下为站内搜索部分，不需要可以直接屏蔽 -->
      <tr>
        <td class="tdbg_leftall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_left">站内搜索</td>
          </tr>
          <tr>
            <td align="center" class="tdbg_left">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <form name="search" method="post" action="Article_search.asp" target="_blank">
                <tr align="center">
                  <td><input name="Keyword" type="text" id="Keyword" value="关键字" size="14" maxlength="50" onblur="if(this.value=='') this.value='关键字'" onfocus="this.value='';">
                      <input name="Submit" type="submit" id="Submit" value="搜索"></td>
                </tr>
                <tr>
                  <td><img src="Skin/51dsn03/spacer.gif" width="8" height="8"></td>
                </tr>
                <tr align="center">
                  <td><input name="Channel" type="radio" value="Article" style="border:0" checked onClick="javascript:document.search.action='Article_search.asp';document.search.Field.value='Title';" style="background-color: #CEDEFA;"> 文章
                      <input name="Channel" type="radio" value="Soft" style="border:0" onClick="javascript:document.search.action='Soft_search.asp';document.search.Field.value='SoftName';"style="background-color: #CEDEFA;"> 下载</td>
                </tr>
                <tr>
                  <td><img src="Skin/51dsn03/spacer.gif" width="8" height="8"></td>
                </tr>
                <tr align="center">
                  <td><input name="Channel" type="radio" value="Photo" style="border:0" onClick="javascript:document.search.action='Photo_search.asp';document.search.Field.value='PhotoName';"style="background-color: #CEDEFA;"> 图片
                      <input name="Channel" type="radio" value="bbs" style="border:0" onClick="javascript:document.search.action='dvbbs/query.asp?sType=2&pSearch=1&SearchDate=ALL&Stable=bbs1&boardid=0';document.search.Field.value='Title';"style="background-color: #CEDEFA;"> 论坛
                      <input name="Field" type="hidden" id="Field3" value="Title"></td>
                </tr>
                <tr>
                  <td height="40" align="center"><a href="http://www.google.com/intl/zh-CN/"; target="_blank"><img src="Skin/51dsn03/google.gif" width="70" height="30" border="0" alt="转到古狗搜索"></a><a href="http://www.baidu.com/"; target="_blank"><img src="Skin/51dsn03/baidu.gif" width="70" height="30" border="0" alt="转到百度搜索"></a></td>
                </tr>
              </form>
            </table></td>
          </tr>
        </table></td>
      </tr>
<!-- 站内搜索部分结束 -->
    </table></td>
<!-- 上面两句为第一段左边表格结束语，不可删除 -->
<!-- 第一段左边部分结束 -->
    <!-- ********左右小分割******** -->
<!-- 第一段右边部分开始 -->
    <td valign="top" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<!-- 以上为第一段右边部分表头 -->
<!-- 最新文章部分开始 -->
      <tr>
        <td class="tdbg_mainall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_main">最新文章</td>
          </tr>
          <tr>
            <td class="tdbg_main"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="30%" align="center">{$ShowPicArticle1}</td>  
<!-- 上面这一行是显示带图文章的图片，如果不要，可以删除，并把下一行的70%改为100%-->
                <td width="70%" valign="top">{$ShowNewArticle}</td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
<!-- 最新文章部分结束 -->
<!-- 论坛新贴以及最新留言部分开始 -->
      <tr>
        <td class="tdbg_mainall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="60%" class="title_main2">论坛新贴</td>
            <td width="1%"></td>
            <td width="39%" class="tdbg_main2">最新留言</td>
          </tr>
          <tr>
            <td valign="top" class="tdbg_main"><script src=./dvbbs/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=10&sdate=&orders=4&info=3&action=1&reply=1&showpic=1></script>
</td>
            <td></td>
            <td valign="top" class="tdbg_main">{$showGuest}</td>
          </tr>
        </table></td>
      </tr>
<!-- 论坛新贴以及最新留言部分结束 -->
    </table></td>
<!-- 上面两句为第一段右边表格结束语，不可删除 -->
  </tr>
</table>
<!-- 上面两句为第一段表格结束语，不可删除 -->
<!-- 到这里第一段结束 -->
<!-- ********上下大分割******** -->
<!-- 下面是第二段开始 -->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
<!-- 以上为第二段总表头 -->
<!-- 第二段左边部分开始 -->
    <td width="180" valign="top" class="border"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<!-- 以上为第二段左边部分表头 -->
<!-- 专题栏目部分开始 -->
      <tr>
        <td class="tdbg_leftall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_left">专题栏目</td>
          </tr>
          <tr>
            <td class="tdbg_left">{$ShowSpecial}</td>
          </tr>
        </table></td>
      </tr>
<!-- 专题栏目部分结束 -->
<!-- 本站统计部分开始 -->
      <tr>
        <td class="tdbg_leftall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_left">本站统计</td>
          </tr>
          <tr>
            <td class="tdbg_left">{$ShowSiteCountAll}</td>
          </tr>
        </table></td>
      </tr>
<!-- 本站统计部分结束 -->
<!-- 用户排行部分开始 -->
      <tr>
        <td class="tdbg_leftall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_left">用户排行</td>
          </tr>
          <tr>
            <td class="tdbg_left">{$ShowTopUser}</td>
          </tr>
        </table></td>
      </tr>
<!-- 用户排行部分结束 -->
    </table></td>
<!-- 上面两句为第二段左边表格结束语，不可删除 -->
<!-- 第二段左边部分结束 -->
    <!-- ********左右小分割******** -->
<!-- 第二段右边部分开始 -->
    <td valign="top" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="center" bgcolor="#E4EEFD" class="tdbg_mainall">{$showAD1}</td>
      </tr>
      <tr>
        <td class="tdbg_mainall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_main">最新栏目文章</td>
          </tr>
        </table></td>
      </tr>
      <!-- ********栏目自动循环开始******** -->
      {$ShowClassNewarticle}
      <!-- ********栏目自动循环结束******** -->
    </table></td>
<!-- 第二段右边部分结束 -->
  </tr>
</table>
<!-- 上面两句为第二段表格结束语，不可删除 -->
<!-- 到这里第二段结束 -->
<!-- ********上下大分割******** -->
<!-- 下面是第三段开始 -->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
<!-- 以上为第三段总表头 -->
<!-- 第三段左边部分开始 -->
    <td width="180" valign="top" class="border"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<!-- 以上为第二段左边部分表头 -->
<!-- 最新调查部分开始 -->
      <tr>
        <td class="tdbg_leftall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_left">最新调查</td>
          </tr>
          <tr>
            <td class="tdbg_left">{$ShowVote}</td>
          </tr>
        </table></td>
      </tr>
<!-- 最新调查部分结束 -->
<!-- 友情链接部分开始 -->
      <tr>
        <td class="tdbg_leftall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_left">友情链接</td>
          </tr>
          <tr>
            <td align="center" class="tdbg_left"><div align="center">{$ShowFriendSite}
              <a href='FriendSiteReg.asp'><img src='Skin/51dsn03/bt_FriendSiteReg.gif' border='0'></a><a href='FriendSite.asp'><img src='Skin/51dsn03/bt_FriendSite.gif' border='0'></a>
            </div></td>
          </tr>
        </table></td>
      </tr>
<!-- 友情链接部分结束 -->
    </table></td>
<!-- 上面两句为第三段左边表格结束语，不可删除 -->
<!-- 第三段左边部分结束 -->
    <!-- ********左右小分割******** -->
<!-- 第三段右边部分开始 -->
    <td valign="top" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<!-- 以上为第三段右边部分表头 -->
<!-- 下载更新部分开始 -->
      <tr>
        <td class="tdbg_mainall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="title_main2">下载更新</td>
          </tr>
          <tr>
            <td class="tdbg_main"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="30%" align="center"><% call ShowPicSoft(0,1,20,1,1,120,90,200,false,false) %></td>
                <td width="70%" valign="top">{$ShowNewSoft}</td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
<!-- 下载更新部分结束 -->
<!-- 图片更新部分开始 -->
      <tr>
        <td class="tdbg_mainall"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="tdbg_main2">图片更新</td>
          </tr>
          <tr>
            <td class="tdbg_main"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center">
                  <div id="demo" style="overflow: hidden;height: 130px;width: 550px;">
                    <table align="center" cellpadding="0" cellspace="0" border="0">
                      <tr>
                        <td id="demo1">{$ShowNewPhoto}</td>
                        <td id="demo2"></td>
                      </tr>
                    </table>
                  </div>
                </td>
                </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
<!-- 图片更新部分结束 -->
    </table></td>
<!-- 上面两句为第三段右边表格结束语，不可删除 -->
  </tr>
</table>
<!-- 上面两句为第三段表格结束语，不可删除 -->
<!-- 到这里第三段结束 -->
<!-- ********网页中部代码结束******** -->

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