2.8w+
社区成员
使用option explicit时出错，求教！！！
代码如下所示，在调试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
^
这段代码的规范写法应该是什么，请高手指点一下。
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
^
这段代码的规范写法应该是什么，请高手指点一下。
...全文
当前发帖距今超过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
...%>
而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
%>
这样试下
<%
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
%>
这样试下
如何使用idhttp上传文件 标题: 如何使用idhttp上传文件 关键字: 如何使用idhttp上传文件 ...高分求教如何使用idhttp上传文件，在线等 -----------------------------------------------------------------------------
类型转换:static_cast、dynamic_cast、reinterpret_cast和const_cast区别 在函数foo中，使用static_cast进行转换是不被允许的，将在编译时出错；而使用 dynamic_cast的转换则是允许的，结果是空指针。 3.3 reindivter_cast 用法：reindivter_cast (exdivssion) type-id必须是一个指针、引用...
VC++中可能遇到的问题 T 请教高手：使用AfxBeginThread()创建线程，在线程结束时能使用CloseHandle()关闭该线程的句柄对象吗？ Q 程序示例代码如下： CWinThread* pThread = NULL; 开启线程函数 pThread = AfxBeginThread(); 结束线程...
VC++中可能遇到的问题收藏 VC++中可能遇到的问题收藏 | 旧一篇: 在VC中动态加载ODBC时的一些小细节 function StorePage(){d=document;t=d.selection?(d.selection.type!=None?d.selection.createRange().text:):(d.getSelection?d....
Win32 & .Net Q&A 200509 集成浏览器控件时获得文档接口 当集成浏览器控件的时候,执行下列步骤获得文档接口: 调用 IWebBrowser2::get_Document 获得文档的 IDispatch 接口。（译者注：MFC的CHtmlView的GetHtmlDocument方法，浏览器控件的...
Win32 & .Net Q&A 200509铪铪 集成浏览器控件时获得文档接口 当集成浏览器控件的时候,执行下列步骤获得文档接口: 调用 IWebBrowser2::get_Document 获得文档的 IDispatch 接口。（译者注：MFC的CHtmlView的GetHtmlDocument方法，浏览器控件的...
常见的一些算法 -------------------------------------------------------------------------------- 第1楼 发信人: Marslv (梦幻人生), 信区: Program 标 题: 算法--黑白棋子(转) 发信站: BBS汕头大学郁金香站 (Sat Oct 21 23:57...
