asp无组件上传图片到文件夹ADODB.Stream (0x800A0BBC)错误

tuhuolongan 2010-07-29 10:10:52
从csdn上下的源码自己添了一个coon.asp文件 数据库连接能成功 但是写入文件失败 哪位大侠帮帮忙以下是源码 另附我的MSN 求帮忙指点啊～～


<html>

<link rel="stylesheet" type="text/css" href="style.css">

<body leftmargin=2 topmargin=0>

<form name="mainForm" enctype="multipart/form-data" action="upload.asp" method="post">

  <p>标题:

    <input name="titl" type="text" id="titl">

  </p>

  <p>内容:

    <textarea name="neir" id="neir"></textarea>

  </p>

  <p>图片:

    <input type="file" name="file" size="17" class="text">

    <input type="submit" name="Submit" value="上传">

  </p>

</form>

</body>

</html>

这是upload.htm


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>无标题文档</title>

</head>



<body>



</body>

</html>



<!--#include file="upload_5xsoft.inc" -->

<!--#include file="Coon.asp"-->

<%

'生成随机字符串

Function gen_key(digits)

'定义并初始化数组

dim char_array(80)

'初始化数字

For i = 0 To 9

char_array(i) = CStr(i)

Next

'初始化大写字母

For i = 10 To 35

char_array(i) = Chr(i + 55)

Next

'初始化小写字母

For i = 36 To 61

char_array(i) = Chr(i + 61)

Next

Randomize '初始化随机数生成器。

do while len(output) < digits

num = char_array(Int((62 - 0 + 1) * Rnd + 0))

output = output + num

loop

'设置返回值

gen_key = output

End Function

'把结果返回给浏览器

%>

<link rel="stylesheet" type="text/css" href="style.css">

<script language="Javascript">

function pic(smileface)

{

 window.opener.document.myform.pic.value=smileface;

}

</script>

<body leftmargin="0" topmargin="0">

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

  <tr>

    <td align="center">

<%

formPath="/Pic/"

'上传文件夹

set upload=new upload_5xSoft

set file=upload.file("file")

titl=upload.form("titl")

neir=upload.form("neir")

if file.filesize > 2048000 then

 Response.write "<SCRIPT language=JavaScript>alert('错误！！上传文件大于2M！');"

 Response.write "javascript:history.go(-1)</SCRIPT>"

 Response.End

else



fileExt=lcase(right(file.filename,3))

if fileExt<>"jpg" and fileExt<>"png" and fileExt<>"gif" then

 Response.write "<SCRIPT language=JavaScript>alert('你上传的文件属于非法文件！！');"

 Response.write "javascript:history.go(-1)</SCRIPT>"

 Response.End

end if

end if

randomize

ranNum=int(90000*rnd)+10000

filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt





filename=formPath&date()&"-"&gen_key(8)&"."&fileExt

'filename=formPath&

if file.FileSize > 0 then 

file.SaveAs Server.mappath(FileName)

end if



tim=date()&" " & time()

rs.open "pic_new",conn,3,3

rs.addnew

rs("titl")=titl

rs("neir")=neir

rs("lj")=filename

rs("tim")=tim

rs.update

Response.write "图片上传成功,<a href='upload.htm'>返回上传</a>图片：<a href='#' onClick=javascript:window.open('"&filename&"')>缩略图</a>"



filename1 = trim(mid(filename,2,200))



%>

    </td>

  </tr>

</table>



</body>

</html>

这是upload.asp


<%



dim upfile_5xSoft_Stream



Class upload_5xSoft

  

dim Form,File,Version

  

Private Sub Class_Initialize 

dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile

dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr

Version="21gt.com上传程序v1.0"

if Request.TotalBytes<1 then Exit Sub

set Form=CreateObject("Scripting.Dictionary")

set File=CreateObject("Scripting.Dictionary")

set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")

upfile_5xSoft_Stream.mode=3

upfile_5xSoft_Stream.type=1

upfile_5xSoft_Stream.open

upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)



vbEnter=Chr(13)&Chr(10)

iDivLen=inString(1,vbEnter)+1

strDiv=subString(1,iDivLen)

iFormStart=iDivLen

iFormEnd=inString(iformStart,strDiv)-1

