Question

ASP图片上传代码，不用写入数据库，只要保存到指定文件夹呢就好了

小弟是菜鸟，不懂，所有想问下，下面的代码我是网上找的，我要改那个图片保存路径呢？
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

Function upupup(f)
dim ppp
ppp = Server.MapPath(GetFileName(f))
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile f
objStream.SaveToFile ppp,2
objStream.Close
upupup = ppp
End Function
%>

<%if Request.Form("f")<>"" then response.write( upupup(Request.Form("f")) )%>

<form name="FORM" action="" method="post">
<input type="file" name="f" style="width:250" value="">
<input type="submit" name="submit" value="OK">
</form>
下面有朋友说在网络上不能用，谁要是有的话就发给我，我的邮箱地址：5644961@qq.com
小弟在此谢过了

Answer 1

这个程序是把上传的图片保存在程序所在的目录下，要改到其他目录的话，就把objStream.SaveToFile ppp,2这行改一下：
objStream.SaveToFile “c:\KingsNet\"&ppp,2
但必须保证c:\KingsNet\目录已存在。

Answer 2

这个是不是那个所谓的6句话实现上传??呵呵,这可是多年前的一个大笑话啊!
上传不是这么弄的,这个太多了,你随便在网上一找,一大堆的,你只要找"无组件上传"就行了

Answer 3

这个代码应该不好吧。换个吧。

问题出在哪。就去哪解决。

Answer 4

这个代码你试过吗？在本机上可以用的。但在互联网上它根本无法完成文件的上传，如果你在网络环境下用的话。

我有无组件上传的代码，你留个邮箱吧。