自由动力3.6版88个问答。有解决问题的方案请按序号跟贴，请不要在此贴后发问.不要没事顶贴，谢谢

（整理时难免有失误之处，请谅解）

[1] 问：

为什么我后台修改、增加了，前台没有反应？

答：后台有些修改必须要点[修改生效]后才会体现在前台（也就是刷新缓存）。

[2] 问:

安装完，显示：下标越界: '[number: 3]'
Microsoft VBScript 运行时错误 错误 '800a0009'
下标越界: '[number: 3]'
/inc/function.asp，行1833
怎么修改？


答一:
执行一下缓存:
http://你的网址/inc/reloadcache.asp

答二:(5100   2004-6-14 22:22:00)
进后台再回首页就没问题了

[3] 问:1 一个服务器安装两个动力不能正确显示的问题

答:( 梅铭志 )
1 一个服务器安装两个动力不能正确显示的问题
修改 inc\function.asp 文件中
  CacheName=Replace(Server.MapPath("\index.asp"),"index.asp","")
为
  CacheName=Replace(Server.MapPath("index.asp"),"index.asp","")

[4] 问:我用Dreamweaver打开原文件，发现有许多类是
ÉÏһƪÎÄÕ£º'ÐÞ¸ÄÒÔÇ°µÄÄÚÈÝ£º¡¡
这样的文字，不知道大家有没遇到？
答:( tianqing88  2004-6-16 9:55:00)
DW内选择网页属性---编码---简体中文!

高招:(提交人：xiaoluo1　 2004-6-16 16:31:00)
一级菜单首页不显次页显的修改方法
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 这是指首页
如果是首页，将一级菜单列表标答替换成空
补充:(xiaoluo1 2004-6-16 17:25:00)
咦？你们首页没有变量定义吗
const channelid=1
程序改完以后要更新缓存的

最好的方法是在编辑->首选参数->新建文档，在“默认编码”选简体中文(GB2312)，在下面的“当打开未指定编码的现有文件时使用”打钩，以后就不怕乱码了！

[5] 问:一个BUG
首页的本站统计中的文章阅读人次怎么到了10就不会变化了？要如何修改？

答:(提交人:xiaoluo1  2004-6-16 17:15:00)
统计里的数据停留在建缓存的时候，HOHO，更新缓存就会体现了

[6] 问:怎样才能将友情链接排成横排，logo8列2行，文字链接9列2行？

答:(整理提交人: yzzhyyl  2004-6-15 13:51:40)
问题解决了,方法如下:
在index.asp中找到
friendlist= ShowFriendSite(1,10,1,1) & ShowFriendSite(2,10,1,3)
并将其改为
friendlist= ShowFriendSite(1,14,7,2) & ShowFriendSite(2,16,8,2)
在:分页面模板(page_index) 适当的位置增加一通栏,将  {$ShowFriendSite}标签居中放置
ok了!
具体方法：进入后台模板管理---网站模板管理----分页面模板(page_index)---界面风格---template.html(0)---将框内的代码拷入fp---在适当的位置增加一通栏---将{$ShowFriendSite}标签居中放置---再将fp内的代码拷回框内---修改---修改生效[7] 问:3.6中如何调用自己的论坛中的帖子（dvbbs 6.1），请高手指点迷津

答：一（chg38）
后台，首页模板

分页面模板(page_index)  
编辑该模块：界面风格
找到："<script src='http://bbs.asp163.net/newtopic.asp>;;,进行修改


答二：（gmxq ）
1、进管理后台，分别点模板管理-----网站模板管理--------分页面模板(page_index)  这行后面的界面风格 -------------------分页面模板(page_index)界面风格管理页面中显示的就是首页中部代码；
         2、首页中部代码中找到bbs.asp163.net/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=8&sdate=1&orders=2&info=3&action=1&reply=0'>这句话，把句中红色部分换成你的论坛地址；
         3、修改完后可要千万别忘了点下面的修改。


修改：（提交人：xiaoluo1）
首页下载更新时间前竖杠问题的解决
这只是一个临时的办法
index.asp

298行，前面插入
if mid(strcol(5),1,1)="|" then
    strcol(5)=mid(strcol(5),2)
end if

另：
如果不想显示全日期时间格式可再加这句
strcol(5)=month(strcol(5))&"-"&day(strcol(5))&" "&hour(strcol(5))&":"&minute(strcol(5))
月-日 时：分

如果你有我的补零函数，可以加入补零对齐，全日期格式的如下
strcol(5)=year(strcol(5))&"-"&bl(month(strcol(5)))&"-"&bl(day(strcol(5)))&" "&bl(hour(strcol(5)))&":"&bl(minute(strcol(5)))&":"&bl(second(strcol(5)))

[8] 问:关于图片调用数量的
就是在photo_class.asp里调用的图片
一行是显示 4个  
要在那里改这里的显示个数呢？？
高人指点  谢谢了

答:( id   2004-6-11 0:44:00)
Inc/syscode_Photo.asp这文件中按
ctrl+f查找
  if i>0 and i mod 4=0 then

其中的 4=0   把4改成你想要一行显示的数目

[9] 问:
3。6的数据库怎么没办法用Access打开呢？

答:(老志2)

后缀名改为mdb就可以了

[10] 问:
怎么改?

答:(1234567899)
1、文件夹选项---->查看---->隐藏已知文件类型的扩展名------>去勾--------->确定
2、可以看到后缀名了吧。改！

[11] 问:为什么有时候网页所有汉字突然变乱码?

答:(1234567899)
IE浏览器---->查看-------->编码------->中文简体.([自动选择]去了也会好点吧,没试过)


[12] 问:★哪位大哥能解决首页JS调用问题？？？

答:(hejun  2004-6-21 8:38:00)
把article_js.asp中的
if ShowHot="true" and rs("Hits")>=nt2003.site_setting(14) then
    str=str & "<img src='" & SystemPath & "images/hot.gif' align='absmiddle' alt='热点文章'>"
end if
改为
if ShowHot="true" and rs("Hits")>=100 then
    str=str & "<img src='" & SystemPath & "images/hot.gif' align='absmiddle' alt='热点文章'>"
end if
就好了
就是nt2003.site_setting(14) 这个参数不对

