Chinaz@com
strFileName = Request.QueryString("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
Chinaz@com
objStream.Open
Www^Chinaz^com
objStream.LoadFromFile strFileName 中.国站长站
objStream.SaveToFile Server."123_onweb.gif",2 站.长.站
使用方法： Chinaz
把上面的代码写成upload.asp
在浏览器里面输入：
中.国站长站
http://XXX/upload.asp?file1=c:\上传文件\123.gif
Chinaz
XXX为你的主机地址 中.国站长站
执行完后你会看到你的目录下面多了一个123_onweb.gif 站长.站
他就是你要文件拉！！！！ Chinaz@com
根据原理我们可以扩展以下代码： Www~Chinaz~com
upload.asp文件 Chinaz.com
＜%
Function GetFileName(ByVal strFile)
If strFile ＜＞ "" Then Www^Chinaz^com
GetFileName = mid(strFile,InStrRev(strFile, "\")+1) 站.长.站
Else
GetFileName = ""
中国站.长.站
End If
中.国.站长站
End function Www_Chinaz_com
strFileName = Request.Form("file1") 中国.站长站
Set objStream = Server.CreateObject("ADODB.Stream") 中国.站.长站
objStream.Type = 1 ' adTypeBinary 站.长站
objStream.Open Www_Chinaz_com
objStream.LoadFromFile strFileName 中国.站.长站
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2 Www~Chinaz~com
objStream.Close
%＞
中.国站长站
upload.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＞ 中.国站长站