主頁(yè) > 知識(shí)庫(kù) > asp連接SQL和Access數(shù)據(jù)代碼(asp里的隨機(jī)函數(shù))

asp連接SQL和Access數(shù)據(jù)代碼(asp里的隨機(jī)函數(shù))

asp連接sql
第一種寫(xiě)法：

復(fù)制代碼代碼如下:

 
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;" 
Set conn = Server.Createobject("ADODB.Connection") 
conn.open MM_conn_STRING 
SET RS=SERVER.CreateObject("ADOBD.recordset") 
SQL="SELECT * FROM TABLE ORDER BY ID DESC" 
RS.open SQL,CONN,3,3 

常用的函數(shù)代碼：

復(fù)制代碼代碼如下:

 
DataServer = "jb51" '數(shù)據(jù)庫(kù)服務(wù)器IP 
DataUser = "jb51" '訪問(wèn)數(shù)據(jù)庫(kù)用戶名 
DataBaseName = "jb51" '數(shù)據(jù)庫(kù)名稱 
DataBasePsw = "www.jb51.net" '訪問(wèn)數(shù)據(jù)庫(kù)密碼 
Set conn = Server.CreateObject("ADODB.Connection") 
ConnStr="driver={SQL Server};server="dataserver";UID="datauser";PWD="databasepsw";Database="databasename 
conn.open ConnStr 
If Err Then Err.Clear:Set conn = Nothing:Response.Write "數(shù)據(jù)庫(kù)連接出錯(cuò)，請(qǐng)檢查Conn.asp文件中的數(shù)據(jù)庫(kù)參數(shù)設(shè)置。":Response.End 

使用ASP連接MS SQL數(shù)據(jù)庫(kù)，標(biāo)準(zhǔn)的連接，常用的多的是下面這種連接字符串：

復(fù)制代碼代碼如下:

 
CONN.OPEN "Provider=SQLOLEDB.1;"_ 
"Password='"pass_word"';"_ 
"Persist Security Info=true;"_ 
"User ID='"User_ID"';"_ 
"Initial Catalog='"db"';"_ 
"Data Source='"Data_Source"';"_ 
"CONNect Timeout="cntimeout"" 

　　描述：
Provider=SQLOLEDB.1;數(shù)據(jù)庫(kù)提供者,后面的 1 是表示版本信息，如果沒(méi)有就會(huì)完全使用當(dāng)前最新版功能
User ID=SQL帳號(hào)，數(shù)據(jù)庫(kù)的帳號(hào)
Password=SQL帳號(hào)密碼，數(shù)據(jù)庫(kù)的帳號(hào)密碼
Initial Catalog=數(shù)據(jù)庫(kù)名字（只有名字，而ACCESS的是具體帶路徑的數(shù)據(jù)文件）
Data Source=數(shù)據(jù)源,SQL服務(wù)器名或其IP，通常用IP
上五個(gè)參數(shù)缺一不可

關(guān)于Data Source：

如果 IIS 和 SQL 同一臺(tái)服務(wù)器，則使用安裝 IIS的 IP 或主機(jī)名HostName 或 (local)
例如：
//Data Source=(Local) '' IIS 與 SQL 一起則第一選擇它！
//Data Source=212.100.1.12
//Data Source=LSS
如果 SQLserver 是在另外的機(jī)器上，比如你連接到我機(jī)器上的的 SQLserver ，就用我機(jī)器的 IP
//Data Source=208.190.21.112 '我的SQL server IP
CONNect Timeout=連接超時(shí)，是整數(shù)，缺省是30秒，可以不用
Persist Security Info= true or false 可以不用

理解SQL和ACCESS的區(qū)別：

