ASP无组件上传的一个问题,急~

来源:百度知道 编辑:UC知道 时间:2024/05/28 04:09:37
以下是upload.asp源文件

<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

strFileName = Request.Form("file1") '获取表单内容
Set objStream = Server.CreateObject("ADODB.Stream") '创建一个Stream对象
objStream.Type = 1 ' 指定或返回Stream对象的数据类型,1表示为二进制,2表示为文本。(Type是Stream对象的一个属性)
objStream.Open '打开Stream对象。Open是Stream对象的一个方法)
objStream.LoadFromFile strFileName

objStream.SaveToFile Server.MapPath("img/" & GetFileName(strFileName)),2
objStream.Close
response.write "上传成功!<br>"

set conn=server.Createobject("adodb.connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&server.Mappath("images.mdb")
set rst=server.Createobject(

这个只能本地测试成功,传到服务器就不行了!

问题就出在保存到服务器后的路径是:

rst("img")=GetFileName(strFileName)

那么应该改成:

rst("img")=Server.MapPath("img/" & GetFileName(strFileName))

你页面里的参数有重名的,好好命名你页面的所有参数,最好别重名

你最好把图片的地址存到数据库,估计虚拟主机不会让你这么直接弄