例子：
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
db="xxx" '数据库名称
Pass_word="sa" 'Password=帐号密码
User_ID="sa" 'User ID=登陆帐号
Data_Source="yyy" 'Data Source=服务名称或者ip
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
