国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網(wǎng)站 > 建站經(jīng)驗(yàn) > 正文

asp 全面安全數(shù)據(jù)連接代-碼

2019-11-02 15:13:47
字體:
供稿:網(wǎng)友

下面提供一款最全面的asp數(shù)據(jù)庫連接源碼哦,可以根據(jù)不同類型判斷是連接access數(shù)據(jù)庫還是mssql數(shù)據(jù)庫哦。

<[email protected]="VBSCRIPT" CODEPAGE="936"%>
<%
dim DataLinkType,conn,connstr,MyDbPath
MyDbPath="data/Database.mdb" '數(shù)據(jù)庫文件位置
DataLinkType = 0       '設(shè)置數(shù)據(jù)庫連接方式,1為SQL數(shù)據(jù)庫,0為Access數(shù)據(jù)庫
If dataLinkType=0 Then
 '**************************************************
 '使用Access數(shù)據(jù)庫
 '**************************************************
 ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath)
Else
 '**************************************************
 '使用SQL數(shù)據(jù)庫
 '**************************************************
 'ConnStr = "Driver={SQL Server}; server=(local);uid=sa;pwd=windows;database=data1;"
 ConnStr = "Provider=SQLNCLI; server=.SQLEXPRESS;uid=sa;pwd=windows;database=data1;"
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
 Err.Clear
 Set Conn = Nothing
 Response.Write "數(shù)據(jù)庫連接出錯(cuò),請(qǐng)檢查連接字串。"'注釋,需要把這幾個(gè)字翻譯成英文。
 Respo

中國古近代歷史研究網(wǎng)站[www.9-39.com]
nse.End
End If
'**************************************************
'關(guān)閉數(shù)據(jù)庫
'**************************************************
sub CloseConn()
conn.close
set conn=nothing
end sub
%>

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 阿瓦提县| 宜兰县| 涪陵区| 静宁县| 民和| 淮南市| 临武县| 尖扎县| 格尔木市| 石阡县| 乐安县| 溧水县| 瑞昌市| 泉州市| 中超| 望都县| 邵阳市| 新巴尔虎左旗| 甘德县| 响水县| 通城县| 杂多县| 雷波县| 大竹县| 寿阳县| 定州市| 威宁| 尼勒克县| 琼中| 阜平县| 工布江达县| 内江市| 浦东新区| 白银市| 双峰县| 卓尼县| 抚松县| 祁门县| 柞水县| 广丰县| 平罗县|