[求助] Microsoft VBScript 编译器错误 '800a0400'

本文网址:http://bbs.bitscn.com/169998 复制

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,"<","&lt;")
'    Str=replace(Str,">","&gt;")
    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
%>
麻烦各位了，请问这个问题怎么解决？