ASP comprehensive secure data connection code

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
% "