使用option explicit时出错，求教！！！

yxilu 2004-12-09 10:26:30

代码如下所示，在调试showit.asp的时候出现错误
conn.asp
<%
Option Explicit
dim conn,db_path,connstr
db_path = "cnbruce.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(db_path)
conn.Open connstr
%>

showit.asp
<!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>
<%
'OPTION EXPLICIT
dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select top 3 * from cnartile Order by cn_id desc"
rs.Open sql,conn,1,1
%>

<%
if rs.EOF and rs.BOF then
response.write("暂时还没有文章")
else
DO Until rs.EOF
response.write("文章标题是："&rs("cn_title"))
response.write("<br>文章作者是："&rs("cn_author"))
response.write("<br>文章加入时间是："&rs("cn_time"))
response.write("<br>文章内容是："&rs("cn_content"))
response.write("<hr>")
rs.MOveNext
LOOP
end if
%>
<%
rs.close
Set rs = Nothing
conn.close
Set conn = Nothing
%>
</body>
</html>

出现错误
Microsoft VBScript 编译器错误错误 '800a0400'

缺少语句

/conn.asp，行2

Option Explicit
^
这段代码的规范写法应该是什么，请高手指点一下。

...全文

216 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

micher_yan 2004-12-09

打赏
举报

包含你可以看成把那个文件的内容复制到你包含的位置。
而Option Explicit只能在页面第一行，
这样你就不难发现你的错误在哪儿了，
对应过来就：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<%Option Explicit
...%>

zlj113 2004-12-09

打赏
举报

<% Option Explicit %>

<%

dim conn,db_path,connstr
db_path = "cnbruce.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(db_path)
conn.Open connstr
%>
这样试下