另外我还有一个问题了....(问题层出不穷啊...郁闷呢)
我不知道为什么
老是网页上出现缺少语句的错误
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/ruan/ruanPro/ruan/Inc/conndb.asp, line 4
option explicit
但是我的代码没错啊
我做了一个数据库的连接文件
conndb.asp:
<%
option explicit
dim conn';数据库连接
dim connstr';连接字符串
dim db';数据库文件路径
db = "../../Database/trfsoft.mdb"';ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
';对于实时性要求不高的高用，使用adUseClient游标
conn.Cursorlocation = adUseClient
conn.Open connstr
';关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
';替换单引号，向数据库中写入数据时用
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "';", "’")
end function
';替换单引号并进行HTML编码，向网页输出数据库内容时用
function Convert(strSrc)
Convert = Server.HTMLEncode(Replace(Trim(strSrc), "';", "’"))
';此句用于将字符串中的回车符转换为HTML中的换行标记
Convert = Replace(Convert, chr(13), "
")
end function
%>
问题是这个文件我用后台管理系统的default.asp调用就没有问题
可是我今天做页面的首页时就出现错误了
我给搞晕了,怎么回事呢?
我把option explicit这句话删掉过
她就显示下面一句缺少语句了.....
555555555555555555555
|
