网站首页显示Microsoft VBScript 编译器错误错误 '800a03ea'

#2

cg33272013-01-16 12:01

<%   response.buffer=true   %>
<%
    dim conn
    dim connstr
    dim db:db="data/data.mdb"     '设定数据名称
    dim dbset:setdb =1        '设定连接类型

    set conn = server.createobject("adodb.connection")
    select case setdb
    case "1"
    connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(""&db&"")
    case "2"
     connstr="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath(""&db&"")
    case "3"
     connstr="driver={sql server};server=localhost;uid=sa;pwd=123;database=pw_sys_data"
    case else
    connstr= "dns=pw_sys_data"
    end select

    if err.number<>0 then
        err.clear
        set conn=nothing
        response.write "数据库连接出错！"
        response.end
    else
        conn.open connstr
        if err then
            err.clear
            set conn=nothing
            response.write "数据库连接出错！"
            response.end
        end if
    end if %>

#3

cg33272013-01-16 12:01

真诚求教
0 then
        err.clear
        set conn=nothing
        response.write "数据库连接出错！"
        response.end
    else
        conn.open connstr
        if err then
            err.clear
            set conn=nothing
            response.write "数据库连接出错！"
            response.end
        end if
    end if %>

#4

cg33272013-01-16 12:04

网站首页上出现Microsoft VBScript 编译器错误错误 '800a03ea'

语法错误

/LM/W3SVC/1/Root/global.asa，行 60

网站首页显示Microsoft VBScript 编译器错误 错误 '800a03ea'