[13] 问:为何整合后, 登录只能登录论坛,而不能进动易系统呢?

答:[ 无路可逃   2004-6-13 6:38:00]
应该是没有修改好inc/conn_user.asp 文件，注意有两个地方需要修改，特别是db_bbs数据库路径！
以下是我修改好的范例：

UserTableType = "Dvbbs7.0"  ' "Dvbbs7.0" --- 整合动网论坛7.0
           ' "MyPower"  --- 不整合论坛

db_bbs="bbs/Data/Dvbbs7.asp"     '动力数据库文件的位置或论坛数据库文件的位置

'注意可使用绝对路径或URL，但后面不能带“/”！
Const db_User_Message="[Dv_Message]"
Const db_User_Friend="[Dv_Friend]"
Const db_User_Table="[Dv_User]"

[14] 问:○○ 动力3.6去除登录验证码的方法 ○○

    本人菜鸟一个，一直在寻求有大侠出手指点如何去除3.6版本的登录验证码，总是得不到回应（或许是偶太心急了，嗬嗬）。3.6设置登录验证码的本意可能是因为方便了后台管理可直接进入，但登录时的附加验证和保存Cookie确实是矛盾的，有了附加验证，保存Cookie是不起作用的。于是自己琢磨，最终圆满解决这个问题。
  ------[5.25注释]上述附加验证和保存Cookie矛盾属本人学业不精之误解。应该是和windows系统提示的“保存密码”矛盾。请诸位见谅！

  （要求回复浏览仅仅是想看看有多少象我一样的菜鸟希望解决这麻烦，决无故弄玄虚之意，请谅解！）

------[6.4.注释]嗬嗬，看来有不少朋友还是不希望有登录验证码的呀。今取消回复可见，让它沉水里去吧！


一、1、删除User_Login.asp中的48-53行：
               if (document.Login.CheckCode.value=="")
{
         alert ("请输入您的验证码！");
         document.Login.CheckCode.focus();
         return(false);
       }
    2、删除88-91行：
   <tr>
            <td align="right">验 证 码：</td>
            <td><input name="CheckCode" size="6" maxlength="4"><img src="inc/checkcode.asp"></td>
          </tr>
二、1、删除User_ChkLogin.asp中的第13行：
               CheckCode=replace(trim(Request("CheckCode")),"'","")
      2、删除User_ChkLogin.asp中的第29-34行：
          if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & "
<li>验证码不能为空！</li>"
     end if
     if session("CheckCode")="" then
FoundErr=True
      3、删除User_ChkLogin.asp中的第37-40行：
     if CheckCode<>CStr(session("CheckCode")) then
FoundErr=True
ErrMsg=ErrMsg & "
<li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
end if

三、删除 Skin\51dsn03\main.js中的15-20行：
if (document.UserLogin.CheckCode.value=="")
{
  alert ("请输入您的验证码！");
        document.UserLogin.CheckCode.focus();
        return(false);
    }
  （如果你使用linux模板，还得删除该目录下的相关内容）
四、删除inc\function.asp 中的1191行：
     strLogin=strLogin & "<tr><td height='25' align='right'>附加验证：</td><td height='25'><input name='CheckCode' size='4' maxlength='4'> <img src='inc/checkcode.asp'></td></tr>" & vbcrlf

现在你再试试看－－－OK了！

[15] 问:我的动力升级成功，但论坛升级出现“数据库连接出错，请检查连接字串。”不知为什么？

答：[ 梅铭志   2004-6-13 8:37:00]
看看这个有没有改：
动力目录inc下的conn_user.asp

db_bbs="bbs/Data/dvbbs7.mdb"      '动力数据库文件的位置或论坛数据库文件的位置

原来不是这个样子的。

[16] 问:
最近打了补丁后发表的文章打开阅读是跳出这样的提示窗口,不知道是什么意思?不知道哪位能指点下?
----------------------------
java script error

description:缺少对象

source: http://具体网址。。。。。。。
line:381

see more details ?

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

解决方法：（提交人： xiaoluo1  2004-6-13 15:20:00 ）
是少一个函数，已经有的没办法了，你手工改一下吧
后加的，你改一下upfile_artilce.asp (351)
135行，改成这个　 strJS=strJS & " border=0 >');" & vbcrlf

[17] 问:
[讨论]首页频道下面的栏目分类只能显示六个

答：（提交人： xiaoluo1  2004-6-13 22:19:00）
楼主要的不是上面的导航　

是function.asp中这个函数里public sub loadShowarticleshiyu()
找到select top 6 ，呵呵，把6换成8就可以显示8个文章栏了

[18] 问:
紧急求助，我如何修改首页底部的信息？？
Copyright &copy; 2000-2004  动易网络  www.asp163.net  站长：******
Powered by： FreePower Ver 3.6     执行时间：640.87 毫秒- | 查询数据库：41 次

答:(提交人:xiaoluo1   2004-6-14 0:53:00)
后台模板管理中
main_style　风格设置里
bottom表格中

[19] 问:
能不能指点一下3.51的缓存名称的问题及解决方案？在同一个目录下并列的两个动力3.51。在后台管理时只要换一下另一个目录的名称就进入了另一个后台，这样真让人头疼，望指点，谢谢

答:(提交人: xiaoluo1  2004-6-13 22:57:00)
351不是缓存，是由于cookie的同名造成的

找到这些　Cookies("asp163")　换成别的

[20] 问:
☆☆☆动力后台审核软件的问题仍未解决!☆☆☆
注册用户添加软件后，管理员在后台审核时出错：

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

答：（提交人： 小学网站  2004-6-14 15:22:00）
看你问了几次帮你解决吧

在dim....
   dim.....
下加上
dim WebmasterName

好像应该是：（提交人：xiaoluo1 ）????
把这个　WebmasterName　换成nt2003.site_info(7)

就软件审核这个错误
webmastername 换成　nt2003.site_info(7)
就两处

[21] 问:
请问怎么才能实现在首页调用2个图片新闻。

在画了的地方增加  一个图片文章调用 怎么增加啊


