无法上传图片亟待解决

[k5624]

Function UploadFile(name)
Dim FileName
If Trim(xForm.FileName(name)) = "" Then
UploadFile = ""
Exit Function
End If
FileName = FilteFileName(xForm.FileName(name))
If FileName = "" Then
UploadFile = ""
Exit Function
End If
FileName = Replace(FileName," ","")
FileName = Replace(FileName,"'","")
FileName = Replace(FileName,"""","")
If LenB(xForm.Data(name))>500*1024 Then
UploadFile = ""
Exit Function
End If
'Response.Write(LenB(xForm.Data(name)))
'Create Folder
Set Myfd = Server.CreateObject("Scripting.FileSystemObject")
If Myfd.FolderExists(Path) = 0 Then
Myfd.CreateFolder(Path)
End If
Randomize
bExs = 0
Do While bExs=0
RegCode = ""
For i =1 to 6
RegCode = RegCode & Chr(Int(10*Rnd+48))
Next
If Not Myfd.FileExists(Path & RegCode & FileName) Then
bExs=1
End If
Loop
FileName = RegCode & FileName

Set objSF = Server.CreateObject("Rong.SaveFile")
objSF.SaveFile Path&FileName,xForm.Data(name)
Set objSF = Nothing
Set Myfd = Nothing
UploadFile = Path1 & FileName
End Function

[cqhunter]

你就这么一段代码，根本看出你的问题在哪里？错误提示也没有
建议你google一下，asp无组件上传

[k5624]

谢谢

[一把编程的菜刀]

如果是你自己服务器就用组件上传

如果不是，就使用无组件或者查看服务器支持什么组件上传

[sy_binbin]

服务器上注册Rong.SaveFile这个组件了吗

[zjzb0409]

可以在百度中 搜索个无惧无组件上传

[yanxunet]

在asp上传文件有两个方式
(1)有组件：需要在服务器上注册相应的dll 创造方式 Server.Create("XXX")
(2)无组件: 不需要注册，但要#include 相应的类 创建方式 New ClassName

这两个概念记好了，然后去找一些常用的有组组上传和无组件上传，在自己的机器上测试一下，这样才能撑握好asp上传

[k5624]

谢谢 问题没有解决但是我找到了替代的方法了！！