贵州屯堡刺绣:高手给一段asp最简单的上传文件的代码！谢谢

来源：百度文库编辑：中科新闻网时间：2024/04/29 20:21:40

各位高手注意：
下列代码用在远程服务运行不可以了，本机测试就可以，本人要用在远程服务器，所以下列代码不合适！请问高手有没有简单点的，又合适于远程虚拟主机的。谢谢！急！
<%
dim path
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("files/"&GetFileName(strFileName)),2
objStream.Close
path=GetFileName(strFileName)
response.Write("files/"&path)
%>
或者说修改此代码可以用在远程虚拟主机吗？

你的虚拟主机有 ADODB 控件吗？你得先了解清楚你租的主机支持什么。

高手给一段asp最简单的上传文件的代码！谢谢高手给一段asp最简单的上传文件的代码！谢谢求一段代码，高手的简单问题！求:ASP上传文件的代码. 最简单的asp代码问题? 这一段简单的ASP代码是什么意思啊? 哪位帮忙给个最简单的在线编辑器的代码（ASP）谁能给写一段asp实现上传和下载功能的代码呀，完整点，谢了！！！有一段查询的ASP代码，请高手解释下。求一段asp代码的写法。高手来看看。