asp中上传文件，并把文件名等插入数据库
我在本地完成了功能，为什么，放到服务器上，其他机器就不能用了呢，说“ADODB.Stream错误'800a0bba'文件无法被打开。/upload.asp，行14”我得代...
我在本地完成了功能，为什么，放到服务器上，其他机器就不能用了呢，说“ADODB.Stream 错误 '800a0bba'
文件无法被打开。
/upload.asp，行 14 ”
我得代码的作用是把一个文件上传到服务器指定目录，然后把文件名，和相关下载地址保存到数据库（我用的ACCEESS）。由于没有相关的资料，在网上看到一段代码，就改了改，谁知道在本地是好用的，放到服务器上就不行了。
表单代码，我没有贴在下面，是用dreamwaver作的插入记录服务器动作。由于插入记录这段代码是个表单循环代码，我不能将上传文件这个动作所得到的文件名和地址自动加入到表单里。只能先上传文件，然后手动填写文件名和文件下载地址，比较笨。
PS：谁能教教我，怎样才能把上传文件得到文件名和插入记录这个表单动作一起完成呢？
我的代码是：upload.htm
<html>
<head></head>
<body>
<form name="FORM" action="upload.asp" method="post">
<input type="file" name="file1" style="width:400" value="">
<input type="submit" name="submit" value="OK">
</form>
</body>
</html>
upload.asp:
<%
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 '这个就是报错的第14行
objStream.SaveToFile Server.MapPath("news/"&GetFileName(strFileName)),2
'保存到news文件夹内，如果已经存在就覆盖
objStream.Close
response.Write getfilename(strfilename)& "(请复制此文件名到新闻附件栏)"
%>
小弟刚刚涉足ASP，基本上是门外汉，好多知识都受用于百度知道，希望大家指导下 展开
文件无法被打开。
/upload.asp，行 14 ”
我得代码的作用是把一个文件上传到服务器指定目录，然后把文件名，和相关下载地址保存到数据库（我用的ACCEESS）。由于没有相关的资料，在网上看到一段代码，就改了改，谁知道在本地是好用的，放到服务器上就不行了。
表单代码，我没有贴在下面，是用dreamwaver作的插入记录服务器动作。由于插入记录这段代码是个表单循环代码，我不能将上传文件这个动作所得到的文件名和地址自动加入到表单里。只能先上传文件，然后手动填写文件名和文件下载地址，比较笨。
PS：谁能教教我，怎样才能把上传文件得到文件名和插入记录这个表单动作一起完成呢？
我的代码是：upload.htm
<html>
<head></head>
<body>
<form name="FORM" action="upload.asp" method="post">
<input type="file" name="file1" style="width:400" value="">
<input type="submit" name="submit" value="OK">
</form>
</body>
</html>
upload.asp:
<%
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 '这个就是报错的第14行
objStream.SaveToFile Server.MapPath("news/"&GetFileName(strFileName)),2
'保存到news文件夹内，如果已经存在就覆盖
objStream.Close
response.Write getfilename(strfilename)& "(请复制此文件名到新闻附件栏)"
%>
小弟刚刚涉足ASP，基本上是门外汉，好多知识都受用于百度知道，希望大家指导下 展开
1个回答
展开全部
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
