自由动力3.6版90个问答
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文件下载： [url]http://www.jlzhzx.cn/htdocs/Photo_Search.rar[/url]
===============================================
把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文件下载： [url]http://www.jlzhzx.cn/htdocs/Photo_Search.rar[/url]
[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、打开浏览器，在地址栏中输入本升级程序的地址，运行本程序。如： [url]http://localhost/up_adminpass.asp[/url]。
4、然后输入须修复管理员密码的数据库文件名（默认为Database/fp360609.asp），然后点“我已做好选择，确认修复密码”开始升级。
5、有任何问题欢迎访问创力网站([url]www.clwang.com[/url])和创力论坛(bbs.clwang.com)
注意事项：
1、本升级程序只在于动力3.51/3.61/动易4.03/动网7.0/BBSXP5.0下测试通过。不保证也能适用于其他版本。
2、此程序由一枝梅制作，对使用过程序造成任何损失，本人不负责！
3、操作成功完成后，一定要删除此文件！以免带来安全隐患。
下载： [url]http://www.clwang.com/Soft_Show.asp?SoftID=89[/url]
[38] 问:
广告管理中名称，广告地址不正确的解决办法（更新）
=================================================
lhb: 感谢热心的朋友hudson为大家提供的解决方法，为方便大家，为大家提供修正后的Admin_Advertisement.asp:
下载修正后的文件Admin_Advertisement.asp下载：
[url]http://www.jlzhzx.cn/htdocs/Admin_Advertisement.rar[/url]
====================================================
以下为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下载：（点击下面的下载链接） [url]http://www.jlzhzx.cn/htdocs/sms_main.rar[/url]
========================================================
6、免费用户升级到收费用户出错的解决办法 (7月21日)
lhb: 感谢热心的朋友（0km）为大家提供的修正文件：
下载修正后的文件Admin_User.asp下载：（点击下面的下载链接）
[url]http://www.jlzhzx.cn/htdocs/Admin_User.rar[/url]
[40] 问:
修正软件评价的BUG (7月30日)
lhb: 感谢热心的朋友（yandeqing）为大家提供的修正办法：
解决了软件评价的BUG
将 103行改为（修改加黑部分）
<form name="myform" method="post" action="Soft_Comment.asp" onSubmit="return myform.Score" >
请问怎么才能实现在首页调用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文件下载： [url]http://www.jlzhzx.cn/htdocs/Photo_Search.rar[/url]
===============================================
把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文件下载： [url]http://www.jlzhzx.cn/htdocs/Photo_Search.rar[/url]
[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、打开浏览器，在地址栏中输入本升级程序的地址，运行本程序。如： [url]http://localhost/up_adminpass.asp[/url]。
4、然后输入须修复管理员密码的数据库文件名（默认为Database/fp360609.asp），然后点“我已做好选择，确认修复密码”开始升级。
5、有任何问题欢迎访问创力网站([url]www.clwang.com[/url])和创力论坛(bbs.clwang.com)
注意事项：
1、本升级程序只在于动力3.51/3.61/动易4.03/动网7.0/BBSXP5.0下测试通过。不保证也能适用于其他版本。
2、此程序由一枝梅制作，对使用过程序造成任何损失，本人不负责！
3、操作成功完成后，一定要删除此文件！以免带来安全隐患。
下载： [url]http://www.clwang.com/Soft_Show.asp?SoftID=89[/url]
[38] 问:
广告管理中名称，广告地址不正确的解决办法（更新）
=================================================
lhb: 感谢热心的朋友hudson为大家提供的解决方法，为方便大家，为大家提供修正后的Admin_Advertisement.asp:
下载修正后的文件Admin_Advertisement.asp下载：
[url]http://www.jlzhzx.cn/htdocs/Admin_Advertisement.rar[/url]
====================================================
以下为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下载：（点击下面的下载链接） [url]http://www.jlzhzx.cn/htdocs/sms_main.rar[/url]
========================================================
6、免费用户升级到收费用户出错的解决办法 (7月21日)
lhb: 感谢热心的朋友（0km）为大家提供的修正文件：
下载修正后的文件Admin_User.asp下载：（点击下面的下载链接）
[url]http://www.jlzhzx.cn/htdocs/Admin_User.rar[/url]
[40] 问:
修正软件评价的BUG (7月30日)
lhb: 感谢热心的朋友（yandeqing）为大家提供的修正办法：
解决了软件评价的BUG
将 103行改为（修改加黑部分）
<form name="myform" method="post" action="Soft_Comment.asp" onSubmit="return myform.Score" >