复制代码 代码如下:

<%

dim objconn,connstr

Set objconn = Server.CreateObject("ADODB.Connection")

connstr = "Provider=SQLNCLI;Server=(local);Database=sosuo8.comdatabase;Uid=sa;Pwd=123;"

objconn.Open connstr

%>