asp連接SQL和Access數據代碼(asp里的隨機函數)_ASP教程

推薦：asp中設置session過期時間方法總結
asp中默認session過期時間為20分鐘，很多情況下不夠，今天有客戶要求很多就要重新登錄了，所以準備了這篇文章，方便需要的朋友

asp連接sql
第一種寫法：

復制代碼代碼如下:www.wf0088.com

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

常用的函數代碼：

復制代碼代碼如下:www.wf0088.com

DataServer = "jb51" '數據庫服務器IP
DataUser = "jb51" '訪問數據庫用戶名
DataBaseName = "jb51" '數據庫名稱
DataBasePsw = "www.wf0088.com" '訪問數據庫密碼
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 "數據庫連接出錯，請檢查Conn.asp文件中的數據庫參數設置。":Response.End

使用ASP連接MS SQL數據庫，標準的連接，常用的多的是下面這種連接字符串：

復制代碼代碼如下:www.wf0088.com

 
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;數據庫提供者,后面的 1 是表示版本信息，如果沒有就會完全使用當前最新版功能
User ID=SQL帳號，數據庫的帳號
Password=SQL帳號密碼，數據庫的帳號密碼
Initial Catalog=數據庫名字（只有名字，而ACCESS的是具體帶路徑的數據文件）
Data Source=數據源,SQL服務器名或其IP，通常用IP
上五個參數缺一不可

關于Data Source：

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

理解SQL和ACCESS的區別：

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

//第二種寫法：（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是修改、刪除、增加開關！

//第三種寫法：

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都可以用的函數

復制代碼代碼如下:www.wf0088.com

 
<% 
Const DataBaseType=1 
If DataBaseType=0 then 
DBPath="/data/news.mdb" //mdb數據庫路徑 
Else 
'如果是SQL數據庫，請認真修改好以下數據庫選項 
DataServer = "jb51" '數據庫服務器IP 
DataUser = "jb51" '訪問數據庫用戶名 
DataBaseName = "jb51" '數據庫名稱 
DataBasePsw = "www.wf0088.com" '訪問數據庫密碼 
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 "數據庫連接出錯，請檢查Conn.asp文件中的數據庫參數設置。":Response.End 
%> 

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

復制代碼代碼如下:www.wf0088.com

 
<% 
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"數據庫連接對象已打開" 
Else 
response.write"數據庫連接對象未打開" 
end If 
cn.close 
Set cn=nothing 
%> 

連接Access常用方法：

復制代碼代碼如下:www.wf0088.com

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

也可以用：

復制代碼代碼如下:www.wf0088.com

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

注解：
　　因為我們想打開的是Access(.mdb)數據庫，所以我們要透過Access的ODBC驅動程序{Microsoft Access Driver (*.mdb)}來存取數據庫，dbp參數則是用來指定想打開的數據庫文件，因為它必須是完整路徑名稱，所以我們上一語句用了Server.MapPath 函數。

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

水寒意見>>
一般直接使用 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數據庫連接代碼（一）

復制代碼代碼如下:www.wf0088.com

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

ACCESS數據庫連接代碼（二）

復制代碼代碼如下:www.wf0088.com

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

asp里的簡單隨機函數

復制代碼代碼如下:www.wf0088.com

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

取出上次登陸時間記錄本次登陸時間

復制代碼代碼如下:www.wf0088.com

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

分享：asp入門:asp如何保存數據
下面我們就來看看實例教程吧. 先來看看提交的頁面: FORM ACTION=saveinfo.asp METHOD=post !-- Your fields here -- INPUT TYPE=submit value=Submit /FORM 下面看看接收數據并保存的頁面. % Set fs = CreateObject(Scripting.FileSystemObject) Folderpath=server.map

ASP視頻教程

輕輕松松學編程！FIF小組ASP互動視頻教程

ASP操作ACCESS數據庫視頻教程

來源：模板無憂/所屬分類：ASP教程/更新時間：2013-04-22

[收藏][報錯][返回列表]

相關ASP教程：

asp連接SQL和Access數據代碼(asp里的隨機函數)_ASP教程

ASP視頻教程

ASP教程Rss訂閱編程教程搜索

ASP教程推薦

猜你也喜歡看這些