UC知道帮我改下ASP上传图片的代码，已经编好了。想加点功能
来源：百度知道 编辑：UC知道 时间：2024/06/22 03:10:06
我找了段代码，用起来不错，但是不明白里面的东西，希望大家能给我指出来哪句是保存的路径 如果保存到当前目录IMG文件夹下，该如何改。另外如果可以的话，想把上传的路径显示出来，比如上传完成后，显示的路径是/img/gaga.jpg 因为我想把这个路径也输入到ACCESS中。谢谢大家了！！！！！
<%
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
%>
我想如果能直接得到文件名字和后嘴名就好多了！！！
<%
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
%>
我想如果能直接得到文件名字和后嘴名就好多了！！！
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
把它改一下就ok了
条件是你必须在根目录下建立一个名字叫img的文件夹
改成这句：
str3="/img/" & GetFileName(strFileName)
objStream.SaveToFile Server.MapPath(str3),2
：<%
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("img/" & GetFileName(strFileName)),2
objStream.Close
%>
恩，那你要把代码发给我看一下啊。
发到steven@china1.cn