conn.asp

功能最强大的ASP网站

<%'@LANGUAGE="VBSCRIPT"%>
<%'response.buffer=true%>
<%
'*********************************************************************
SqlDbHost="127.0.0.1" 	'修改实际的数据库服务器地址
SqlDbName="WinIISWeb"		'修改为实际的数据库名
SqlUserName="sa"		'修改为实际的数据库用户名
SqlUserPass="linyang"	'修改为实际的数据库密码
'*********************************************************************


'on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
'SQL链接字符串
connstr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=" & SqlDbHost & "; Initial Catalog="&SqlDbName&"; User ID="&SqlUserName&"; Password=" & SqlUserPass
conn.Open connstr

session("conn")=conn
session("ConnStr")=connstr

Set conn_lqsm = Server.CreateObject("ADODB.Connection")
conn_lqsm.Open connstr
session("conn_lqsm")=conn_lqsm
session("connstr_lqsm")=connstr
%>