asp无组件上传图片本地测试都可以啦，到服务器上就不能用啦？谁知道原因！

1用asp探针检查一下，fso组件有没有启用

2网站上传目录有没有读写权限

3服务器如果是win2003，检查文件大小是否超过200k,要修改服务器的设置

4无组件是否稳定，如果服务器是自己的，建议安装组件

'文件的无组建上传，如果上传成功那么返回上传后的相对路径。

Function FileUpLoad(FileFrom,FileGo)

Dim Postfix,FileName,UpLoadPath,Sobject

Postfix = LCase(Mid(FileFrom,InstrRev(FileFrom,"")))

If Postfix = "jpg" or Postfix = "gif" Then

FileName = Year(Now())&Month(Now())&Day(Now())&Hour(Now())&Minute(Now())&Second(Now())&Postfix

UpLoadPath = ServerMapPath(FileGo)&"\"&FileName

Set Sobject = ServerCreateObject("AdodbStream")

SobjectType = 1

SobjectOpen

SobjectLoadFromFile FileFrom

SobjectSaveToFile UpLoadPath,2

SobjectClose

FileUpLoad = FileGo&"\"&FileName

Else

FileUpLoad = ""

End If

End Function

学ASP已经一年了，初学的时候感觉什么都难，好几次都想放弃，还好坚持了下来，今天看到有人要无组建上传，我便随便写了个函数，希望大家给点意见

调用方法：

Call FileUpLoad("目标文件","把目标文件放在哪里，这里是相对路径，")

还是写一下吧，

Dim fUd

fUd = RequestFrom("名字") '文件域

'你的根目录下有一个Images的文件夹

Call FileUpLoad(fUd,"Images")

这样就可以了。