［已解决］经典的无组件上传,有问题来看看啊! - ASP技术论坛

问题点数：0 回复次数：6

［已解决］经典的无组件上传,有问题来看看啊!

这个无组件上传我觉的很经典!稍许改动效果会很不错的.可惜不会改哦

upload.htm

<FORM METHOD=POST ACTION="upload.asp">

请选择文件:
<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>

以上代码正常,可以上传数据,想把upload.htm 已iframe的方式嵌套在提交页面里
在数据库里记录他上传后的图片路进.如果已保存这个变量fpath 到数据库,如e:\test\test\test.gif ,
那调用页面显示图片的地址就是e:\test\test\test.gif
我的意思时保存为虚拟路进 /../../test.gif 改怎么作?

[此贴子已经被作者于2007-4-29 16:48:03编辑过]

搜索更多相关主题的帖子: 组件　经典　

第 2 楼

得分:0

说句实话，我不是很明了…………

第 3 楼

得分:0

谁来帮帮我 ~~~

第 4 楼

得分:0

回复：经典的无组件上传,有问题来看...

upload.asp

<%
Function GetFileName(ByVal fpath)
If fpath<>"" Then
GetFileName=mid(fpath,InStrRev(fpath, "\")+1)
Else
GetFileName=""
End If
End function
'取得文件名
Function GetFileName(filepath)
Dim FileName
FileName=Split(filepath,"\")
GetFileName=FileName(Ubound(FileName))
End Function
'取得文件类型
Function GetFileType(aName)
Dim FileName
FileName=Split(aName,".")
GetFileType=FileName(Ubound(FileName))
End Function

fpath = Request.Form("upfile")
if fpath <>"" then
fileName = GetFileName(fpath)
fileType = Lcase(GetFileType(fileName))
if fileType = "gif" Or fileType = "jpg" 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
''写入数据库的程序可以加在这个位置
''保存到数据库中时，将文件夹的相对路径和文件名fileName组合起来写如数据库就可以了
else
response.Write("<Script>alert('只允许上传gif和jpg格式的图片文件！');window.location='upload.htm';</script>")
end if
else
response.Write("<Script>alert('没有选择上传文件,上传失败失败');window.location='upload.htm';</script>")
end if