Session.CodePage=65001
    Dim ConnStr
    set conn=server.createobject("adodb.connection")
    ConnStr="Provider=SQLOLEDB;server=.;database=xxx;uid=sa;pwd=xxxxx"
    Conn.Open ConnStr

    If Err Then
        Err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接错误!"
        Response.End
    End If

    Sub CloseConn
        if isobject(Conn) then
            Conn.Close
            Set Conn=Nothing
        End if
    End Sub