asp General database connection process function

<%

'*********************************

'Function: ConnectionMssql(ConnStr)

'Parameters: ConnStr, database connection code

'Author: Alixi

'Date: 2007/7/13

'Description: General Database Connection Process

'Example: <%=ConnectionMssql("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=test.mdb")%>

'*********************************

SubConnectionMssql(ConnStr)

OnErrorResumeNext

SetobjConn=Server.Createobject("ADODB.Connection")

objConn.ConnectionTimeout=12

objConn.ConnectionString=Trim(ConnStr)

objConn.Open

IfobjConn.Errors.Count=0Then

Else

Response.Write"ConnectionMssql","Data connection failed, please check the configuration file!"

Response.End

EndIf

EndSub

%>

Articles that may be of interest to you: