asp连接db

<%
Sub LinkData100()
 set conn100 = server.createobject("adodb.connection")
 connstr = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=user;password=pwd;Data Source=ora100" 
 conn100.open connstr
    If Err Then
     err.Clear
     Set conn100 = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub 

Sub CloseData100()
    if IsObject(conn100) then
        conn100.Close
        set conn100=nothing
    end if
End Sub

Sub LinkData101()
 set conn101 = server.createobject("adodb.connection")
 connstr = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=user;password=pwd;Data Source=ora101" 
 conn101.open connstr
    If Err Then
     err.Clear
     Set conn101 = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub 

Sub CloseData101()
    if IsObject(conn101) then
        conn101.Close
        set conn101=nothing
    end if
End Sub

Sub Linksql()
 set connsql = server.createobject("adodb.connection")
 connstr="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=q1aQtn;Initial Catalog=jiaoyou;Data Source=192.168.0.73"
 connsql.open connstr
    If Err Then
     err.Clear
     Set connsql = Nothing
     Response.Write "server73数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub 

Sub Closesql()
    if IsObject(connsql) then
        connsql.Close
        set connsql=nothing
    end if
End Sub

Sub LinkDatamysql()
 Dim connstr,sql,rs,zy1,zy2,zy3
 connstr = "dsn=zymysql;driver={mysql odbc 3.51 driver};server=192.168.0.72;uid=user;pwd=pwd;database=ics_pageview"
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open ConnStr
    If Err Then
     err.Clear
     Set Conn = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub 

Sub CloseData()
    if IsObject(conn) then
        conn.Close
        set conn=nothing
    end if
End Sub

Sub LinkData100()
 set conn100 = server.createobject("adodb.connection")
 'connstr = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=user;password=pwd;Data Source=ora100" 
 connstr = "DRIVER={Oracle in orcclient};UID=user;PWD=pwd;DBQ=ora100;"
 conn100.open connstr
    If Err Then
     err.Clear
     Set conn100 = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub 

Sub CloseData100()
    if IsObject(conn100) then
        conn100.Close
        set conn100=nothing
    end if
End Sub

Sub LinkData101()
 set conn101 = server.createobject("adodb.connection")
 'connstr = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=user;password=pwd;Data Source=ora101" 
 connstr = "DRIVER={Oracle in orcclient};UID=user;PWD=pwd;DBQ=ora101;"
 conn101.open connstr
    If Err Then
     err.Clear
     Set conn101 = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub 

Sub CloseData101()
    if IsObject(conn101) then
        conn101.Close
        set conn101=nothing
    end if
End Sub

Sub Linklob()
 Set OraSession=CreateObject("OracleInProcServer.XOraSession")
 Set connlob=OraSession.DbOpenDatabase("ora101","user/pwd",0)
    If Err Then
     err.Clear
     Set connlob = Nothing
     Set OraSession=nothing
     Response.Write "lob数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub 

Sub Closelob()
    if IsObject(connlob) then
  Set connlob = Nothing
 Set OraSession=nothing
    end if
End Sub

Sub Linkaccess()
    Dim ConnStr
    DataType=0 '初始化数据库类型，0为Access,1为sql数据库
    If DataType=1 Then
        Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
        SqlDatabaseName = "bbsgood_speed"
        SqlPassword = "sa"
        SqlUsername = "sa"
        SqlLocalName = "127.0.0.1"
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
    Else
        Dim Db,fso,path
        path="zy" '数据库目录名路径
        'Db="o92lacerintend.mdb" '数据库名
 Db="zy.mdb" '数据库名
        Db = ""&path&"/"&Db&""
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        if fso.FolderExists(server.MapPath(path))=false then
        Db="../"&Db
        end if
        set fso=nothing
     ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
    End If
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open ConnStr
    If Err Then
     err.Clear
     Set Conn = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub

%>

<%
Sub linkacc()
 dim connstr,db
 db="top10.mdb"
 Set conn = Server.CreateObject("ADODB.Connection")
 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
 conn.Open connstr
end sub
%>