2.8w+
社区成员
- 主页
谁改过动力文章SQL版的程序？急需帮助！问题解决就结贴！分不够可在加!
我希望能在QQ里在线说，这样能更快解决问题。请留下你的QQ或加我！
我的QQ：273138901
我的QQ：273138901
...全文
当前发帖距今超过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
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文本读写： √
为什么呢？我的动力文章是在虚拟目录下的。
<%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
将问题的基本内容提出来！
会织网的蚂蚁 2004-04-12
www.bbdzsw.com/bbs
会织网的蚂蚁 2004-04-12
你如果有什么问题，我们可心做下来交流。
msn:lhwgxm@yahoo.com.cn
QQ:13582515[最好是不要加]
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这是默认的。那是程序问题吗？
我装了iis 呀，别人都说支持fso这是默认的。那是程序问题吗？
xsphello 2004-04-08
我的邮箱：0992@xj111.com
xsphello 2004-04-08
你有改过的代码吗？是不是免费的？能不能发给我一份看看。我现在有点读不懂里面的代码。有点复杂。调用的函数及文件太多。及其中定义的变量也太多。
popcode 2004-04-08
有什么问题提出来吧
liuyingzi 2004-04-08
我曾做过图书管理系统
参考过 动力文章
参考过 动力文章
