谁有FileUp组件使用说明,麻烦给一份?

magangnet 2005-05-14 09:44:47
不是SA-FileUp 组件,也不是别的。就是FileUp组件。
...全文
97 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
magangnet 2005-05-17
  • 打赏
  • 举报
回复
真的没有知道的吗?
cmslovehxh 2005-05-16
  • 打赏
  • 举报
回复
google找,很多例子的
magangnet 2005-05-16
  • 打赏
  • 举报
回复
没有纯FileUp组件,都是别的,唉.....分不够可以加 啊
cmslovehxh 2005-05-15
  • 打赏
  • 举报
回复
使用说明要完全版才有吧,例子就大把
magangnet 2005-05-15
  • 打赏
  • 举报
回复
但是我可以验证组件?

Dim Str
Call CheckObj("FileUp.upload")
Response.write Str

Function CheckObj(strClassString)
On Error Resume Next
Dim Temp
Err = 0
Dim TmpObj
Set TmpObj = Server.CreateObject(strClassString)
Temp = Err
If Temp = 0 Then
CheckObjInstalled = True
Str = "<font color=green class=GreenFont>√</font>"
ElseIf Temp = -2147221005 Then
Str = "<font color=red class=RedFont>组件未安装</font>"
CheckObjInstalled = False
ElseIf Temp = -2147221477 Then
Str = "<font color=green class=GreenFont>√支持此组件</font>"
CheckObjInstalled = True
ElseIf Temp = 1 Then
Str = "<font color=red>×未知的错误,组件可能未正确安装</font>"
CheckObjInstalled = False
End If
Err.Clear
Set TmpObj = Nothing
Err = 0

End Function
magangnet 2005-05-15
  • 打赏
  • 举报
回复
我晕,为什么无法创建对象
Set FileUp = server.createobject("FileUp.upload")‘就是它
If Err Then
TempStr = TempStr & " 请再重新提交表单!<br>" & VbCrLf
Err.Clear
Response.End
End If
出现如下错误

fileup.Upload 错误 '8004001b'
Content Disposition Error
upfile.asp,行12
magangnet 2005-05-15
  • 打赏
  • 举报
回复
例子也行啊!

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