谁改过动力文章SQL版的程序?急需帮助!问题解决就结贴!分不够可在加!

xsphello 2004-04-08 05:09:00
我希望能在QQ里在线说,这样能更快解决问题。请留下你的QQ或加我!
我的QQ:273138901
...全文
10 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xsphello 2004-04-17
动力文章中上传图片时,出现了下面的错误,我把后台管理的文件移到了一个与这些文件平级的文件夹里。upload_article.asp前面包含的文件也更改了。图片现在能上传但上传一个后,上传图片那个页面就空白了,不能上传第二个图片了。下面的代码有问题吗?
strJS="<SCRIPT language=javascript>" & vbcrlf
if FoundErr<>true then
randomize
ranNum=int(900*rnd)+100
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt

ofile.SaveToFile Server.mappath(FileName) '保存文件

msg="上传文件成功!"

strJS=strJS & "parent.HtmlEdit.focus();" & vbcrlf
strJS=strJS & "var range = parent.HtmlEdit.document.selection.createRange();" & vbcrlf
select case FileExt
case "jpg","gif","png","bmp"
strJS=strJS & "range.pasteHTML('<img src=" & filename
if ImgWidth>0 then
strJS=strJS & " width=" & ImgWidth
end if
if ImgHeight>0 then
strJS=strJS & " height=" & ImgHeight
end if
select case AlignType
case 0,1
strJS=strJS & " align=left"
case 2
strJS=strJS & " align=center"
case 3
strJS=strJS & " align=right"
end select
strJS=strJS & " border=0>');" & vbcrlf
case "swf"
strJS=strJS & "range.pasteHTML('<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
if ImgWidth>0 then
strJS=strJS & " width=" & ImgWidth
end if
if ImgHeight>0 then
strJS=strJS & " height=" & ImgHeight
end if
strJS=strJS & "><param name=movie value=" & FileName & ">"
strJS=strJS & "<param name=quality value=high>"
strJS=strJS & "<embed src=" & FileName & " quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash"
if ImgWidth>0 then
strJS=strJS & " width=" & ImgWidth
end if
if ImgHeight>0 then
strJS=strJS & " height=" & ImgHeight
end if
strJS=strJS & "></embed></object>');" & vbcrlf
case else
strJS=strJS & "range.text='[upload=" & FileExt & "]" & FileName & "[/upload]';" & vbcrlf
end select
strJS=strJS & "parent.parent.AddItem('" & filename & "')" & vbcrlf
end if
‘假如这有个response.write("———")能执行呢。但下面的alert没执行。为什么呢?
strJS=strJS & "alert('" & msg & "');" & vbcrlf


strJS=strJS & "history.go(-1);" & vbcrlf
strJS=strJS & "parent.HtmlEdit.focus();" & vbcrlf
strJS=strJS & "</script>"
response.write strJS
set file=nothing
回复
xsphello 2004-04-12
theInstalledObjects(9) = "Scripting.FileSystemObject"
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%>
这是动力文章sql版的后台admin_index_main.asp中的代码。没错吧。为什么还说我的
FSO文本读写: ×
我照着renniliao(小a) 方法改了还是这样。
我的默认站点上放的动网论坛执行的结果都是:FSO文本读写: √
为什么呢?我的动力文章是在虚拟目录下的。
回复
aspnetxp 2004-04-12
将问题的基本内容提出来!
回复
www.bbdzsw.com/bbs
回复
你如果有什么问题,我们可心做下来交流。
msn:lhwgxm@yahoo.com.cn
QQ:13582515[最好是不要加]
回复
hongmaohouzi 2004-04-12
将问题的基本内容提出来!
回复
renniliao 2004-04-12
更改虚拟目录的权限
把可写入选项选中。
回复
xsphello 2004-04-12
我用动力文章SQL版时后台管理里有个管理首页测试出我的服务器不支持fso(FSO文本读写: × )后台添加产品时点已从上传图中选择时会出现:您的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能 。这到底怎么回事呀!
我装了iis 呀,别人都说支持fso这是默认的。那是程序问题吗?
回复
xsphello 2004-04-08
我的邮箱:0992@xj111.com
回复
xsphello 2004-04-08
你有改过的代码吗?是不是免费的?能不能发给我一份看看。我现在有点读不懂里面的代码。有点复杂。调用的函数及文件太多。及其中定义的变量也太多。
回复
popcode 2004-04-08
有什么问题提出来吧
回复
liuyingzi 2004-04-08
我曾做过图书管理系统
参考过 动力文章
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告