连接数据库详细版

最新推荐文章于 2024-10-17 18:58:27 发布

tourstar

最新推荐文章于 2024-10-17 18:58:27 发布

阅读量433

点赞数

分类专栏： ASP 文章标签：数据库 database system sql server windows 数据库服务器

本文链接：https://blog.csdn.net/tourstar/article/details/5597081

版权

ASP 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

<%
Server.ScriptTimeout=9999
session.Timeout=999

Dim Database_Conn,Database_Path,conndbtype
conndbtype="1"
Dim Conn
Set Conn = Server.CreateObject("Adodb.Connection")
If conndbtype="1" Then
Database_Path = "../Database/testDb.mdb"
Database_Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(Database_Path)

Else
'SQL Server数据库链接
StrServer ="(local)" '数据库服务器名
StrUid ="sa" '您的登录帐号
StrSaPwd ="qwertyuiop" '您的登录密码
StrDbName ="Testdb" '您的数据库名称
Database_Conn ="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'StrDSN="Provider=SQLOLEDB.1;Network=DBMSSOCN;Password='" & StrSaPwd & "';Persist Security Info=True;User ID=" & StrUid & ";Initial Catalog=" & StrDbName &";Data Source='" & StrServer & "'"
End If

On Error Resume Next

Conn.Open Database_Conn
If Err.Number <> 0 Then
Err.Clear
Conn.Close
Set Conn = Nothing

Response.Write "对不起,数据库连接出错,请与管理员联系!"
Response.End
End If
System = Request.ServerVariables("HTTP_USER_AGENT")
if Instr(System,"Windows NT 5.2") then
System = "Win2003"
elseif Instr(System,"Windows NT 5.0") then
System="Win2000"
elseif Instr(System,"Windows NT 5.1") then
System = "WinXP"
elseif Instr(System,"Windows NT") then
System = "WinNT"
elseif Instr(System,"Windows 9") then
System = "Win9x"
elseif Instr(System,"unix") or instr(System,"linux") or instr(System,"SunOS") or instr(System,"BSD") then
System = "类Unix"
elseif Instr(System,"Mac") then
System = "Mac"
else
System = "Other"
end If