国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 富裕县| 阿图什市| 云阳县| 靖西县| 灵丘县| 六枝特区| 大关县| 黄陵县| 克东县| 瑞昌市| 南阳市| 平邑县| 台前县| 蓝山县| 上饶市| 蒙城县| 调兵山市| 阿荣旗| 山阳县| 安阳县| 彩票| 东宁县| 文山县| 宜宾县| 阳信县| 新巴尔虎左旗| 平罗县| 宁德市| 滦南县| 阳朔县| 祁连县| 容城县| 甘孜| 昂仁县| 上思县| 湛江市| 琼结县| 许昌市| 思南县| 本溪| 托克逊县|