asp连接数据库的代码

⑴ 如何用ASP连接sqlSERVER数据库

思路：

1、ASP连接SQL数据库，连接字符串是关键

2、连接后一般是执行查询语句获得结果集，或者是执行SQL语句，不需要返回结果

3、关闭数据库连接对象

示例代码：

dimConn,strConn,rs,strSQL
strConn="Provider=SQLOLEDB;DataSource=127.0.0.1;UserID=Test;Password=Test;InitialCatalog=Test_DBName"
SetConn=Server.CreateObject("ADODB.Connection")
Conn.openstrConn
iferr.number<>0then
response.Write"数据库链接失败。"&err.Description
response.End
endif
setrs=server.CreateObject("adodb.recordset")
strSQL="selecttitlefromdbo.tb_e_table"
rs.openstrSQL,conn,1,1
IfNotrs.eofThen
	'结果集存在，则可输出rs
	response.writers("title")
EndIf
rs.close
Setrs=Nothing
Conn.close
SetConn=Nothing

其中

【Provider=SQLOLEDB;】：是声明使用的是MSSQL协议，

【Data Source=127.0.0.1;】：是数据库的所在服务器IP地址或计算机名称，

【User ID=Test;】：要连接的数据库用户名，

【Password=Test;】：要连接的数据库用户密码，

【Initial Catalog=Test_DBName】：要连接的数据库名称

⑵ asp杩炴帴sqlserver鏁版嵁搴揿疄鐜颁唬镰

銆銆链鏂囩珷浠嬬粛浜嗗埄鐢╝sp杩炴帴sqlserver鏁版嵁搴揿疄渚嬩唬镰 杩炴帴鏂规硶链変笁绉嶅垎鍒涓洪氲繃ODBC DSN寤虹珛杩炴帴 阃氲繃oledb寤虹珛杩炴帴 阃氲繃driver寤虹珛杩炴帴涓夌 涓嬮溃鎴戜滑𨱒ョ湅鐪嬬涓绉

銆銆阃氲繃driver寤虹珛杩炴帴

浠ｇ爜濡备笅 <% Const DataBaseType= If DataBaseType= then DBPath="/jb /news asp" SqlNowString = "Now()" ystr=true nstr=false suiji="rnd(id)" Else 濡傛灉鏄疭QL鏁版嵁搴 璇疯ょ湡淇鏀瑰ソ浠ヤ笅鏁版嵁搴挞夐” DataServer = " cnnet" 鏁版嵁搴撴湇锷″櫒IP DataUser = "jb net" 璁块梾鏁版嵁搴撶敤鎴峰悕 DataBaseName = "jb net" 鏁版嵁搴揿悕绉 DataBasePsw = "瀵嗙爜" 璁块梾鏁版嵁搴揿瘑镰 SqlNowString = "getdate()" ystr= nstr= suiji="newid()" End if On Error Resume Next If DataBaseType = Then ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename Else ConnStr = "Provider=Microsoft Jet OLEDB ;Data Source=" & Server MapPath(DBPath) End If Set conn = Server CreateObject("ADODB Connection") conn open ConnStr If Err Then Err Clear:Set conn = Nothing:Response Write "鏁版嵁搴撹繛鎺ュ嚭阌 璇锋镆Conn asp鏂囦欢涓镄勬暟鎹搴揿弬鏁拌剧疆 ":Response End %>

銆銆阃氲繃driver寤虹珛杩炴帴

銆銆阃氲繃driver寤虹珛椤甸溃涓庢暟鎹搴撶殑杩炴帴 钖屾牱涓嶉渶瑕佸垱寤篛DBC DSN鏁版嵁婧 浣嗗繀椤荤煡阆揿疄闄呯殑鏁版嵁搴撴枃浠惰矾寰勬垨钥呮暟鎹婧愬悕(渚嫔 SQLserver镄勬暟鎹搴)

浠ｇ爜濡备笅 Set conn=Server CreateObject("ADODB Connection") conn Open"driver={SQL Server};server=abc;DataSource=(test);uid=;pwd=;database=UserDB"

銆銆 缂栧啓鑴氭湰鍜屾暟鎹搴撴簮寤虹珛杩炴帴

銆銆ADO锛圆ctiveX Data Objects 锛 鎻愪緵 Connection 瀵硅薄 鍙浠ヤ娇鐢ㄨュ硅薄寤虹珛鍜岀＄悊搴旂敤绋嫔簭鍜 ODBC 鏁版嵁搴扑箣闂寸殑杩炴帴 Connection 瀵硅薄鍏锋湁钖勭嶅睘镐у拰鏂规硶 鍙浠ヤ娇鐢ㄥ畠浠镓揿紑鍜屽叧闂鏁版嵁搴撹繛鎺 缂栧啓鏁版嵁搴撹繛鎺ヨ剼链 棣栧厛搴斿垱寤 Connection 瀵硅薄镄勫疄渚 鎺ョ潃镓揿紑鏁版嵁搴撹繛鎺

浠ｇ爜濡备笅

銆銆 ******************************************************************** 涓岙QL Server 链夊叧镄勮繛鎺 鍙浠ュ弬镦у畠寤虹珛鎭ㄧ殑鏁版嵁搴撹繛鎺 ******************************************************************** 鏁璇锋敞镒 璇锋牴鎹𨱍呭喌閰岖疆StrServer StrUid StrSapwd StrDbName锲涗釜鍙傛暟 Dim StrServer StrUid StrSaPwd StrDbName StrServer="(local)" 鏁版嵁搴撴湇锷″櫒钖 StrUid="testuser" 鎭ㄧ殑锏诲綍甯愬彿 StrSaPwd=" " 鎭ㄧ殑锏诲綍瀵嗙爜 StrDbName="db_test_" 鎭ㄧ殑鏁版嵁搴揿悕绉

lishixin/Article/program/net/201311/14116

⑶ asp 连接 access 数据库 几种方法

方法1：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
方法2：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
注意：一个页面中，只要连接一次就可以了，数据库使用完后要及时关闭连接。
conn.Close
Set conn = Nothing

⑷ ASp杩炴帴鏁版嵁搴(ASP杩炴帴鏁版嵁搴撴椂,鍙浠ヤ娇鐢ㄥ摢涓夌嶆柟寮忕殑杩炴帴鏂规硶)

鐢ㄧ殑链澶氱殑灏辨槸ACCESS鍜孲QL

Server鏁版嵁搴掳纴杩炴帴璇鍙ュ备笅:

1.

ASP杩炴帴Aess鏁版嵁搴撹鍙

Set

Conn=Server.("ADODB.Connection")

Connstr="DBQ="server.mappath("www/bbs.mdb")";DefaultDir=;DRIVER={Microsoft

AessDriver(*.mdb)};"

Conn.Open

connstr

鍏朵腑Set

Conn=Server.("ADODB.Connection")涓哄缓绔嬩竴涓璁块梾鏁版嵁镄勫硅薄

server.mappath("www/bbs.mdb")鏄锻婅瘔链嶅姟鍣╝ess

鏁版嵁搴撹块梾镄勮矾寰

2.

ASP杩炴帴Sqlserver鏁版嵁搴撹鍙

Set

conn

=

Server.("ADODB.Connection")

conn.Open"driver={SQLServer};server=202.108.32.94;uid=wu77445;pwd=p780522;database=w

ww_panwei_com"

conn

open

鍏朵腑/Set

conn

=

Server.("ADODB.Connection")涓鸿剧疆涓涓鏁版嵁搴撶殑杩炴帴瀵硅薄

driver=()锻婅瘔杩炴帴镄勮惧囧悕鏄疭QL-SERVER

server鏄杩炴帴镄勬湇锷″櫒镄刬p鍦板潃锛孶id鏄鎸囩敤鎴风殑鐢ㄦ埛钖嶏纴pwd鏄鎸囩殑鐢ㄦ埛镄刾assword锛宒atabase鏄鐢ㄦ埛鏁版嵁搴揿湪链嶅姟鍣ㄧ镄勬暟鎹搴撶殑钖岖О