while iFormStart < iFormEnd

  iStart=inString(iFormStart,"name=""")

  iEnd=inString(iStart+6,"""")

  mFormName=subString(iStart+6,iEnd-iStart-6)

  iFileNameStart=inString(iEnd+1,"filename=""")

  if iFileNameStart>0 and iFileNameStart<iFormEnd then

   iFileNameEnd=inString(iFileNameStart+10,"""")

   mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)

   iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)

   iEnd=inString(iStart+4,vbEnter&strDiv)

   if iEnd>iStart then

    mFileSize=iEnd-iStart-4

   else

    mFileSize=0

   end if

   set theFile=new FileInfo

   theFile.FileName=getFileName(mFileName)

   theFile.FilePath=getFilePath(mFileName)

   theFile.FileSize=mFileSize

   theFile.FileStart=iStart+4

   theFile.FormName=FormName

   file.add mFormName,theFile

  else

   iStart=inString(iEnd+1,vbEnter&vbEnter)

   iEnd=inString(iStart+4,vbEnter&strDiv)



   if iEnd>iStart then

    mFormValue=subString(iStart+4,iEnd-iStart-4)

   else

    mFormValue="" 

   end if

   form.Add mFormName,mFormValue

  end if



  iFormStart=iformEnd+iDivLen

  iFormEnd=inString(iformStart,strDiv)-1

wend

End Sub



Private Function subString(theStart,theLen)

 dim i,c,stemp

 upfile_5xSoft_Stream.Position=theStart-1

 stemp=""

 for i=1 to theLen

   if upfile_5xSoft_Stream.EOS then Exit for

   c=ascB(upfile_5xSoft_Stream.Read(1))

   If c > 127 Then

    if upfile_5xSoft_Stream.EOS then Exit for

    stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))

    i=i+1

   else

    stemp=stemp&Chr(c)

   End If

 Next

 subString=stemp

End function



Private Function inString(theStart,varStr)

 dim i,j,bt,theLen,str

 InString=0

 Str=toByte(varStr)

 theLen=LenB(Str)

 for i=theStart to upfile_5xSoft_Stream.Size-theLen

   if i>upfile_5xSoft_Stream.size then exit Function

   upfile_5xSoft_Stream.Position=i-1

   if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then

    InString=i

    for j=2 to theLen

      if upfile_5xSoft_Stream.EOS then 

        inString=0

        Exit for

      end if

      if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then

        InString=0

        Exit For

      end if

    next

    if InString<>0 then Exit Function

   end if

 next

End Function



Private Sub Class_Terminate  

  form.RemoveAll

  file.RemoveAll

  set form=nothing

  set file=nothing

  upfile_5xSoft_Stream.close

  set upfile_5xSoft_Stream=nothing

End Sub

   

 

 Private function GetFilePath(FullPath)

  If FullPath <> "" Then

   GetFilePath = left(FullPath,InStrRev(FullPath, "\"))

  Else

   GetFilePath = ""

  End If

 End  function

 

 Private function GetFileName(FullPath)

  If FullPath <> "" Then

   GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)

  Else

   GetFileName = ""

  End If

 End  function



 Private function toByte(Str)

   dim i,iCode,c,iLow,iHigh

   toByte=""

   For i=1 To Len(Str)

   c=mid(Str,i,1)

   iCode =Asc(c)

   If iCode<0 Then iCode = iCode + 65535

   If iCode>255 Then

     iLow = Left(Hex(Asc(c)),2)

     iHigh =Right(Hex(Asc(c)),2)

     toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)

   Else

     toByte = toByte & chrB(AscB(c))

   End If

   Next

 End function

End Class





Class FileInfo

  dim FormName,FileName,FilePath,FileSize,FileStart

  Private Sub Class_Initialize 

    FileName = ""

    FilePath = ""

    FileSize = 0

    FileStart= 0

    FormName = ""

  End Sub

  

 Public function SaveAs(FullPath)

    dim dr,ErrorChar,i

    SaveAs=1

    if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function

    if FileStart=0 or right(fullpath,1)="/" then exit function

    set dr=CreateObject("Adodb.Stream")

    dr.Mode=3

    dr.Type=1

    dr.Open

    upfile_5xSoft_Stream.position=FileStart-1

    upfile_5xSoft_Stream.copyto dr,FileSize

    dr.SaveToFile FullPath,2

    dr.Close

    set dr=nothing 

    SaveAs=0

  end function

End Class

%>

这是upload_5xSoft.inc文件
最好加我MSN 我直接把文件传过去 报错是upload_5xSoft.inc的175行 急等··················
...全文
198 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
tuhuolongan 2010-08-19
  • 打赏
  • 举报
 回复
权限什么的没问题 换了化境的无组件上传搞定了。
魔音飞鹰 2010-08-04
  • 打赏
  • 举报
 回复
我看错了，你的排版真是！

代码没有问题，服务器设置问题！
魔音飞鹰 2010-08-04
  • 打赏
  • 举报
 回复
晕，“这是upload.htm”，你在html文件里面放asp代码，谁来给你执行！html文件怎么能执行呢！换成asp后缀吧！
一把编程的菜刀 2010-07-29
  • 打赏
  • 举报
 回复
说得很清楚了，是文件夹权限问题

http://www.google.com.hk/search?hl=zh-CN&newwindow=1&safe=strict&client=firefox-a&hs=KWf&rls=org.mozilla%3Azh-CN%3Aofficial&q=ADODB.Stream+%280x800A0BBC%29%E9%94%99%E8%AF%AF&btnG=Google+%E6%90%9C%E7%B4%A2&aq=f&aqi=&aql=&oq=&gs_rfai=

不会自己搜索的吗？
tuhuolongan 2010-07-29
  • 打赏
  • 举报
 回复
哪位大哥留个邮箱我把程序发过去帮我查查是不是程序错误啊
amigodan 2010-07-29
  • 打赏
  • 举报
 回复
关注！！！！我也遇到同样的问题。。。。期待解决。。。。
一把编程的菜刀 2010-07-29
  • 打赏
  • 举报
 回复
XP系统也有权限的
明白？？
不是所有的XP系统都有这个权限的
tuhuolongan 2010-07-29
  • 打赏
  • 举报
 回复
是在本机 也是XP的系统
suano 2010-07-29
  • 打赏
  • 举报
 回复
如果你是在本机而且用的是XP系统还出现这种错，那应该是程序出错，如果是2000系统就看看你要上传到的目录是否有写入权限
一把编程的菜刀 2010-07-29
  • 打赏
  • 举报
 回复
这样的错误呢，首先要检查是否有权限
tuhuolongan 2010-07-29
  • 打赏
  • 举报
 回复
everyone权限没问题啊 不过你说的ado.stream组件是什么啊 怎么查看？
aykkk 2010-07-29
  • 打赏
  • 举报
 回复
一般来说，无组件上传这个东西是没错的，我一直再用，你这个问题我以前也遇见过，不是文件的问题，而是服务器的问题，比如说上传目录没有写入权限，ado.stream组件没有安装或不允许或改名了。
ASP错误总结，解决ASP错误。
ADODB.Stream (0x800A0BBC)---上传文件时发生错误--找不到上传的目录 (0x80020009)---当前rs指针所指向记录的字段值为NULL，不能使用 ADODB.Field (0x80020009)---当前rs指针所指向记录的字段值为NULL，不能输出 ADODB.Field (0x800A0BCD)---没有找到相关记录,不能用rs("字段")取值 ADODB.Recordset (0x800A0BB9)---没有打开数据库(没有打开conn)(rs已经打开一个表,不能再用rs打开别的表) ADODB.Recordset (0x800A0BCD)---记录指针已经指向表尾，不能再执行rs.movenext指令 ADODB.Recordset (0x800A0C93)---更改或添加完记录没有更新(rs.更新)就关闭链接(rs.close) ADODB.Recordset (0x800A0CB3)---数据库操作错误(表在读的方式打开不能添加数据） ADODB.Recordset (0x800A0CC1)---数据库操作错误(在打开的表中找不到指定的字段） ADODB.Recordset (0x800A0E78)---数据库操作错误（rs没有打开表不能用rs.close结束)(rs已经关闭,不能再用rs读取数据) ADODB.Recordset (0x800A0E79)---数据库操作错误（rs已经打开一个表,不能再打开别的表) ADODB.Recordset (0x800A0E7D)---打开表错误（缺少参数）(有可能是忘了写",conn,1,1")
ADODB.Stream 错误 '800a0bbc' 写入文件失败
重装更改目录为e盘后，上传文件出现问题。解决方法： 调用adodb.stream的savetofile方法时发生错误, ADODB.Stream 错误 800a0bbc 写入文件失败。 原因可能是: 1、你要保存的文件名已存在，而未设置savetofile方法的覆盖属性。 2、路径没有用server.MapPath()映射，这种情况下...
ADoDB.stream 错误‘800a0bbc’写入文件失败的解决方法[转]
ADoDB.stream 错误‘800a0bbc’写入文件失败一个客户的网站，在后台上传图片时把报错ADoDB.stream 错误‘800a0bbc’写入文件失败/admin/upload_sdx.inc，行170 1、你要保存的文件名已存在，而未设置savetofile方法的覆盖属性。2、服务器目录不支持写入，或者需要写入的目录不存在 。3、路径没有用server.MapPath()映射，这种情
化境上传的时出现 错误 '800a0bbc' 的解决方案
化境上传的时出现 错误 800a0bbc 的解决方案我使用化境上传的时候出现 ADODB.Stream 错误 800a0bbc 写入文件失败。 /upload_5xsoft.inc，行 181 的问题 包含文件的upload_5xsoft.inc第181 行是 dr.SaveToFile FullPath,2 解决方法，将调用的化境上传页面放在根目录下！！引文化境默认设置是在网站的根目
Asp出错信息列表—原因与分析
【网站制作】Asp出错信息列表—原因与分析ADODB.Stream (0x800A0BBC)---上传文件时发生错误--找不到上传的目录ADODB.Field (0x80020009)---当前rs指针所指向记录的字段值为NULL，不能输出ADODB.Field (0x800A0BCD)---没有找到相关记录,不能用rs("字段")取值ADODB.Recordset (0x800A0B
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章