asp无组件上传图片问题
我在zx.asp中放了一个表单在表单中放了文件域单击按钮后转到uload.aspuload.asp<%strFileName=Request("file")'得到前一页提...
我在zx.asp中放了一个表单
在表单中放了文件域
单击按钮后转到 uload.asp
uload.asp
<%
strFileName = Request("file") '得到前一页提交来的文件地址值
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath("abc.jpg"),2 '保存到当前ASP文件同目录下,名字为abc.jpg
%>
为什么会数据无法接受
错误出现在 objStream.LoadFromFile strFileName
接收的strFileName为什么会为空啊
我选择过文件的 展开
在表单中放了文件域
单击按钮后转到 uload.asp
uload.asp
<%
strFileName = Request("file") '得到前一页提交来的文件地址值
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath("abc.jpg"),2 '保存到当前ASP文件同目录下,名字为abc.jpg
%>
为什么会数据无法接受
错误出现在 objStream.LoadFromFile strFileName
接收的strFileName为什么会为空啊
我选择过文件的 展开
展开全部
试试我给你的代码
up.htm的代码:
<form name="FORM" action="upload.asp" method="post">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>
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")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
up.htm的代码:
<form name="FORM" action="upload.asp" method="post">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>
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")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看看那个表单网页的<form>标记中有没有设置:
enctype="multipart/form-data"
属性。
enctype="multipart/form-data"
属性。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼主的方法在本机运行可能成功,一旦放到服务器上就没戏了.
曾经我也这样写过代码...........呵呵
曾经我也这样写过代码...........呵呵
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询