我使用LyfUpload这个组件做上传，但我与其例子的代码完全一样，只是数据库不同，它为ACCESS，我为SQL　2000，为什么它说我的
Set upobj=Server.CreateObject("LyfUpload.UploadFile")
这一句越界
我已经搞了近两天了，谁能救救我
:mad:

源代码：
<--#include virtual="/include/opendatabase.asp"-->
<%
sqlstr="select * from picture"
objrst.open sqlstr,objconn,1,3
Set upobj=Server.CreateObject("LyfUpload.UploadFile")

'---上传组件----
'upobj.maxsize=2048 '设置文件上传的最大为2048个字节(2K)
upobj.extname="gif,jpg"
'txt = upobj.request("text1") '得到form元素的值
'Response.Write( "文本框1的输入值是： " & txt)
Response.Write "
"
ss=upobj.SaveFiletodb("product_pic1") '保存文件到服务器
aa=upobj.filetype("product_pic1") '得到文件的Content-Type

if ss= "" then
Response.Write ("文件上传失败!")
elseif ss= "0" then
Response.Write ("文件尺寸过大!")
elseif ss= "1" then
Response.Write ("文件不是gif,jpg文件!")
else
'----文件上载到数据库中---------
response.write("
")
response.write(upobj.DBContent)
response.write("
")
rs.AddNew
objrst("pic1_name")=trim(aa)
objrst("pic1").AppendChunk upobj.DBContent'BLOB数据不能直接赋值
objrst.Update

'------------------------------上载到数据库中结束
Response.Write "选择的文件已经上载到服务器！
"
Response.Write("文件名：" & ss)
Response.Write("
Content-Type：" & aa) '得到Content-Type
Response.Write("文件大小：" & upobj.FileSize)

response.write "继续"
response.write "返回"
end if

%>
<--#include virtual="/include/closedatabase.asp"-->