option explicit的问题
我的代码如下:
<%option explicit
dim rs,sql
dim username,password
dim banna,logo,gonggao
%>这个文件名为constr.asp
然后我在conn.asp中写道:
<%
dim conn
dim connstr
dim startime
dim db
startime=timer()
db="database/bookshop.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "连接错误"
Response.End
End If
%>这是数据库连接,没有问题
接着我在config.asp里用了<!--#include file="constr.asp"-->
<!--#include file="conn.asp"-->
<%
sql="select * from config"
rs=conn.execute(sql)
logo=trim(rs("weblogo"))
banna=trim(rs("webbanna"))
gonggao=trim(rs("gonggao"))
set rs=nothing
%>
最后我在主页里引用了
<!--#include file="constr.asp"-->
<!--#include file="conn.asp"-->
<html>
问题出现了,提示为缺少语句option explicit
我将constr.asp中的option explicit删掉,又显示错误为名称重定义.
请教高手,我该怎么改?谢谢!
我的代码如下:
<%option explicit
dim rs,sql
dim username,password
dim banna,logo,gonggao
%>这个文件名为constr.asp
然后我在conn.asp中写道:
<%
dim conn
dim connstr
dim startime
dim db
startime=timer()
db="database/bookshop.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "连接错误"
Response.End
End If
%>这是数据库连接,没有问题
接着我在config.asp里用了<!--#include file="constr.asp"-->
<!--#include file="conn.asp"-->
<%
sql="select * from config"
rs=conn.execute(sql)
logo=trim(rs("weblogo"))
banna=trim(rs("webbanna"))
gonggao=trim(rs("gonggao"))
set rs=nothing
%>
最后我在主页里引用了
<!--#include file="constr.asp"-->
<!--#include file="conn.asp"-->
<html>
问题出现了,提示为缺少语句option explicit
我将constr.asp中的option explicit删掉,又显示错误为名称重定义.
请教高手,我该怎么改?谢谢!
2008-5-24 17:48