asp連接SQL和Access數(shù)據(jù)代碼(asp里的隨機函數(shù))
更新時間：2012年09月05日 23:30:59 作者：
asp連接SQL和Access數(shù)據(jù)代碼,asp里的隨機函數(shù),需要的朋友可以參考下
asp連接sql
第一種寫法：
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ù)代碼：
DataServer = "jb51" '數(shù)據(jù)庫服務(wù)器IP
DataUser = "jb51" '訪問數(shù)據(jù)庫用戶名
DataBaseName = "jb51" '數(shù)據(jù)庫名稱
DataBasePsw = "chabaoo.cn" '訪問數(shù)據(jù)庫密碼
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ù)庫連接出錯，請檢查Conn.asp文件中的數(shù)據(jù)庫參數(shù)設(shè)置。":Response.End
使用ASP連接MS SQL數(shù)據(jù)庫，標準的連接，常用的多的是下面這種連接字符串：
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ù)庫提供者,后面的 1 是表示版本信息，如果沒有就會完全使用當前最新版功能
User ID=SQL帳號，數(shù)據(jù)庫的帳號
Password=SQL帳號密碼，數(shù)據(jù)庫的帳號密碼
Initial Catalog=數(shù)據(jù)庫名字（只有名字，而ACCESS的是具體帶路徑的數(shù)據(jù)文件）
Data Source=數(shù)據(jù)源,SQL服務(wù)器名或其IP，通常用IP
上五個參數(shù)缺一不可
關(guān)于Data Source：
如果 IIS 和 SQL 同一臺服務(wù)器，則 使用安裝 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=連接超時，是整數(shù)，缺省是30秒，可以不用
Persist Security Info= true or false 可以不用
理解SQL和ACCESS的區(qū)別：
ACCESS是文件型的數(shù)據(jù)庫，一個數(shù)據(jù)庫就是一個具體的 MDB文件，所以ACCESS的連接需要給出具體的數(shù)據(jù)庫路徑 Data Source='c:\www\mdb\aaa.mdb'
而Server.mappath(aaa.mdb)即是將aaa.mdb 映射為 c:\www\mdb\aaa.mdb
SQLserver是S/C 客戶端/服務(wù)器方式，與ACCESS完全不一樣，所以訪問SQL 2000的數(shù)據(jù)庫需要建立客戶端和服務(wù)器端的連接，注意這個客戶端是針對 SQL數(shù)據(jù)庫服務(wù)器來說的
服務(wù)器端的腳本 對 SQLserver 來說也是“客戶端應(yīng)用程序”。
SQL的數(shù)據(jù)庫物理上也是一個.MDF數(shù)據(jù)文件，但這與MDB是天壤之別的，SQL的MDF 可以說是一個數(shù)據(jù)庫的集合,里面包括了很多個數(shù)據(jù)庫（里面的每個數(shù)據(jù)庫有一個名字,每個數(shù)據(jù)庫有相應(yīng)的擁有者SchMa），而ACCESS的MDB是一個文件就是一個數(shù)據(jù)庫。
故訪問SQL 數(shù)據(jù)庫要指定其服務(wù)器IP 數(shù)據(jù)庫帳號密碼 數(shù)據(jù)庫名（當然無路徑可言）
而訪問 ACCESS 只要訪問 ACCESS的文件就行了。
現(xiàn)在要做的是，進入企業(yè)管理器，建立一個數(shù)據(jù)庫（比如為AAA），在數(shù)據(jù)庫中，建立添加數(shù)據(jù)庫用戶和密碼，然后就可以用上面的連接字符串來連接了！
//第二種寫法：（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是修改、刪除、增加開關(guān)！
//第三種寫法：
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ù)
<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/data/news.mdb" //mdb數(shù)據(jù)庫路徑
Else
'如果是SQL數(shù)據(jù)庫，請認真修改好以下數(shù)據(jù)庫選項
DataServer = "jb51" '數(shù)據(jù)庫服務(wù)器IP
DataUser = "jb51" '訪問數(shù)據(jù)庫用戶名
DataBaseName = "jb51" '數(shù)據(jù)庫名稱
DataBasePsw = "chabaoo.cn" '訪問數(shù)據(jù)庫密碼
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ù)庫連接出錯，請檢查Conn.asp文件中的數(shù)據(jù)庫參數(shù)設(shè)置。":Response.End
%>
連接MSSQL代碼(附加判斷代碼)：
<%
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ù)庫連接對象已打開"
Else
response.write"數(shù)據(jù)庫連接對象未打開"
end If
cn.close
Set cn=nothing
%>
連接Access常用方法：
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定義數(shù)據(jù)庫連接對象
strDataPath=server.MapPath("example.mdb") '//數(shù)據(jù)庫路徑字符串
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath '//數(shù)據(jù)庫連接
conn.open connStr
也可以用：
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定義數(shù)據(jù)庫連接對象
strDataPath=server.MapPath("example.mdb") '//數(shù)據(jù)庫路徑字符串
connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & strDataPath '//數(shù)據(jù)庫連接
conn.Open connStr
注解：
因為我們想打開的是Access(.mdb)數(shù)據(jù)庫，所以我們要透過Access的ODBC驅(qū)動程序{Microsoft Access Driver (*.mdb)}來存取數(shù)據(jù)庫，dbp參數(shù)則是用來指定想打開的數(shù)據(jù)庫文件，因為它必須是完整路徑名稱，所以我們上一語句用了Server.MapPath 函數(shù) 。
上面常用方法中一般為簡潔起見也可一用下面一句
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數(shù)據(jù)庫連接代碼（一）
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("數(shù)據(jù)庫文件路徑")
%>
ACCESS數(shù)據(jù)庫連接代碼（二）
<%
dim conn,cqie
conn="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("數(shù)據(jù)庫文件路徑")
set cqie=server.createobject("adodb.connection")
cqie.open conn
%>
asp里的簡單隨機函數(shù)
<%
dim a,b,c
a=1310:b=9215
randomize
c=int((b-a+1)*rnd+a)
%>
取出上次登陸時間記錄本次登陸時間
<%
session("onetime")=rs("上次登陸時間")
session.timeout=30
rs("上次登陸時間")=now()
%>
第一種寫法：
復(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ù)庫服務(wù)器IP
DataUser = "jb51" '訪問數(shù)據(jù)庫用戶名
DataBaseName = "jb51" '數(shù)據(jù)庫名稱
DataBasePsw = "chabaoo.cn" '訪問數(shù)據(jù)庫密碼
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ù)庫連接出錯，請檢查Conn.asp文件中的數(shù)據(jù)庫參數(shù)設(shè)置。":Response.End
使用ASP連接MS SQL數(shù)據(jù)庫，標準的連接，常用的多的是下面這種連接字符串：
復(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ù)庫提供者,后面的 1 是表示版本信息，如果沒有就會完全使用當前最新版功能
User ID=SQL帳號，數(shù)據(jù)庫的帳號
Password=SQL帳號密碼，數(shù)據(jù)庫的帳號密碼
Initial Catalog=數(shù)據(jù)庫名字（只有名字，而ACCESS的是具體帶路徑的數(shù)據(jù)文件）
Data Source=數(shù)據(jù)源,SQL服務(wù)器名或其IP，通常用IP
上五個參數(shù)缺一不可
關(guān)于Data Source：
如果 IIS 和 SQL 同一臺服務(wù)器，則 使用安裝 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=連接超時，是整數(shù)，缺省是30秒，可以不用
Persist Security Info= true or false 可以不用
理解SQL和ACCESS的區(qū)別：
ACCESS是文件型的數(shù)據(jù)庫，一個數(shù)據(jù)庫就是一個具體的 MDB文件，所以ACCESS的連接需要給出具體的數(shù)據(jù)庫路徑 Data Source='c:\www\mdb\aaa.mdb'
而Server.mappath(aaa.mdb)即是將aaa.mdb 映射為 c:\www\mdb\aaa.mdb
SQLserver是S/C 客戶端/服務(wù)器方式，與ACCESS完全不一樣，所以訪問SQL 2000的數(shù)據(jù)庫需要建立客戶端和服務(wù)器端的連接，注意這個客戶端是針對 SQL數(shù)據(jù)庫服務(wù)器來說的
服務(wù)器端的腳本 對 SQLserver 來說也是“客戶端應(yīng)用程序”。
SQL的數(shù)據(jù)庫物理上也是一個.MDF數(shù)據(jù)文件，但這與MDB是天壤之別的，SQL的MDF 可以說是一個數(shù)據(jù)庫的集合,里面包括了很多個數(shù)據(jù)庫（里面的每個數(shù)據(jù)庫有一個名字,每個數(shù)據(jù)庫有相應(yīng)的擁有者SchMa），而ACCESS的MDB是一個文件就是一個數(shù)據(jù)庫。
故訪問SQL 數(shù)據(jù)庫要指定其服務(wù)器IP 數(shù)據(jù)庫帳號密碼 數(shù)據(jù)庫名（當然無路徑可言）
而訪問 ACCESS 只要訪問 ACCESS的文件就行了。
現(xiàn)在要做的是，進入企業(yè)管理器，建立一個數(shù)據(jù)庫（比如為AAA），在數(shù)據(jù)庫中，建立添加數(shù)據(jù)庫用戶和密碼，然后就可以用上面的連接字符串來連接了！
//第二種寫法：（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是修改、刪除、增加開關(guān)！
//第三種寫法：
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ù)庫路徑
Else
'如果是SQL數(shù)據(jù)庫，請認真修改好以下數(shù)據(jù)庫選項
DataServer = "jb51" '數(shù)據(jù)庫服務(wù)器IP
DataUser = "jb51" '訪問數(shù)據(jù)庫用戶名
DataBaseName = "jb51" '數(shù)據(jù)庫名稱
DataBasePsw = "chabaoo.cn" '訪問數(shù)據(jù)庫密碼
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ù)庫連接出錯，請檢查Conn.asp文件中的數(shù)據(jù)庫參數(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ù)庫連接對象已打開"
Else
response.write"數(shù)據(jù)庫連接對象未打開"
end If
cn.close
Set cn=nothing
%>
連接Access常用方法：
復(fù)制代碼 代碼如下:
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定義數(shù)據(jù)庫連接對象
strDataPath=server.MapPath("example.mdb") '//數(shù)據(jù)庫路徑字符串
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath '//數(shù)據(jù)庫連接
conn.open connStr
也可以用：
復(fù)制代碼 代碼如下:
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定義數(shù)據(jù)庫連接對象
strDataPath=server.MapPath("example.mdb") '//數(shù)據(jù)庫路徑字符串
connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & strDataPath '//數(shù)據(jù)庫連接
conn.Open connStr
注解：
因為我們想打開的是Access(.mdb)數(shù)據(jù)庫，所以我們要透過Access的ODBC驅(qū)動程序{Microsoft Access Driver (*.mdb)}來存取數(shù)據(jù)庫，dbp參數(shù)則是用來指定想打開的數(shù)據(jù)庫文件，因為它必須是完整路徑名稱，所以我們上一語句用了Server.MapPath 函數(shù) 。
上面常用方法中一般為簡潔起見也可一用下面一句
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數(shù)據(jù)庫連接代碼（一）
復(fù)制代碼 代碼如下:
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("數(shù)據(jù)庫文件路徑")
%>
ACCESS數(shù)據(jù)庫連接代碼（二）
復(fù)制代碼 代碼如下:
<%
dim conn,cqie
conn="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("數(shù)據(jù)庫文件路徑")
set cqie=server.createobject("adodb.connection")
cqie.open conn
%>
asp里的簡單隨機函數(shù)
復(fù)制代碼 代碼如下:
<%
dim a,b,c
a=1310:b=9215
randomize
c=int((b-a+1)*rnd+a)
%>
取出上次登陸時間記錄本次登陸時間
復(fù)制代碼 代碼如下:
<%
session("onetime")=rs("上次登陸時間")
session.timeout=30
rs("上次登陸時間")=now()
%>
相關(guān)文章
用asp實現(xiàn)批量刪除bak文件...2007-03-03
ASP 使用jqGrid實現(xiàn)讀寫刪的代碼(json)
因為有了比較成型的CMS，一直沒有舍棄ASP，一直想用.net重寫一下，是后話了。2010-03-03
UTF-8 Unicode Ansi 漢字GB2321幾種編碼轉(zhuǎn)換程序
UTF-8 Unicode Ansi 漢字GB2321幾種編碼轉(zhuǎn)換程序...2007-02-02
實現(xiàn)純真IP txt轉(zhuǎn)mdb數(shù)據(jù)庫的方法
實現(xiàn)純真IP txt轉(zhuǎn)mdb數(shù)據(jù)庫的方法...2007-07-07
從字符串里截取N個帶HTML的字符,現(xiàn)在的實現(xiàn)方法還不完善,過程是:從字符串里找各種控件的開始,然后依些分開,放到數(shù)組里,然后一個一個數(shù)組的加上來看看字符是否大于給定的字符如果是,那么,返回這個數(shù)組2008-06-06
ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實現(xiàn)代碼
有時候客戶提交的內(nèi)容里包含多個圖片，客戶想單獨把圖片路徑提取出來進行保存，下面腳本之家小編跟大家分享ASP正則提取內(nèi)容里所有圖片路徑SRC的方法函數(shù),需要的朋友可以參考下2019-09-09
jb51生成所有頁面的效果+分頁生成...2006-08-08
今天在寫asp的時候入庫提示Microsoft VBScript 運行時錯誤 錯誤 800a01f5 非法賦值: sitename,經(jīng)改名sitename2問題解決2014-10-10
不時有人問這種問題， js怎么傳值到asp, asp 怎么傳值到j(luò)s。 其實這個問題很經(jīng)典，我以前也犯過這種糊涂。2009-05-05
電影系統(tǒng)經(jīng)常用ASP偽參數(shù)，可以防范通過id采集數(shù)據(jù)。2008-01-01