ACCESS是文件型的數(shù)據(jù)庫(kù)，一個(gè)數(shù)據(jù)庫(kù)就是一個(gè)具體的 MDB文件，所以ACCESS的連接需要給出具體的數(shù)據(jù)庫(kù)路徑 Data Source='c:\www\mdb\aaa.mdb'
　　而Server.mappath(aaa.mdb)即是將aaa.mdb 映射為 c:\www\mdb\aaa.mdb
SQLserver是S/C 客戶端/服務(wù)器方式，與ACCESS完全不一樣，所以訪問(wèn)SQL 2000的數(shù)據(jù)庫(kù)需要建立客戶端和服務(wù)器端的連接，注意這個(gè)客戶端是針對(duì) SQL數(shù)據(jù)庫(kù)服務(wù)器來(lái)說(shuō)的
服務(wù)器端的腳本對(duì) SQLserver 來(lái)說(shuō)也是“客戶端應(yīng)用程序”。
　　SQL的數(shù)據(jù)庫(kù)物理上也是一個(gè).MDF數(shù)據(jù)文件，但這與MDB是天壤之別的，SQL的MDF 可以說(shuō)是一個(gè)數(shù)據(jù)庫(kù)的集合,里面包括了很多個(gè)數(shù)據(jù)庫(kù)（里面的每個(gè)數(shù)據(jù)庫(kù)有一個(gè)名字,每個(gè)數(shù)據(jù)庫(kù)有相應(yīng)的擁有者SchMa），而ACCESS的MDB是一個(gè)文件就是一個(gè)數(shù)據(jù)庫(kù)。
故訪問(wèn)SQL 數(shù)據(jù)庫(kù)要指定其服務(wù)器IP 數(shù)據(jù)庫(kù)帳號(hào)密碼數(shù)據(jù)庫(kù)名（當(dāng)然無(wú)路徑可言）
　　而訪問(wèn) ACCESS 只要訪問(wèn) ACCESS的文件就行了。
　　現(xiàn)在要做的是，進(jìn)入企業(yè)管理器，建立一個(gè)數(shù)據(jù)庫(kù)（比如為AAA），在數(shù)據(jù)庫(kù)中，建立添加數(shù)據(jù)庫(kù)用戶和密碼，然后就可以用上面的連接字符串來(lái)連接了！

//第二種寫(xiě)法：（DSN連接）

MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 // 3,3是修改、刪除、增加開(kāi)關(guān)！

//第三種寫(xiě)法：

MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own

//第四種 - 這種方法用在ACCESS中
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

我們常用的sqlserver與access都可以用的函數(shù)

復(fù)制代碼代碼如下:

 
% 
Const DataBaseType=1 
If DataBaseType=0 then 
DBPath="/data/news.mdb" //mdb數(shù)據(jù)庫(kù)路徑 
Else 
'如果是SQL數(shù)據(jù)庫(kù)，請(qǐng)認(rèn)真修改好以下數(shù)據(jù)庫(kù)選項(xiàng) 
DataServer = "jb51" '數(shù)據(jù)庫(kù)服務(wù)器IP 
DataUser = "jb51" '訪問(wèn)數(shù)據(jù)庫(kù)用戶名 
DataBaseName = "jb51" '數(shù)據(jù)庫(kù)名稱 
DataBasePsw = "www.jb51.net" '訪問(wèn)數(shù)據(jù)庫(kù)密碼 
End if 
On Error Resume Next 
If DataBaseType = 1 Then 
ConnStr="driver={SQL Server};server="dataserver";UID="datauser";PWD="databasepsw";Database="databasename 
Else 
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;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 "數(shù)據(jù)庫(kù)連接出錯(cuò)，請(qǐng)檢查Conn.asp文件中的數(shù)據(jù)庫(kù)參數(shù)設(shè)置。":Response.End 
%> 

連接MSSQL代碼(附加判斷代碼)：

復(fù)制代碼代碼如下:

 
% 
dim cn 
set cn=server.createobject("adodb.connection") 
cn.connectionstring="driver={SQL server};server=taihang;datebase=taihang;uid=sa;pwd=hacker" 
cn.open 
If cn.state=1 Then 
response.write"數(shù)據(jù)庫(kù)連接對(duì)象已打開(kāi)" 
Else 
response.write"數(shù)據(jù)庫(kù)連接對(duì)象未打開(kāi)" 
end If 
cn.close 
Set cn=nothing 
%> 

