国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 古田县| 德昌县| 望奎县| 崇州市| 孙吴县| 平遥县| 伊宁市| 德保县| 东兰县| 龙海市| 乌恰县| 常州市| 桓台县| 芜湖市| 兴安县| 孟村| 海晏县| 台南县| 德令哈市| 泰宁县| 中卫市| 永兴县| 高清| 遂宁市| 河东区| 西峡县| 静海县| 二连浩特市| 习水县| 岚皋县| 平谷区| 体育| 三穗县| 荥阳市| 淳化县| 寿光市| 台中市| 临桂县| 介休市| 宽城| 广宗县|