答：（提交人：zkyc  2004-6-14 14:56:00）
找到inc/syscode_article.asp，然后打开编辑第十四行TempStr = Replace(TempStr,"{$ShowPicArticle1}",ShowPicArticle(0,1,20,1,1,120,90,200,false,false))
看到(0,1,20,1,1,120,90,200,false,false))中第二个1改成2就实现了调用两个图片文章！

[22] 问:
500错误好了，FUNCTION。ASP又出错了！
打开首页出现
Microsoft JET Database Engine 错误 '80040e37'

Microsoft Jet 数据库引擎找不到输入表或查询 'FP_User'。 确定它是否存在，以及它的名称的拼写是否正确。

/article/inc/function.asp，行447

答：（ xiaoluo1  2004-6-14 23:42:00）
未整合版
conn.asp conn_user.asp
中的在DB都设成你升级后的数据库名

[23] 问:
这缓存问题也惹笑话，我们单位服务器里有我和另一位同事的两个3。6，互相干扰的！我们在不同的电脑上操作，我点保存，他的界面就得听我的，他点保存，我的界面就听他的，哈哈哈！

答：（提交人： xiaoluo1  2004-6-14 23:47:00）
并不搞笑呀，呵呵
假定服务器A　根目录都是XXXX
如果客户B和C的36都在XXXX下
那么两者的缓存的变量是一样的，呵呵

所以客户B和客户C，应该将function中cachename那里改一下
方法一，/index.asp 去掉/　，这样cachename的返回名称会是盘符XXXX客户所设路径
方法二，客户B和C在cachename名字生成的最后再与上一个自定义的不同名
cachename=cachename&"你想设的名字"

[24] 问:
当点击“模板管理---->网站模板管理----->分页面模板(page_)  ------>界面风格 “时出现下面的错误：

无法显示网页
试图访问的网页出现问题，无法显示。
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/news2/fp360609/fp360609/inc/function.asp, 第 712 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
网页：
GET /news2/fp360609/fp360609/admin_template.asp

