法音在线 » 『网站技术支持』 » 添加文章附件的改进（可以下载，少了一个文件，已更新）

vinciliu 发表于 2008-4-15 09:42 AM

添加文章附件的改进（可以下载，少了一个文件，已更新）

[table=50%][tr][td][/td][/tr][/table]见图，目前可以带一个附件
[attach]11779[/attach]
[attach]11780[/attach]
[attach]11778[/attach]

1.  替换admin/下的文件，在附件里（两个文件）
2.  修改typenews.asp，将下列代码加在合适的位置

   If rs("attachfile")<>"" or rs("url1")<>"" Then
   response.write "<div id=""attachfile""><FONT COLOR=#ff0000>附件：</FONT><a href="&rs("url1")&">"&rs("attachfile")&"</a></div>"
   End If

[[i] 本帖最后由 vinciliu 于 2008-4-15 09:12 PM 编辑 [/i]]

xiamaofensi 发表于 2008-4-15 09:43 AM

不错

jkhome 发表于 2008-4-15 11:13 AM

麻烦楼主辛苦下，发一个上来啊

weijiang008 发表于 2008-4-15 11:15 AM

兄弟你那个有点错误!我改了改!

Admin_Add.asp中代码第4行要改成
dim SortID,Sort1,Sort2,sContent,fieldexists,attachfile

typenews.asp中代码第167行<%Call ReadContent()%>后加入

<%If rs("attachfile")<>"" or rs("url1")<>"" Then
   response.write "<div id=""attachfile""><FONT COLOR=#ff0000>附件：</FONT><a href="&rs("url1")&">"&rs("attachfile")&"</a></div>"
   End If
%>


还有上传图片有问题了!

[[i] 本帖最后由 weijiang008 于 2008-4-15 06:12 PM 编辑 [/i]]

okokyes 发表于 2008-4-15 01:26 PM

不错，又有新功能了。
支持楼主分享成果

dlwlh3510 发表于 2008-4-15 02:06 PM

出现错误: 63、Excessive expiration value.

vinciliu 发表于 2008-4-15 02:27 PM

请上截图

dlwlh3510 发表于 2008-4-15 02:51 PM

就是在上传之后在本应显示“上传成功！删除”的地方显示“出现错误: 63、Excessive expiration value.”

vinciliu 发表于 2008-4-15 03:16 PM

上传的文件类型和大小？
本机还是虚拟主机？

dlwlh3510 发表于 2008-4-15 03:31 PM

在本机测试的，上传图片或者其它文件都是如此。需说明：我已经安装了那2个上传组件。

weijiang008 发表于 2008-4-15 04:18 PM

错误类型：
Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'fieldexists'
/xmzfw/admin/Admin_Add.asp, 第 29 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

网页：
POST 187 ??? /xmzfw/admin/Admin_Add.asp

POST Data:
SortID=1%7C99&title=ewrqqwe&attachfile=&url1=UploadFile%2Farticle%2Fdownfile%2F05%BD%CC%D1%A7%BD%F8%B6%C8%B1%ED.doc&Content=eee&Key=%B9%D8%BC%FC%D7%D6&Date=2008-4-15&cmdok=+%CC%ED+%BC%D3+

123456 发表于 2008-4-15 05:19 PM

是的: 错误类型：
Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'fieldexists'
/xmzfw/admin/Admin_Add.asp, 第 29 行

还有 添加文章时上传图片成功,但没有确定按钮,无法保存,请求解决!!

vinciliu 发表于 2008-4-15 08:56 PM

回复 11# 的帖子

抱歉，因为我取消了<% option explicit%>
请在admin_add.asp 29行之前添加
Dim fieldexists

vinciliu 发表于 2008-4-16 09:12 AM

回复 8# 的帖子

我暂时没发现，先看看其他人有没有同样的问题

dlwlh3510 发表于 2008-4-16 09:20 AM

增加2个定义后，问题已经解决。

cflyl 发表于 2008-4-16 09:50 AM

:) :)

alen2008 发表于 2008-4-17 05:52 PM

我测试了一下,没用的,能上传附件,但上传时会出现[size=12px]出现错误: 424、缺少对象[color=#800080]重新上传[/color][/size]
[size=12px]上传成功！[url=http://192.168.0.8/admin/uploadfile.asp?big=C:\Documents and Settings\Administrator\桌面\xmzfw\UploadFile\article\downfile\古诗(1).txt&act=delete&action=articlefile][color=#0000ff]删除[/color][/url][/size]
[size=12px]而且,再去上传图片,会显示出错.[/size]
[size=12px]在typenew.asp页面,单击附件,不能打开相应的附件[/size]
[size=12px]不知道大家有没有同样的问题,请高手们帮忙解决一下.[/size]

vinciliu 发表于 2008-4-17 09:34 PM

回复 17# 的帖子

重新下载admin_add.asp

weijiang008 发表于 2008-4-18 10:37 AM

改了之后!能插入图片,图片可出来!但有以下问题!

[attach]11824[/attach]

vinciliu 发表于 2008-4-18 11:30 PM

回复 19# 的帖子

找到upload.asp这一行：

Upload.SetMaxSize UploadLimitSize*1000, True
改成
Upload.SetMaxSize UploadLimitSize, True

查看完整版本: 添加文章附件的改进（可以下载，少了一个文件，已更新）