連接Access常用方法：

復(fù)制代碼代碼如下:

 
Dim conn,strDataPath,connStr 
set conn=server.createobject("ADODB.connection") '//定義數(shù)據(jù)庫(kù)連接對(duì)象 
strDataPath=server.MapPath("example.mdb") '//數(shù)據(jù)庫(kù)路徑字符串 
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  strDataPath '//數(shù)據(jù)庫(kù)連接 
conn.open connStr 

也可以用：

復(fù)制代碼代碼如下:

 
Dim conn,strDataPath,connStr 
set conn=server.createobject("ADODB.connection") '//定義數(shù)據(jù)庫(kù)連接對(duì)象 
strDataPath=server.MapPath("example.mdb") '//數(shù)據(jù)庫(kù)路徑字符串 
connStr="driver={Microsoft Access Driver (*.mdb)};dbq="  strDataPath '//數(shù)據(jù)庫(kù)連接 
conn.Open connStr 

注解：
　　因?yàn)槲覀兿氪蜷_(kāi)的是Access(.mdb)數(shù)據(jù)庫(kù)，所以我們要透過(guò)Access的ODBC驅(qū)動(dòng)程序{Microsoft Access Driver (*.mdb)}來(lái)存取數(shù)據(jù)庫(kù)，dbp參數(shù)則是用來(lái)指定想打開(kāi)的數(shù)據(jù)庫(kù)文件，因?yàn)樗仨毷峭暾窂矫Q，所以我們上一語(yǔ)句用了Server.MapPath 函數(shù) 。

　　上面常用方法中一般為簡(jiǎn)潔起見(jiàn)也可一用下面一句
　　conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath ("/") "xxx.mdb"

水寒意見(jiàn)>>
一般直接使用 Microsoft.Jet.OLEDB.4.0 一層接口:
adoConnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath ("/") "xxx.mdb"
避免使用 Microsoft OLEDB Provider for ODBC Drivers + Microsoft Access Driver (*.mdb)(Access 的 ODBC Driver)兩層接口:
adoConnection.open "PROVIDER=MSDASQL.1;Driver=Microsoft Access Driver(*.mdb);DBQ=" Server.MapPath ("/") xxx.mdb"

ACCESS數(shù)據(jù)庫(kù)連接代碼（一）

復(fù)制代碼代碼如下:

 
% 
Set con = Server.CreateObject("ADODB.Connection") 
con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="  Server.MapPath("數(shù)據(jù)庫(kù)文件路徑") 
%> 

ACCESS數(shù)據(jù)庫(kù)連接代碼（二）

復(fù)制代碼代碼如下:

 
% 
dim conn,cqie 
conn="provider=microsoft.jet.oledb.4.0;data source="  server.MapPath("數(shù)據(jù)庫(kù)文件路徑") 
set cqie=server.createobject("adodb.connection") 
cqie.open conn 
%> 

asp里的簡(jiǎn)單隨機(jī)函數(shù)

復(fù)制代碼代碼如下:

 
% 
dim a,b,c 
a=1310:b=9215 
randomize 
c=int((b-a+1)*rnd+a) 
%> 

取出上次登陸時(shí)間記錄本次登陸時(shí)間

復(fù)制代碼代碼如下:

 
% 
session("onetime")=rs("上次登陸時(shí)間") 
session.timeout=30 
rs("上次登陸時(shí)間")=now() 
%> 

您可能感興趣的文章:

asp下sql和access數(shù)據(jù)庫(kù)隨機(jī)取10條記錄的代碼newid()
sql server中隨機(jī)函數(shù)NewID()和Rand()

標(biāo)簽：大理衢州廣元江蘇棗莊萍鄉(xiāng) 蚌埠衡水

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp連接SQL和Access數(shù)據(jù)代碼(asp里的隨機(jī)函數(shù))》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。