aspupload服务器错误

ASPupload 服务器错误可能是由于ASP上传的设置不正确或者文件权限不够导致的。为了解决这个问题，可以检查ASP上传的表单设置，确保已经设置了允许文件上传的最大文件大小，同时确保上传后文件能够被存储在正确的位置，并拥有正确的文件权限。

ajax异步。

图1图2分别异步提交图片到后台。新名字的话也是后台处理的。图片存在空间里，把图片名存在数据库里。输出图片名到前台

前台图1图2后面可分别设一个隐藏的 input 用来ajax返回各自的图片名。

总的提交按钮只提交隐藏的input即可。（input里是图片名，可同时提交多个input）

暂无图片在第一次加载html时加载。每一次ajax上传图片除了返回图片名到对应的input外，还同时js动态输出新img标签代替对应的暂无图片，新img标签要写好完整的图片地址。

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

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 = Server.MapPath(FileGo)&"\"&FileName

Set Sobject = Server.CreateObject("Adodb.Stream")

Sobject.Type = 1

Sobject.Open

Sobject.LoadFromFile FileFrom

Sobject.SaveToFile UpLoadPath,2

Sobject.Close

FileUpLoad = FileGo&"\"&FileName

Else

FileUpLoad = ""

End If

End Function

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

调用方法：

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

还是写一下吧，

Dim fUd

fUd = Request.From("名字") '文件域

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

Call FileUpLoad(fUd,"Images")

这样就可以了。

---