【www.gdgbn.com--英文短信】

在连接字符串里加上服务器和数据库驱动程序就可以了
Example:
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "driver={SQL Server};"server=yourserver;uid=sa;pwd=pwd;database=pubs"
conn.open
Set cmd= Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn

本文来源：http://www.gdgbn.com/zhufuduanxin/2064/