conn_compmarket.asp

多功能在线报价系统源码多功能在线报价系统源码

<%
Dim dcnCompMarket 'As ADODB.Connection Object
Dim rsCompMarket 'As ADODB.Recordset Object
Dim dsn 'Name of the DSN source
Dim uid,pwd 'User ID and password to login
Dim rsSource 'Name of the data source
Dim rsSQL 'The SQL sentence to produce the recordset

'Set the values of the connection
dsn="dsn=CompMarket;"
uid="uid=sql-write;"
pwd="pwd=qb493;"

'Create the connection
set dcnCompMarket=Server.CreateObject("ADODB.Connection")
dcnCompMarket.Open dsn & uid & pwd
%>