使用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">
<!--#include file="conn.asp"-->
<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
^
这段代码的规范写法应该是什么,请高手指点一下。
...全文
47 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
%>
这样试下
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-09 10:26
社区公告
暂无公告