Microsoft VBScript 编译器错误 '800a0400'
Microsoft VBScript 编译器错误 '800a0400'缺少语句
\common\conn.asp, line 2
代码如下：
<%
<!-- #include file="adovbs.inc" -->
'-------------------------------
'建立数据库连接
'--------------------------------
dim dbc
dim strconn
dim strpath
imagepath="../products/"
sub openconn()
strconn="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("../common/#lianheguo.mdb")
set dbc=server.CreateObject("adodb.connection")
dbc.Open strconn
end sub
sub closeconn()
if isobject(dbc) then
if dbc.State =adstateopen then
dbc.Close
end if
set dbc=nothing
end if
end sub
function bstr(Str)
if not isnull(Str) then
Str=trim(Str)
Str=replace(Str,"'","''")
bstr=Str
end if
end function
function HTML(Str)
if not isnull(Str) then
Str=trim(Str)
' Str=replace(Str,"<","<")
' Str=replace(Str,">",">")
Str=replace(Str," "," ")
Str=replace(Str,vbCrLf,"<br>")
HTML=Str
end if
end function
function splits(str,ano)
if str<>"" then
if ano<=ubound(split(str,"|")) then
splits=split(str,"|")(ano)
end if
end if
end function
%>
麻烦各位了，请问这个问题怎么解决？
页:
[1]