| 发表于：2007-05-16 09:09:06 楼主 |
我提交的时候老是出错，显示
错误类型：
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
%> |
|
|
|
|