答：（ xiaoluo1  2004-6-15 19:02:00）
错误出现在点page_(这里少分页模板名字）那个风格上
此分页模板无用
请打开数据库，ac_style表点右键，设计视图中，把这个page_列名删了即可

[推荐] FIVER整合版短信不能彻底删除的问题解决
错误现象：指定。。。参数

sms_main.asp

找到　case "删除垃圾"
改成　case "删除废件"

补充：（ xiaoluo1  2004-6-15 23:18:00）
如果你的参数不对的话
在sms_main.asp
132行　select case request("action")
这句前面插入
response.write request("action")
然后去运行清空废件箱的过程，看看传过来的参数是什么，然后对照着改下面的语句就可以了

估计错误是：　165行　case "清空垃圾箱"
应该改成　case "清空废件箱"

[25] 问:
问：
文章中添加的附件，发布后无法下载：（

答：（提交人： wuwll   2004-6-17 11:19:00）
自力更生,修正文章中添加的附件，发布后无法下载的问题
将Upfile_Article.asp文件中
case else
strJS=strJS & "range.text='
点击浏览该文件';" & vbcrlf
end select
代码修改为:
case else
strJS=strJS & "range.pasteHTML('<A href="& FileName & ">点击浏览该文档</A>');" & vbcrlf
end select
即可!!

[26] 问:
图片浏览不计数的BUG

答：
photo_viewer.asp

找到
if FoundErr<>True then
  sql = "update Soft set Hits=Hits+1"
  if datediff("D",rs("LastHitTime"),now())<=0 then
   sql=sql&",DayHits=DayHits+1"
  else
   sql=sql&",DayHits=1"
  end if
  if datediff("ww",rs("LastHitTime"),now())<=0 then
   sql=sql&",WeekHits=WeekHits+1"
  else
   sql=sql&",WeekHits=1"
  end if
  if datediff("m",rs("LastHitTime"),now())<=0 then
   sql=sql&",MonthHits=MonthHits+1"
  else
   sql=sql&",MonthHits=1"
  end if
  sql=sql&",LastHitTime=now()"
  set rs=nt2003.execute(sql)
end if

替换成
if FoundErr<>True then
  rs("Hits")=rs("Hits")+1
  if datediff("D",rs("LastHitTime"),now())<=0 then
   rs("DayHits")=rs("DayHits")+1
  else
   rs("DayHits")=1
  end if
  if datediff("ww",rs("LastHitTime"),now())<=0 then
   rs("WeekHits")=rs("WeekHits")+1
  else
   rs("WeekHits")=1
  end if
  if datediff("m",rs("LastHitTime"),now())<=0 then
   rs("MonthHits")=rs("MonthHits")+1
  else
   rs("MonthHits")=1
  end if
  rs("LastHitTime")=now()
  rs.update
end if

[27] 问:
一级菜单首页不显次页显的修改方法

答：
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 这是指首页
如果是首页，将一级菜单列表标答替换成空
补充:(xiaoluo1 2004-6-16 17:25:00)
咦？你们首页没有变量定义吗
const channelid=1
程序改完以后要更新缓存的

不行啊..老报

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

/inc/function.asp，行244

　strtmp = Replace(strtmp,"{$ClassMenu}","")
^

[28] 问:
你的IE顶部标题做到了随频道和文章而变动,请教是怎么修改的?

答：（DFENG  2004-6-22 16:53:00）
把FUNCTION里SHOW PATH弄到TITLE就可以了

[29] 问:
首页中的上部导航条下面的文章分栏怎么去掉啊！
动力3.6版本的首页中的上部导航条下面的文章分栏怎么去掉啊！
在首页中不应显示的，而只在文章栏目中显示的！

答:(yingyu  2004-6-18 9:16:00)
看我的！我已修改好了！

---------------------------------------------------
function.asp 找到head()

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

改成　
if channelid=1 then
　strtmp = Replace(strtmp,"{$ClassMenu}","这里可以加上你想要在原首页文章分栏的内容显示-----如我的修改内容---注意引号不能去掉")
else
　strtmp = Replace(strtmp,"{$ClassMenu}",value)
end if



错误类型：
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/inc/function.asp, line 242
　 strtmp = Replace(strtmp,"{$ClassMenu}","")


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

网页：
GET /index.asp

[30] 问:
请有心人帮帮忙!点[播放视频]出错!
缺少对象


答：（teacherlkw  2004-6-23 17:48:00）
photo_show.asp
文件335 338行
windowopen中间加个点
window.open
试试

[31] 问:
首页中的上部导航条下面的文章分栏怎么去掉啊！
动力3.6版本的首页中的上部导航条下面的文章分栏怎么去掉啊！
在首页中不应显示的，而只在文章栏目中显示的！

答:(yingyu  2004-6-18 9:16:00)
看我的！我已修改好了！

---------------------------------------------------
function.asp 找到head()

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

改成　
if channelid=1 then
　strtmp = Replace(strtmp,"{$ClassMenu}","这里可以加上你想要在原首页文章分栏的内容显示-----如我的修改内容---注意引号不能去掉")
else
　strtmp = Replace(strtmp,"{$ClassMenu}",value)
end if

我是新手,能否对"strtmp = Replace(strtmp,"{$ClassMenu}","这里可以加上你想要在原首页文章分栏的内容显示-----如我的修改内容---注意引号不能去掉")" 说明的详细一些.我直接替换后无法显示主页

[32] 问:
我的情况是这样的,只要我没有进后台点"修改生效"第二天就会出现无法打开注册有用户的页面,现在这几天我每天都要进后台"修改生效"才可以打开注册用户页面,如些反复好几天了,你们不妨看看你们的是不是这样

答一：（min2004  2004-6-26 2:56:00）

缓存问题。。。。。。。。


答二：
呵呵，user_reg.asp写得有点怪怪的，不明白作者为什么要这么写
打不开注册页是因为conn丢失了，
两种方法，一种是是在需要的前面调用　call ConnectionDatabase()　过程，打开CONN
一种嘛，前台清掉CACHE也可以

[33] 问:
我的图片栏目搜索了以后随便是哪个都搜索不到，明明图片是有的

答:
以下是引用xiaoluo1在2004-6-24 20:41:00的发言：
我记得好象是搜索所有的时候多传了一个classid参数所以就啥也找不到了

[34] 问:
为什么我每次刷新主页，首页都会变成别人的网页？ 包括网站名称内容。。。

答：  一枝梅  2004-7-21 14:19:49

记事本打开inc/function.asp文件
查找：web_CacheName = "asp163"   '缓存名称，如果一个站点有多个站请更改成不同名称
把值：asp163改成别的名称！

[35] 问:
图片搜索解决方案(及修正后的文件下载 lhb)(7月17更新)

=================================================
lhb:
经测试，此方法可解决首页和图片频道(默认所有栏目)的搜索问题。感谢icezero朋友!修正后的Photo_Search.asp文件下载：http://www.jlzhzx.cn/htdocs/Photo_Search.rar ; 

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

把Photo_Search.asp最上面的改为以下代码就OK了

<!--#include file="Inc/syscode_Photo.asp"--><%
'请勿改动下面这三行代码
const ChannelID=4
Const ShowRunTime="Yes"
MaxPerPage=20
PageTitle="搜索结果"
strFileName="Photo_Search.asp?Field=" & strField & "&Keyword=" & keyword & "&ClassID=" &

ClassID
Set rsPhoto= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
SkinID=0

nt2003.LoadTemplates("")
nt2003.head()
%><%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select

C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From

SoftClass C inner join Layout L on C.LayoutID=L.LayoutID "
if ClassID<>0 then
sqlRoot = sqlRoot & " where C.ParentID=" & ClassID & " or C.ParentPath like '%" &

ParentPath & "," & ClassID & "%' "
else
sqlRoot = sqlRoot & " where 1 "
end if
sqlRoot = sqlRoot & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" &

UserLevel & " order by C.OrderID"
arrClassID=ClassID

Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
'dim tmpdata,strrow,strcol,i
'if not (rsRoot.bof and rsRoot.eof) then
'tmpdata = rsRoot.GetString(,,"|||","@@@","")
'strrow=Split(tmpdata,"@@@")
'end if
do while not rsRoot.eof
arrClassID=arrClassID & "," & rsRoot(0)
rsRoot.movenext
loop

rsRoot.close
set rsRoot=nothing
%>




lhb:
经测试，此方法可解决首页和图片频道(默认所有栏目)的搜索问题。感谢icezero朋友!修正后的Photo_Search.asp文件下载：http://www.jlzhzx.cn/htdocs/Photo_Search.rar ; 

[36] 问:
签写留言时注册用户出错解决方案

目前已有网友报错，请大家有选择性的使用，同时强烈建议大家在使用本方案时做好备份，对此产生的后果，本人不负任何责任！

如果是整合动网论坛7.0sp2的只需要搜索inc/admin_code_guest.asp中下面一句
elseif GuestName="" or strLength(GuestName)>14 or strLength(GuestName)<4 then
然后把 or strLength(GuestName)>14 or strLength(GuestName)<4删除
也就是把这句换成elseif GuestName="" then
这样就OK了

如果没有整合动网论坛7.0sp2的，除了修改上面的代码外，还需要把第226行代码作以下修改
call UpdateUserNum(RegUserName)改为call UpdateUserNum(UserName)
也就是去掉RegUserName中的Reg，这里也是因为变量没有定义引起的。

不要担心注册用户名小于4或者大于14
因为在inc/syscode_guest.asp中已经作了限制，见下面这段
    if(thisform.GuestName.value.length>14 || thisform.GuestName.value.length<4){
   alert("如果注册，用户名长度不能大于14或小于4！")
   thisform.GuestName.focus()
     return(false)
    }
所以在inc/admin_code_guest.asp中加入注册用户名限制是多余的，其出错原因在于strLength没有定义。
另外，如果想把限制注册用户字符改变，比如不小于3，不大于12，当然就是在上面inc/syscode_guest.asp中修改那段限制了。

[37] 问:
一支梅：管理员密码修复(3.51/3.61/4.03/动网7.0/BBSXP5.0)

管理员密码修复工具 TO ACCESS--Powered bywww.clwang.com
使用前请一定要认真仔细阅读下面的操作步骤及注意事项！！！

操作步骤：
1、强烈建议先备份您的的数据库文件。
2、将up_adminpass.asp复制到须修复管理员密码的程序根目录！
3、打开浏览器，在地址栏中输入本升级程序的地址，运行本程序。如：http://localhost/up_adminpass.asp。
4、然后输入须修复管理员密码的数据库文件名（默认为Database/fp360609.asp），然后点“我已做好选择，确认修复密码”开始升级。
5、有任何问题欢迎访问创力网站(www.clwang.com)和创力论坛(bbs.clwang.com)

注意事项：
1、本升级程序只在于动力3.51/3.61/动易4.03/动网7.0/BBSXP5.0下测试通过。不保证也能适用于其他版本。
2、此程序由一枝梅制作，对使用过程序造成任何损失，本人不负责！
3、操作成功完成后，一定要删除此文件！以免带来安全隐患。


下载：http://www.clwang.com/Soft_Show.asp?SoftID=89

[38] 问:
广告管理中名称，广告地址不正确的解决办法（更新）
=================================================
lhb:        感谢热心的朋友hudson为大家提供的解决方法，为方便大家，为大家提供修正后的Admin_Advertisement.asp:

  下载修正后的文件Admin_Advertisement.asp下载：


http://www.jlzhzx.cn/htdocs/Admin_Advertisement.rar

====================================================
以下为hudson朋友的原文：

将
nt2003.site_info(0)改为 sitename
nt2003.site_info(4)改为 siteurl

总共要改4处，改了后地址名称就正常了，呵呵 希望大家喜欢
这地方本来用了缓存，改后就没用了。

呵呵 不好意思 忘了告大家改哪个文件，今天才发现
呵呵 修改Admin_Advertisement.asp这个文件就对了

[39] 问:

废件箱不能清空的解决办法
=================================================
lhb:        感谢热心的朋友（0km）为大家提供的解决方法（将sms_main.asp中的所有 垃圾 改为 废件既可），为方便大家，为大家提供修正后的sms_main.asp:

  下载修正后的文件sms_main.asp下载：（点击下面的下载链接）http://www.jlzhzx.cn/htdocs/sms_main.rar

========================================================
6、免费用户升级到收费用户出错的解决办法  (7月21日)

        lhb:    感谢热心的朋友（0km）为大家提供的修正文件：
下载修正后的文件Admin_User.asp下载：（点击下面的下载链接）
  http://www.jlzhzx.cn/htdocs/Admin_User.rar

[40] 问:

修正软件评价的BUG        (7月30日)

lhb:    感谢热心的朋友（yandeqing）为大家提供的修正办法：
解决了软件评价的BUG

将 103行改为（修改加黑部分）
<form name="myform" method="post" action="Soft_Comment.asp" onSubmit="return myform.Score" >

[41] 问:
增加首页友情连接数目：

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

[42] 问:
改变首页留言数目和字数：

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

[16] 问:
增加首页最新下载数目及去掉后面的时间

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> 删去最新下载条目后的时间即可消失！

[43] 问:
去掉首页图片黄色边框：

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

[44] 问:
我想改变首页最新文章一栏图片的大小,怎样改?

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

[45] 问:
如何改变最新栏目文章调用的条数和标题字数

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改成您想要的数字，然后进入点“修改生效”刷新缓存就可以改变最新文章标题的字数！

[46] 问:
修改用户控制面板

(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"体会一下本修改，您就可以对控制面板做其他更多随心所欲的修改了！

[47] 问:
“文章频道”下部“文章栏目导航”显示5个子栏目就换行。能不能改啊？

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

[48] 问:
一个小问题的修改）(6月28日)

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

[49] 问:
改“文章栏目导航”（文章频道首页下端）每行栏目数(6月28日)：

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

[50] 问:
修改文章最底级栏目的目录（即“××文章列表”）(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换成您想要的数字

[51] 问:
修改网页标题只显示“首页”的问题(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>

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

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

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

[53] 问:
在文章浏览页面加个“编辑本文” （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.如何修改网页背景

18.如何去掉或修改底部大图

19.首页调用论坛新贴的问题

以下从http://djxx.sjedu.cn/djbbs/dispbbs.asp?boardid=26&star=1&replyid=780&id=438&skin=0&page=1整理

[54] 问:
论坛不能搜索的问题

网站模板管理-->分页面模板(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;"> 论坛

[55] 问:
论坛频道添加网站频道添加-->管理-->交流论坛-->修改
把 链接地址 改为 "./bbs"

[56] 问:
论坛新贴显示修改

首先确认论坛首页调用文件已经修改好（具体见动网说明）
网站模板管理 -->分页面模板(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>

[57] 问:
文章那个小图标的问题：

打开 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)  '就是这一句，是从上面移动下来的

[58] 问:
首页顶部图象修改

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。

[59] 问:
3。6的论坛新贴调用在哪啊！偶找了好久！没找到！说明里也没有！即使连接不是ASP153的论坛！可是仍然是这里的新贴！请调用到那里的高手们指教！

答:(haihui )

后台模板管理中，分页面模板(page_index)  ,界面风格，找找asp163.net

答二:(BoPo  2004-6-11 1:10:00)

关于首页调用动网论坛的修改-今天刚刚做好的
先到动网的官方网站，下载一个首页显示的文，按说明先安装到论坛上，会生成一个代码，<script>.....</script>.然后到后台的模版管理中巴page_index里的中间部分找到。有个一个<script scr=XXXX.com/topic.asp~~~~~>.....</script>把这段改称你的论坛地址就ok了。

[60] 问:
自由动力为什么新注册用户默认点数是100点？？
自由动力3.6为什么新注册用户默认点数是100点？在后台设置注册用户初始点数是0，可是没有变化。

答:( 一枝梅    2004-6-12 8:55:00)
打开论坛的reg.asp文件：
找到：rs("UserPoint")=100
把那个100改成你想要的数字！

[71] 问:
修改最新留言的数目


首页的最新留言只显示5条，
而论坛是显示8条的，
不和谐！·

在index.asp中“TempStr = Replace(TempStr,"{$showGuest}",showGuest(18,8))”的8改为10即可！

原来还要去inc/function.asp里修改！

[72] 问:
怎样改变首页最新文章一栏显示图片的大小

打开 Index.asp ，找到 TempStr = Replace(TempStr,"{$ShowPicArticle1}",ShowPicArticle(0,2,20,1,1,120,90,200,false,false))，其中120为图片宽度，90为图片高度。把这两个数值修改成你需要的大小即可。

[73] 问:
page_index内部变量描述(首页一些最新的栏目调用）
内部变量描述：<li>{$width}：表格宽度变量；（主模块(Main_Style)基本设置） <li>{$ShowAnnounce}：公告信息变量；<li>{$ShowUserLogin}:用户登录窗口调用；<li>{$ShowPicArticle1}：最新文章图片调用；<li>{$ShowNewArticle1}：最新文章标题调用；<li>{$ShowNewSoft}：最新下载调用；<li>{$showGuest}：最新留言调用；<li>{$ShowNewarticle2}：最新栏目文章调用（分栏目调用）；<li>{$ShowNewPhoto}：最新图片调用；<li>{$ShowPicArticle2}：最新图片文章调用；<li>{$ShowVote}：最新调查调用；<li>{$ShowHot}：最新热点（热门）调用；<li>{$ShowSpecial}：专题栏目调用；<li>{$ShowSiteCountAll}：网站统计调用；<li>{$ShowTopUser}：用户排行调用；<li>{$ShowFriendSite}：友情链接调用；

[74] 问:
把760宽度改为1000的宽度

动力默认是760的宽度。如果要变成1024的可以参看如下方法：



修改模板的头部和尾部代码，把宽度调整为1000（比1024略小，避免出现横向滚动条）
对于各版面中部代码，修改如下：

<table width="1000" border="0">
<tr>
<td width="760"><div align="center">原来的中部代码，全部复制在这里</div></td>
<td><div align="center">新增加的内容，建议用dw编辑</div></td>
</tr>
</table>

新增加的内容如果需要分成若干行，可插入如下代码：
<tr><td>第一行内容</td></tr>
<tr><td>第二行内容</td></tr>

[75] 问:
文章栏目怎么才能成一排显示？

并排的两个表格变成一个表格，在function.asp里修改
查找：if iClassID mod 2=0 then
改成：if iClassID mod 1=0 then

注意：还得要进入后台点击“修改生效”后方可看到郊果！

[76] 问:
可以由浏览者自行调节文字大小


后台
main_style模板里在head前面加上

<script>
function doZoom(size){
document.getElementById('zoom').style.fontSize=size+'px'
}
</script>

下面的我只能说概要了，因为我的测试站是全模板的
在article_show中，找到显示正文的<td ＞表格控制　加上id号
就是这样的
<td id="zoom">

在你需要的地方插入字体的　大　中　小控制就可以了
代码如下
<p align=right>调整字体: <b>【<a href="#" onclick="doZoom(18);return false;">大号</a>】</b><b>【<a href="#" onclick="doZoom(15);return false;">中号</a>】</b><b>【<a href="#" onclick="doZoom(12);return false;">小号</a>】</b> </p>

[77] 问:
图片浏览不计数的BUG

photo_viewer.asp

找到
if FoundErr<>True then
sql = "update Soft set Hits=Hits+1"
if datediff("D",rs("LastHitTime"),now())<=0 then
sql=sql&",DayHits=DayHits+1"
else
sql=sql&",DayHits=1"
end if
if datediff("ww",rs("LastHitTime"),now())<=0 then
sql=sql&",WeekHits=WeekHits+1"
else
sql=sql&",WeekHits=1"
end if
if datediff("m",rs("LastHitTime"),now())<=0 then
sql=sql&",MonthHits=MonthHits+1"
else
sql=sql&",MonthHits=1"
end if
sql=sql&",LastHitTime=now()"
set rs=nt2003.execute(sql)
end if

替换成
if FoundErr<>True then
rs("Hits")=rs("Hits")+1
if datediff("D",rs("LastHitTime"),now())<=0 then
rs("DayHits")=rs("DayHits")+1
else
rs("DayHits")=1
end if
if datediff("ww",rs("LastHitTime"),now())<=0 then
rs("WeekHits")=rs("WeekHits")+1
else
rs("WeekHits")=1
end if
if datediff("m",rs("LastHitTime"),now())<=0 then
rs("MonthHits")=rs("MonthHits")+1
else
rs("MonthHits")=1
end if
rs("LastHitTime")=now()
rs.update
end if

[78] 问:
3。6背景修改的方法

后台编辑CSS里面修改

BODY
{
FONT-SIZE: 9pt;background:url(Skin/xxxxx/bg.gif);
}

[79] 问:
网站注册自动返回文件下载及修改方法
好象很多朋友需要,这个改法也非常简单,但不会破坏网站和论坛的任何东西,不影响论坛升级,所以我也一直使用的这个方法.大家觉得可以就用,也帮顶一下.
本文件只适用动力3.6+动网7.0SP2


首先将bbs_reg.asp文件传到论坛根目录
这主要利用动网论坛模版化的功能,下面的动网后台的添加必须在你所使用的默认的默板里添加,当然你把你所有的模版都加上也可以,不影响论坛登陆,最好先备份论坛数据库.

第一步:

一\\\\\这是网站直接使用论坛的注册协议及注册页面的动力修改的地方

修改INC目录里的function.asp文件,找到<a href='User_Reg.asp'>用户注册</a>将User_Reg.asp改为bbs_reg.asp改过后为<a href='bbs_reg.asp'>用户注册</a>

二\\\\\\这是使用动力3.6注册协议修改动力的地方

修改User_Reg.asp文件:

找到<form action="<%=forum_dir%>/reg.asp?action=apply" method="post">修改为

<form action="<%=forum_dir%>/bbs_reg.asp?action=apply" method="post">


第二步:太长,就不复制了,自己下文件去看吧


http://mm.y00.net/bbs_reg.rar

[80] 问:
给首页做个网站导航
参考文件syscode_Article.asp syscode_soft.asp syscode_Photo.asp里ShowClassNavigation（显示栏目导航），略加修改，做成首页的网站导航。


演示：http://www.shuxue123.com/xyz/

方法：1、在index.asp下面任一个end function后添加以下3个过程函数。
2、在index.asp中任一个TempStr = Replace．．．后插入下面代码：
TempStr = Replace(TempStr,"{$ShowArticleClassNavigation}",ShowArticleClassNavigation)
TempStr = Replace(TempStr,"{$ShowSoftClassNavigation}",ShowSoftClassNavigation)
TempStr = Replace(TempStr,"{$ShowPhotoClassNavigation}",ShowPhotoClassNavigation)
3、后台分页面模板(page_index) 适当位置，在某个<td></td>之间加入标签：
{$ShowArticleClassNavigation}{$ShowSoftClassNavigation}{$ShowPhotoClassNavigation}

说明：出现编译器错误的原因是代码中<br>被执行了，因而不能把代码贴上。

点击：http://www.shuxue123.com/xyz/abc.rar 下载下面3个函数代码。

'=================================================
'过程名：ShowArticleClassNavigation
'作 用：显示首页文章栏目导航
'参 数：无
'=================================================

'=================================================
'过程名：ShowSoftClassNavigation
'作 用：显示首页下载栏目导航
'参 数：无
'=================================================


'=================================================
'过程名：ShowPhotoClassNavigation
'作 用：显示首页图片栏目导航
'参 数：无
'=================================================
[81] 问:
彻底解决升级后留言板不能显示问题。

首先，把数据库后缀名改为mdb，例如：fp360609.asp改为fp360609.mdb，然后，用Access打开，在Guest下增加字段GuestTypeadmin，属性为最后四项为：否，是，有，是，就可以解决问题，不能修改文件syscode_guest.asp，否则，不能正确显示用户名字。

[82] 问:
最新文章、软件显示其所在栏目的方法
演示：http://www.shuxue123.com/xyz/


1、最新文章显示其所在栏目的方法
文件syscode_Article.asp里
'=================================================
'过程名：ShowNewArticle
'作 用：显示最新文章
'参 数：ArticleNum ----最多显示多少篇文章
' TitleLen ----标题最多字符数，一个汉字=两个英文字符
'=================================================
function ShowNewArticle(ArticleNum,TitleLen)
dim sqlNew,rsNew,strrow,strcol,i,tmpdata
nt2003.Name="NewArticle"
If nt2003.ObjIsEmpty() Then
sqlNew="select top 20 A.ArticleID,A.Title,A.Author,A.UpdateTime,A.Hits,A.ReadLevel,A.ClassID,L.LayoutFileName from article A inner join Layout L on L.LayoutID=A.LayoutID where A.Deleted=False and A.Passed=True order by A.articleid desc"
Set rsNew = nt2003.execute(sqlNew)
if rsNew.bof and rsNew.eof then
nt2003.value=""
else
nt2003.value = rsNew.GetString(,,"|||","@@@","")
end if
rsNew.close
set rsNew=nothing
end if
if TitleLen<0 or TitleLen>255 then TitleLen=50
if nt2003.value="" then
tmpdata = "<font color=#ff9900>·</font>没有任何文章"
else
strrow=Split(nt2003.value,"@@@")
dim loopnum
if ArticleNum<UBound(strrow) then
loopnum=ArticleNum-1
else
loopnum=UBound(strrow)-1
end if
for i = 0 to loopnum
strcol=Split(strrow(i),"|||")
if strcol(5)=>Userlevel then
tmpdata = tmpdata & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href='Article_Class.asp?ClassID="&strcol(6)&"'><font color=#4474A3>[" & conn.execute("select * from ArticleClass where ClassID = "& strcol(6))("ClassName") & "]</font></a><a href='" & strcol(7) & "?ArticleID=" & strcol(0) &"' title='文章标题：" & strcol(1) & vbcrlf & "文章作者：" & strcol(2) & vbcrlf & "更新时间：" & strcol(3) & vbcrlf & "点击次数：" & strcol(4) & "' target='_blank'>" & gotTopic(strcol(1),TitleLen) & "</a></td><td align=right>[<font color=#999999>"
if month(strcol(3))<10 then
tmpdata = tmpdata & "0"
end if
tmpdata = tmpdata & month(strcol(3)) & "-"
if day(strcol(3))<10 then
tmpdata = tmpdata & "0"
end if
tmpdata = tmpdata & day(strcol(3)) & "</font>]</td></tr></table>"
end if
next
end if
ShowNewArticle=tmpdata
end function

2、最新软件显示其所在栏目的方法
文件Index.asp里
'=================================================
'过程名：ShowNewSoft
'作 用：显示最新软件更新
'=================================================
function ShowNewSoft
dim sqlNew,rsNew,strrow,strcol,i,strtemp
nt2003.Name="NewSoft"
If nt2003.ObjIsEmpty() Then
sqlNew="select top 8 S.SoftID,S.ClassID,S.SoftName,S.SoftVersion,S.Author,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"
Set rsNew = nt2003.execute(sqlNew)
if rsNew.bof and rsNew.eof then
nt2003.value=""
else
nt2003.value = rsNew.GetString(,,"|||","@@@","")
end if
rsNew.close
set rsNew=nothing
end if
if nt2003.value="" then
strtemp = "<font color=#ff9900>·</font>没有任何下载"
else
strrow=Split(nt2003.value,"@@@")
for i = 0 to UBound(strrow)-1
strcol=Split(strrow(i),"|||")
strtemp = strtemp & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href='soft_Class.asp?ClassID="&strcol(1)&"'><font color=#4474A3>[" & conn.execute("select * from softClass where ClassID = "& strcol(1))("ClassName") & "]</font></a><a href='Soft_Show.asp?SoftID=" & strcol(0) & "' title='软件名称：" & strcol(2) & vbcrlf & "软件版本：" & strcol(3) & vbcrlf & "文件大小：" & strcol(11) & " K" & vbcrlf & "软件作者：" & strcol(4) & vbcrlf & "更新时间：" & strcol(5) & vbcrlf & "下载次数：今日:" & strcol(8) & " 本周:" & strcol(9) & " 本月:" & strcol(10) & " 总计:" & strcol(7) & "' target='_blank'>" & gotTopic(strcol(2) & " " & strcol(3),30) & "</td><td align=right>["
if CDate(FormatDateTime(strcol(5),2))=date() then
strtemp = strtemp & "<font color=red>"
else
strtemp = strtemp & "<font color=#999999>"
end if
if month(strcol(5))<10 then
strtemp = strtemp & "0"
end if
strtemp = strtemp & month(strcol(5)) & "-"
if day(strcol(5))<10 then
strtemp = strtemp & "0"
end if
strtemp = strtemp & day(strcol(5)) & "</font>]</td></tr></table>"
next
end if
ShowNewSoft=strtemp
end function

点击修改生效

[83] 问:
如何不显示最新栏目文章标题后的时间
文件function.asp：


'*************************************************
'缓存文章栏目
'=================================================
'过程名：ArticleContentshiyu
'作 用：显示文章属性、标题、作者、更新日期、点击数等信息
'参 数：intTitleLen ----标题最多字符数，一个汉字=两个英文字符
' ShowProperty ----是否显示文章属性（固顶/推荐/普通），True为显示，False为不显示
' ShowIncludePic ---是否显示“[图文]”字样，True为显示，False为不显示
' ShowAuthor -------是否显示文章作者，True为显示，False为不显示
' ShowDateType -----显示更新日期的样式，0为不显示，1为只显示月日，2为显示年月日。
' ShowHits ---------是否显示文章点击数，True为显示，False为不显示
' ShowHot ----------是否显示热门文章标志，True为显示，False为不显示
'=================================================

strtemp = strtemp & ArticleContentshiyu(20,True,True,False,1,False,False)

[84] 问:
如何在css中定义链接的下划线为虚线
A:hover {
BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; COLOR: #ff6600; BORDER-BOTTOM: 1px dotted; BORDER-RIGHT-WIDTH: 1px; TEXT-DECORATION: none
}

[85] 问:
3.6 banner的宽度怎么改?

模板css样式里
.van_main
里的60改成你想要的数字就可以了

[86] 问:
首页下载更新时间前竖杠问题的解决
这只是一个临时的办法
index.asp

298行，前面插入
if mid(strcol(5),1,1)="|" then
strcol(5)=mid(strcol(5),2)
end if

另：
如果不想显示全日期时间格式可再加这句
strcol(5)=month(strcol(5))&"-"&day(strcol(5))&" "&hour(strcol(5))&":"&minute(strcol(5))
月-日 时：分

如果你有我的补零函数，可以加入补零对齐，全日期格式的如下
strcol(5)=year(strcol(5))&"-"&bl(month(strcol(5)))&"-"&bl(day(strcol(5)))&" "&bl(hour(strcol(5)))&":"&bl(minute(strcol(5)))&":"&bl(second(strcol(5)))

[87] 问:
3.6版中如何将首页上时间格式改为"2004年8月5日 星期四"?

想将"2004年8月5日 17:24:06 星期四"改为"2004年8月5日 星期四",应该如何修改,请各位老大指点,谢谢!(3.6版)

(原来效果：2004年8月5日 17:24:06 星期四)
<script>setInterval("jnkc.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt (new Date().getDay());",1000);</script>

(你要的效果：2004年8月5日 星期四)
<script language="Javascript" type="text/Javascript">
var day="";
var month="";
var ampm="";
var ampmhour="";
var myweekday="";
var year="";
mydate=new Date();
myweekday=mydate.getDay();
mymonth=mydate.getMonth()+1;
myday= mydate.getDate();
myyear= mydate.getYear();
year=(myyear > 200) ? myyear : 1900 + myyear;
if(myweekday == 0)
weekday=" 星期日 ";
else if(myweekday == 1)
weekday=" 星期一 ";
else if(myweekday == 2)
weekday=" 星期二 ";
else if(myweekday == 3)
weekday=" 星期三 ";
else if(myweekday == 4)
weekday=" 星期四 ";
else if(myweekday == 5)
weekday=" 星期五 ";
else if(myweekday == 6)
weekday=" 星期六 ";
document.write(year+"年"+mymonth+"月"+myday+"日 "+weekday);
</script>

[88] 问:
如何滚动的公告板如何显示全文？
打开function.asp，找到
'过程名：Announcestr
'作 用：显示本站公告信息
do while not rsAnnounce.eof
　　response.Write "<a href='#'....
将..."'>" & rsAnnounce("title") & "</div>中的rsAnnounce("title")...改成& rsAnnounce("title") & ";"& rsAnnounce("Content") &

[89] 问:
给最新栏目文章下边每个栏目的标题加上背景（望置顶）

方法是： 打开INC目录下的function.asp 文件

找到 strtemp = strtemp & "<tr><td class='title_right'><table width='100%'  border='0' cellspacing='0' cellpadding='0'>" 这一行

然后在这一行里添加图片路径：  

strtemp = strtemp & "<tr><td class='title_right'><table width='100%'  border='0' cellspacing='0' cellpadding='0' background='你的图片所在的目录/你的图片名字'>"

注意： background=的后边到红字结束也就是从=号后一直到>的前边 一定不能出现" 一定要是 '

这个是给菜鸟们说的 呵呵

演示地址：http://www.kuniu.net

感谢 lhb给我提醒~！！

我还要说的是 我以前在论坛上发问题贴 跟本就没人理我~！！！ 火大！！~

[90] 问:
[原创]动力系统验证码在WinXP SP2下不显示的解决方案
前几天在这里提出了装了Windows XP SP2 RC2 2149后，所有版本的动力、动易系统的验证码将不能显示的问题，也许是装SP2的人不多的缘故，一直没有高手能给出一个完美的解决方法，因此只能自己动手来想办法解决！
    
       不能显示动力验证码的原因，据ssite.org的管理员笨笨巫师推断：“效验码图片不能显示是因为其特殊的图片格式，sp2出于安全考虑禁止了他的显示。尚无解决办法。”

       不过在SP2下面，动网的验证码显示却没问题，因为动网的验证码采用的是BMP格式的图片，而不是动力所采用的被SP2屏蔽的XBM格式图片，所以就可以把动网的验证码文件稍做修改转到动力上来！

       论坛怎么不能上传附件？只能用我的空间了http://www.classic99.net/checkcode.rar
下载这个文件并放入相应目录！

虽然这可能在高手眼里是一个微不足道的小问题，但请不要嘲笑我这个对ASP一窍不通的大菜鸟对此所做的努力和如此般的小题大做发这个原创贴！