Question

我想用ASP上传图片,我用的是ASPUPLOAD组件,可惜服务器不支持,怎么样才能实现无组件上传??

我想用ASP上传图片,我用的是ASPUPLOAD组件,可惜服务器不支持,怎么样才能实现无组件上传??

Answer 1

'文件的无组建上传，如果上传成功那么返回上传后的相对路径。
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")
这样就可以了。

Answer 2

到百度去查询，“ASP无组件上传”。