Below provides a most comprehensive ASP database connection source code Oh, can be judged according to the different types of Access database or MSSQL database OH.
<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<%
Dim datalinktype,conn,connstr,mydbpath
Mydbpath= "Data/database.mdb" ' Database file location
Datalinktype = 0 ' Sets the way the database is connected, 1 is a SQL database, 0 for Access database
If datalinktype=0 Then
' **************************************************
' Use the Access database
' **************************************************
connstr = Provider = Microsoft.jet.oledb.4.0;data Source = "& Server.MapPath (Mydbpath)
Else
' **************************
' Using SQL database
' **************************************************
' connstr = ' driver={sql Server}; server= (local); uid=sa;pwd=windows;database=data1; "
connstr = "PROVIDER=SQLNCLI; Server=. sqlexpress;uid=sa;pwd=windows;database=data1; "
End If
on Error Resume Next
Set conn = Server.CreateObject ("ADODB. Connection ")
Conn.Open connstr
If Err Then
err.clear
set Conn = Nothing
response.write database connection error, please check the connection string. "' Note, you need to translate these words into English.
response.end
End If
' **************************************************
' closes database
' *********
Sub Closeconn ()
Conn.close
Set conn=nothing
End Sub
% "