神马文学网自由动力3.6版90个问答-2
来源：百度文库 编辑：神马文学网 时间：2024/04/19 08:51:16
[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(‘点击浏览该文档‘);" & 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了
<%
‘请勿改动下面这三行代码
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
能不能指点一下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(‘点击浏览该文档‘);" & 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了
<%
‘请勿改动下面这三行代码
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
自由动力3.6版90个问答-2
自由动力3.6版90个问答-1
自由动力3.6版90个问答-3
自由动力3.6版90个问答-4
自由动力3.6版90个问答-6
关于钱学森的20个问答2
“性幻想“性自由”是社会前进的动力！
70个JAVA问答
质量管理173个问答
社保知识问答（108个问答）
社保知识问答（108个问答）
大智慧经典版 1 个问题？ - 问答网
动力：激励进展(2)
动力：清除障碍(2)
失去动力时的4个解决办法
150个医药健康问答
动力：保留睿翼轿车版的动力系统
动力：鼓励发挥主动性(2)
70个JAVA问答--xbasen的博客
70个JAVA问答--xbasen的博客
70个JAVA问答--xbasen的博客
关于钱学森的20个问答
有关打豆浆的21个问答
关于高效课堂的16个问答