Sub B1_OnClick
set conn=server.createobject("adodb.connection")
StrDSN="driver={SQL server};server=app;uid=sa;pwd=bad;database=server_webdatabase"
conn.open strdsn
set Rs=Server.CreateObject("ADODB.RecordSet")
strsql="select * from srdh"
rs.open strsql,conn,1,1
end sub
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
application("connstr")="Provider=SQLOLEDB;User ID=sa;PASSWORD=;SERVER=127.0.0.1;DataBase=oa"
End Sub
</SCRIPT>
这是我在global.asa中做的连接
你可以试一下