<%
	 dim Sql_Server,Sql_User,Sql_Pass,Sql_Data
	 Sql_Server = "localhost"        '數據庫服務器地址
	 Sql_User = "sa"				 '數據庫登錄名
	 Sql_Pass = "sa"		    	 '數據庫密碼
	 Sql_Data = "KHGLXT"			 '數據庫名	
%>

<%
  dim  conn,connstr
  connstr = "PROVIDER=SQLOLEDB;DATA SOURCE="&Sql_Server&";UID="&Sql_User&";PWD="&Sql_Pass&";DATABASE="&Sql_Data
  set  conn = server.createobject("ADODB.connection")		'創建數據庫連接對象
  conn.open  connstr										'連接數據庫
%>