我的lyfupload上传组件的问题，请大家帮忙！急死了！高分！

yuanquan 2002-08-05 11:23:58

我用lyfupload组件实现上传，在与access数据库相连的时候一切正常，但转成SQLserver时就报错：错误信息如下：
错误类型：
ADODB.Recordset (0x800A0CB3)
/xtranet/upload/lyfupload/demo6.asp, 第 38 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

页：
POST 1639 bytes to /xtranet/upload/lyfupload/demo6.asp

POST 数据:
错误 '80020009'
发生意外。

/iisHelp/common/500-100.asp，行215

SQLserver中表的数据结构：
>> ID int 4 0
>> title nvarchar 100 1
>> description nvarchar 250 1
>> content image 16 1
>> date1 datetime 8 1
>> type1 int 4 1
access中：
ID 自动编号
title 文本
description 文本
content OLE 对象
date1 日期/时间
type1 数字

...全文

45 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

yuanquan 2002-08-05

打赏
举报

代码在这里：
<%
'设置数据库链接
set conn = Server.CreateObject("ADODB.Connection")
conn.open "strconn","sa",""
SQL="select * from TREE2"
set rs=server.CreateObject("ADODB.Recordset")
Set rs = Conn.Execute(SQL) 'rs.Open sql,conn,3,3

%>
<HTML>
<BODY>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
'obj.maxsize=2048 '设置文件上传的最大为2048个字节(2K)
obj.extname="doc"

d=obj.request("paykindrr")

txt = obj.request("text1") '得到form元素的值
Response.Write( "文本框1的输入值是： " & txt)
Response.Write "<br>"
ss=obj.SaveFiletodb("file1") '保存文件到数据库
aa=obj.filetype("file1") '得到文件的Content-Type

if ss= "" then
Response.Write ("文件上传失败!")
else
'----文件上载到数据库中---------
rs.AddNew
rs("title")=trim(aa)
rs("content").AppendChunk obj.DBContent'BLOB数据不能直接赋值
rs("description")=txt
rs("date1")=date()
rs("type1")=d
rs.Update
rs.movelast
session("ID")=rs("ID")
rs.Close
'dbc.Close
set rs=nothing
'set dbc=nothing
'------------------------------上载到数据库中结束
Response.Write "选择的文件已经上载到服务器！<br>"
Response.Write("文件名：" & ss)
Response.Write("<br>Content-Type：" & aa) '得到Content-Type
Response.Write("文件大小：" & obj.FileSize)
end if

obj.about '关于LyfUploa1.2
%>
<br>
<a href="othertest.asp?ID=<%=session("ID")%>">点击此处下载上传后的文件!</a>
</BODY >
</html>

shan__le 2002-08-05