conn.asp

唐网公司企业网站管理系统源码 双数据库 sql access 功能强大 易于扩展

<%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn
		SqlDatabaseName = "maxtangcnensql"      'SQL数据库名
		SqlPassword = "123456"              'SQL数据库用户密码
		SqlUsername = "sa"               'SQL数据库用户名     
		SqlLocalName = "(local)"    'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
		Set conn = Server.CreateObject("ADODB.Connection")
	    conn.open ConnStr
	
 sub CloseConn()
	conn.close
	set conn=nothing
 end sub
%>