关于上传文件up结分
代码是这样的
Url=Request.Form("strUrl2")
on error resume next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile url
objStream.SaveToFile Server.MapPath("soft/" + GetFileName(Url)),2 '保存到服务器下当前文件夹里
objStream.Close
url2="soft/" + GetFileName(Url)
在服务器上运行时没有问题可以保存,可是在其它机器上运行上传的文件为空,不知道什么原因,如何解决.