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

首頁(yè) > 編程 > ASP > 正文

動(dòng)網(wǎng)論壇的asp 數(shù)據(jù)庫(kù)連接代碼

2024-05-04 10:57:08
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
復(fù)制代碼 代碼如下:

<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime,endtime,conn,strCon,db
startime=timer()

Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName

'請(qǐng)?zhí)顚?xiě)數(shù)據(jù)庫(kù)具體參數(shù)
'-----------------------------------------------------------------------------------------------
strSQLServerName = "127.0.0.1" '服務(wù)器名稱(chēng)或地址
strSQLDBUserName = "sa" '數(shù)據(jù)庫(kù)帳號(hào)
strSQLDBPassword = "123" '數(shù)據(jù)庫(kù)密碼
strSQLDBName = "bbsbak" '數(shù)據(jù)庫(kù)名稱(chēng)
'-----------------------------------------------------------------------------------------------

'SQL Server OLE Driver
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"

conn.Open strCon


function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 乌海市| 朝阳市| 鲜城| 晋中市| 霍城县| 盐津县| 邵阳县| 忻州市| 邯郸市| 江阴市| 崇明县| 青州市| 崇仁县| 石楼县| 万州区| 五原县| 襄樊市| 繁峙县| 贵港市| 偃师市| 辽宁省| 全州县| 蒙城县| 新乡市| 慈利县| 广元市| 竹山县| 九江县| 宜春市| 甘德县| 阿拉善右旗| 柘荣县| 苗栗市| 凤山县| 平阳县| 布拖县| 马尔康县| 东海县| 安平县| 桦南县| 阳泉市|