conn.asp

来自「一个用ASP和ACCESS做的网络建站系统 1.WAP站长论坛网站系统【测试版」· ASP 代码 · 共 35 行

<!--#include file=../data.asp-->

<%
'--------------------------------------------------------------------------
Dim Conn, rs,const_Database
Dim strSQLServerName		
Dim strSQLDBUserName		
Dim strSQLDBPassword		
Dim strSQLDBName
const_Database="../"&const_AccessDatabase
Const IsSqlDataBase = "0" '数据库模式 1 为MSSQL数据服务器 0 为ACCESS数据服务器		
'数据库参数设置
'--------------------------------------------------------------------------
strSQLServerName = "(local)"      '服务器名称或地址
strSQLDBUserName = "phonebook"             '数据库帐号
strSQLDBPassword = ""               '数据库密码
strSQLDBName = "phonebook"             '数据库名称
'--------------------------------------------------------------------------

if IsSqlDataBase="1" then

	Set Conn = Server.CreateObject("ADODB.Connection")
	StrSQL = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"


elseif IsSqlDataBase="0" then

	conn = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath(""&const_Database&"")
	set rs = Server.Createobject("Adodb.Connection")
	rs.open conn

end if

%>