自由动力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文件下载：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" >

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 自由动力自由动力 3.6版3.6版 90个问答90个问答
相关日志: