添加信息问题
我提交的时候老是出错，显示
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'file(...) '
/new/addnews_do.asp, 第 15 行
然后显示信息页面的数据全是问号，这些数据全是从数据库中取出的，其他的不是数据库的数据显示正常，
一下是我的addnews_do.asp的代码
<!--#include file= "conn.asp "-->
<!--#INCLUDE FILE= "upload.asp " -->
<%
function changechr(str)
changechr=replace(replace(replace(replace(str, " < ", "< "), "> ", "> "),chr(13), " <br> "), " ", " ")
changechr=replace(replace(replace(replace(changechr, "[sayyes] ", " <img src= "), "[b] ", " <b> "), "[red] ", " <font color=CC0000> "), "[big] ", " <font size=7> ")
changechr=replace(replace(replace(replace(changechr, "[/sayyes] ", "> </img> "), "[/b] ", " </b> "), "[/red] ", " </font> "), "[/big] ", " </font> ")
end function
dim upload,access_file,pic_file
Dim fso
set upload=new upload_5xSoft
set access_file=upload.file( "N_accessory ") //这是第15行
set pic_file=upload.file( "N_picture ")
if pic_file.filesize> 100 then
PhotoPath= "files/ "
MaxPhotoSize= "1024000 "
fileExt=lcase(right(pic_file.filename,4))
if fileExt <> ".jpg " and fileExt <> ".gif " then
response.write " <script language= 'javascript '> "
response.write "alert( '非指定的图片格式！ '); "
response.write "history.go(-1); "
response.write " </script> "
response.end
end if
if pic_file.filesize> MaxPhotoSize then
response.write " <script language= 'javascript '> "
response.write "alert( '文件大小超过了 "&MaxPhotoSize/1024& "K限制！ '); "
response.write "history.go(-1); "
response.write " </script> "
response.end
end if
set fso = CreateObject( "Scripting.FileSystemObject ")
path=server.mappath(PhotoPath)
if fso.folderexists(path)=false then
fso.createfolder(path)
end if
set fso=nothing
if right(PhotoPath,1) <> "/ " then
PhotoPath=PhotoPath& "/ "
end if
randomize
rndNumber = rnd*100000000
rndNumber = int(rndNumber)
datetime=year(date)&month(date)&day(date)&hour(now)&minute(now)&second(now)
pic_filename=datetime&rndNumber&fileEXT
'response.write upload.form( "news_pic ")&filename
'response.end
pic_file.SaveAs Server.mappath(PhotoPath&pic_filename)
end if
if access_file.filesize> 100 then
PhotoPath= "files/ "
MaxPhotoSize= "1024000 "
fileExt=lcase(right(access_file.filename,4))
if access_file.filesize> MaxPhotoSize then
response.write " <script language= 'javascript '> "
response.write "alert( '文件大小超过了 "&MaxPhotoSize/1024& "K限制！ '); "
response.write "history.go(-1); "
response.write " </script> "
response.end
end if
set fso = CreateObject( "Scripting.FileSystemObject ")
path=server.mappath(PhotoPath)
if fso.folderexists(path)=false then
fso.createfolder(path)
end if
set fso=nothing
if right(PhotoPath,1) <> "/ " then
PhotoPath=PhotoPath& "/ "
end if
randomize
rndNumber = rnd*100000000
rndNumber = int(rndNumber)
datetime=year(date)&month(date)&day(date)&hour(now)&minute(now)&second(now)
acc_filename=datetime&rndNumber&fileEXT
'response.write upload.form( "news_pic ")&filename
'response.end
access_file.SaveAs Server.mappath(PhotoPath&acc_filename)
end if
N_title=changechr(upload.form( "N_title "))
N_type=changechr(upload.form( "N_type "))
N_content=changechr(upload.form( "N_content "))
N_hot=upload.form( "N_hot ")
set rs = server.createobject( "adodb.recordset ")
sql = "select * from news where 1 <0 "
rs.Open SQL, Conn, 1, 3
rs.addnew
rs( "N_title ")=N_title
rs( "N_type ")=N_type
rs( "N_content ")=upload.form( "Html ")
rs( "N_hot ")=N_hot
rs( "N_acc_link ")=acc_filename
rs( "N_acc_name ")=access_file.filename
rs( "N_pic ")=pic_filename
rs.update
rs.close
conn.close
response.write " <script language=javascript> "
response.write "alert( '添加成功，按回车继续。 '); "
response.write "window.location.href= 'addnews.asp ' "
response.write " </script> "
response.end
%>
我的conn.asp代码是
<%
dim dsn
set conn=server.createobject( "adodb.connection ")
dsn= "DBQ= "&Server.Mappath( "rscdb.mdb ")& ";Driver={Microsoft Access Driver (*.mdb)}; "
conn.open dsn
%>
[解决办法]
set access_file=upload.file( "N_accessory ")
N_accessory有没这个对象???
数据库被加密了?或者被指定了以某种编码存放数据?