conn.asp

GIS系统初期,目前孩子啊处于测试阶段,好奇的朋友可以看看.

<% 
On Error Resume Next 

Dim Data_base 
Data_base = 0 '1为MSSQLServer2000 其它为Access 

Set conn=Server.CreateObject("Adodb.Connection") 

IF Data_base=1 Then 
'------------------------------------------------------------------------------------- 
Dim dbconn,dbip,dbdns,dbname,dbuid,dbpwd 
dbconn = 1 '链接方式 1为OLEDB链接 2为驱动链接 3为DNS链接 
dbip = "(local)" '数据库所在的IP地址，如果是本地数据库则为："(local)" 
dbdns = "zlh" '数据库DNS名 
dbname = "kehu" '数据库名称 
dbuid = "sa" '数据库用户名 
dbpwd = "123456" '数据库密码 
'------------------------------------------------------------------------------------- 
Select CASE dbconn 
Case 1 
conn.Open "Provider=SQLOLEDB;User ID="&dbuid&";Password="&dbpwd&";Initial Catalog="&dbname&";Data Source="&dbip&";" 
Case 2 
conn.open "DRIVER={SQL Server};SERVER="&dbip&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname&"" 
Case 3 
conn.open "DSN="&dbdns&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname&"" 
End Select 
Else 
'------------------------------------------------------------------------------------- 
Dim DB_Name,DB_Pwd 
DB_Name = "sms.mdb" '数据库名字 
DB_Pwd = "" '数据库密码,如无密码可不填写,代码自动判断选择语句。 
'------------------------------------------------------------------------------------- 
IF DB_Pwd="" Then 
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(DB_Name) 
Else 
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(DB_Name)&";Jet OLEDB:Database Password="&DB_Pwd&";" 
End IF 
End IF 

IF Err Then 
Err.Clear 
conn.Close 
Set conn = Nothing 
Response.Write "<Center><font color=#FF6600><strong>数据库连接出错，请检查连接设置...</strong></font></Center>" 
Response.End 
End IF 
%>