［已解决］经典的无组件上传,有问题来看看啊!
这个无组件上传我觉的很经典!稍许改动效果会很不错的.可惜不会改哦upload.htm
<FORM METHOD=POST ACTION="upload.asp">
请选择文件:
<input name="upfile" type="file" size="18">
<INPUT TYPE="submit" value="上传"> <INPUT TYPE="reset" value="取消">
</FORM>
请选择文件:
<input name="upfile" type="file" size="18">
<INPUT TYPE="submit" value="上传"> <INPUT TYPE="reset" value="取消">
</FORM>
upload.asp
<%
Function GetFileName(ByVal fpath)
If fpath<>"" Then
GetFileName=mid(fpath,InStrRev(fpath, "\")+1)
Else
GetFileName=""
End If
End function
fpath = Request.Form("upfile")
if fpath <>"" then
Set mystream = Server.CreateObject("ADODB.Stream")
mystream.Type = 1 ' adTypeBinary
mystream.Open
'mystream.LoadFromFile fpath '这个不知道有什么用我没使用上传也没问题(请解释一下)
mystream.SaveToFile (Server.MapPath("upfiles") & "\" & GetFileName(fpath)),2
mystream.Close
else
response.Write("<Script>alert('没有选择上传文件,上传失败失败');window.location='upload.htm';</script>")
end if
%>
<img src="<%=fpath%>" width="120" height="150" /><br>
<p><a href="upload.htm">返回</a></p>
Function GetFileName(ByVal fpath)
If fpath<>"" Then
GetFileName=mid(fpath,InStrRev(fpath, "\")+1)
Else
GetFileName=""
End If
End function
fpath = Request.Form("upfile")
if fpath <>"" then
Set mystream = Server.CreateObject("ADODB.Stream")
mystream.Type = 1 ' adTypeBinary
mystream.Open
'mystream.LoadFromFile fpath '这个不知道有什么用我没使用上传也没问题(请解释一下)
mystream.SaveToFile (Server.MapPath("upfiles") & "\" & GetFileName(fpath)),2
mystream.Close
else
response.Write("<Script>alert('没有选择上传文件,上传失败失败');window.location='upload.htm';</script>")
end if
%>
<img src="<%=fpath%>" width="120" height="150" /><br>
<p><a href="upload.htm">返回</a></p>
以上代码正常,可以上传数据,想把upload.htm 已iframe的方式嵌套在提交页面里
在数据库里记录他上传后的图片路进.如果已保存 这个变量fpath 到数据库,如e:\test\test\test.gif ,
那调用页面显示图片的地址就是e:\test\test\test.gif
我的意思时保存为虚拟路进 /../../test.gif 改怎么作?
[此贴子已经被作者于2007-4-29 16:48:03编辑过]
