ASP與Access資料庫連接

psac · 2006-01-08, 04:15 AM

ASP與Access資料庫連接
dim conn,mdbfile
mdbfile=server.mappath("資料庫名稱.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=資料庫密碼;dbq="&mdbfile }

WEB開發-常用程式碼整理(程序部分)和SQL語言

1. ASP與Access資料庫連接：

dim conn,mdbfile
mdbfile=server.mappath("資料庫名稱.mdb")
set conn=server.createobject("adodb.connection")
'conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=資料庫密碼;dbq="&mdbfile
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & mdbfile

2. ASP與SQL資料庫連接：
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL伺服器名稱或IP位址;UID=sa;PWD=資料庫密碼;DATABASE=資料庫名稱;"
^…………詳細資料請訪問：http://www.y8z8.com/article.asp?id=60

psac · 2006-05-15, 01:32 AM

ASP小偷(遠端資料獲取)程序入門教學

ASP小偷(遠端資料獲取)程序入門教學

這裡所說的「小偷」指的是在asp中運用xml中的xmlhttp元件提供的強大功能，把遠端網站上的資料（圖片，網頁及其他文件）抓取到本機，經過各種處理後顯示到頁面上或者儲存於進資料庫的一類程序。你可以通過這種小偷程序，完成過去一些似乎完全不可能實現的工作，比如說把某個站的頁面偷梁換柱後變成自己的頁面，或者把某個站的一些資料（文章，圖片）儲存到本機資料庫中加以利用。「小偷」的優點有：無須維護網站，因為小偷程序中的資料來自其他網站，它將隨著該網站的更新而更新；可以節省大量的伺服器資源，一般小偷程序就幾個文件，所有網頁內容都是來自其他網站。缺點在於：不穩定，如果目標網站出現錯誤，程序也會出現錯誤，而且，如果目標網站進行昇級維護，那麼小偷程序也要進行相應修改；速度，因為是遠端使用，速度和在本機伺服器上讀取資料比起來，肯定要慢一些。怎麼樣，聽起來很神奇吧？我們現在就開始來教學一些「小偷」程序的入門知識吧！

我們拿個簡單點的東西來研究一下吧，qq網站上的天氣預報程序

程式碼如下：

1 <%
2 On Error Resume Next
3 Server.Scripttimeout=9999999
4 Function Gethttppage(Path)
5 T = Getbody(Path)
6 Gethttppage=Bytestobstr(T,"Gb2312")
7 End Function
8
9 ' 首先，進行小偷程序的一些啟始化設定，以上程式碼的作用分別是忽略掉所有非致命性錯誤，把小偷程序的執行超時時間設定得很長（這樣不會出現執行超時的錯誤），轉換原來預設值的utf-8編碼轉換成gb2312編碼，否則直接用xmlhttp元件使用有中文字元的網頁得到的將是亂碼。
10
11 Function Getbody(Url)
12 On Error Resume Next
13 Set Retrieval = Createobject("Microsoft.Xmlhttp")
14 With Retrieval
15 .Open "Get", Url, False, "", ""
16 .Send
17 Getbody = .Responsebody
18 End With
19 Set Retrieval = Nothing
20 End Function
21
22 '然後使用xmlhttp元件新增一個對象並進行啟始化設定。
23
24 Function Bytestobstr(Body,Cset)
25 Dim Objstream
26 Set Objstream = Server.Createobject("Adodb.Stream")
27 Objstream.Type = 1
28 Objstream.Mode =3
29 Objstream.Open
30 Objstream.Write Body
31 Objstream.Position = 0
32 Objstream.Type = 2
33 Objstream.Charset = Cset
34 Bytestobstr = Objstream.Readtext
35 Objstream.Close
36 Set Objstream = Nothing
37 End Function
38
39 Function Newstring(Wstr,Strng)
40 Newstring=Instr(Lcase(Wstr),Lcase(Strng))
41 If Newstring<=0 Then Newstring=Len(Wstr)
42 End Function
43
44 '處理抓取回來的資料需要使用adodb.Stream元件並進行啟始化設定。%>

以下即為頁面顯示部分:

1 <%
2 Dim Wstr,Str,Url,Start,Over,City
3 '定義一些需要使用到的變數
4
5 City = Request.Querystring("Id")
6 '程序傳回的id變數（即用戶選項的城市）賦給id
7
8 Url="Http://Appnews.Qq.Com/Cgi-bin/News_qq_search?city="&City&""
9 '這裡設定需要抓取的頁面位址，當然你也可以直接指定某個位址而不使用變數
10
11 Wstr=Gethttppage(Url)
12 '獲取指定頁面的全部資料
13
14 Start=Newstring(Wstr," <Html>")
15 '這裡設定需要處理的資料的頭部，這個變數應視不同情況而設定，具體內容可以通過檢視需要抓取的頁面的來源碼來確定。因為在這個程序裡我們需要抓取整個頁面,所以設定為頁面全部抓取。注意，設定的內容必須是頁面內容唯一的，不可以重複。
16
17 Over=Newstring(Wstr," </Html>")
18 '和start相對應的就是需要處理的資料的尾部，同樣的，設定的內容必須是頁面中唯一的。
19
20 Body=Mid(Wstr,Start,Over-start)
21 '設定顯示頁面的範圍
22
23 '下面就是動用乾坤挪移+++的時候了，通過replace可以用一些字元取代掉資料中指定的字元。
24
25 Body = Replace(Body,"Skin1","天氣預報 - 斯克網路")
26 Body = Replace(Body,"Http://Appnews.Qq.Com/Cgi-bin/News_qq_search?city","Tianqi.Asp?id")
27
28 '本程序中已經完成了取代的工作，如果有其他需要的話可以繼續進行類似的取代操作。
29
30 Response.Write Body
31 %>
取代完需要修改的內容後，就可以把修改的內容顯示在頁面上了。至此程序結束

程序使用方法及結果：把上述程式碼去掉說明部分後儲存為tianqi.Asp，上傳到支持asp和xml的空間下，在瀏覽器中執行即可。你可以在在這個程序的基礎上進行進一步的介面美化或者程序最佳化。

以上只是一些關於xmlhttp元件的初級套用，實際上它還能實現的功能還有很多，比如說儲存遠端圖片到本機伺服器上，配合adodb.Stream元件可以把獲取來的資料儲存進資料庫。小偷的作用和使用範圍都很廣。但是不可以拿來做違法的事哦！

也許還有人要問了，這種「小偷」程序難道只是asp的專利嗎？非也，php通過fopen函數一樣可以實現同樣的效果，由於php本身的各種特點，寫出來的小偷程序和asp相比，在體積和執行效率上都有者明顯的優勢，但限於篇幅，這裡就不一一說明了。

2006-01-08, 04:15 AM	#1 (permalink)
psac 榮譽會員榮譽勳章勳章總數19 UID - 3662 在線等級: 註冊日期: 2002-12-07 住址: 木柵市立動物園文章: 17381 精華: 2 現金: 5253 金幣資產: 33853 金幣	ASP與Access資料庫連接 ASP與Access資料庫連接 dim conn,mdbfile mdbfile=server.mappath("資料庫名稱.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (.mdb)};uid=admin;pwd=資料庫密碼;dbq="&mdbfile } WEB開發-常用程式碼整理(程序部分)和SQL語言 1. ASP與Access資料庫連接： dim conn,mdbfile mdbfile=server.mappath("資料庫名稱.mdb") set conn=server.createobject("adodb.connection") 'conn.open "driver={microsoft access driver (.mdb)};uid=admin;pwd=資料庫密碼;dbq="&mdbfile conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & mdbfile 2. ASP與SQL資料庫連接： dim conn set conn=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL伺服器名稱或IP位址;UID=sa;PWD=資料庫密碼;DATABASE=資料庫名稱;" ^…………詳細資料請訪問：http://www.y8z8.com/article.asp?id=60
	__________________
	送花文章: 3, 收花文章: 1631 篇, 收花: 3205 次

2006-05-15, 01:32 AM	#2 (permalink)
psac 榮譽會員榮譽勳章勳章總數19 UID - 3662 在線等級: 註冊日期: 2002-12-07 住址: 木柵市立動物園文章: 17381 精華: 2 現金: 5253 金幣資產: 33853 金幣	ASP小偷(遠端資料獲取)程序入門教學 ASP小偷(遠端資料獲取)程序入門教學這裡所說的「小偷」指的是在asp中運用xml中的xmlhttp元件提供的強大功能，把遠端網站上的資料（圖片，網頁及其他文件）抓取到本機，經過各種處理後顯示到頁面上或者儲存於進資料庫的一類程序。你可以通過這種小偷程序，完成過去一些似乎完全不可能實現的工作，比如說把某個站的頁面偷梁換柱後變成自己的頁面，或者把某個站的一些資料（文章，圖片）儲存到本機資料庫中加以利用。「小偷」的優點有：無須維護網站，因為小偷程序中的資料來自其他網站，它將隨著該網站的更新而更新；可以節省大量的伺服器資源，一般小偷程序就幾個文件，所有網頁內容都是來自其他網站。缺點在於：不穩定，如果目標網站出現錯誤，程序也會出現錯誤，而且，如果目標網站進行昇級維護，那麼小偷程序也要進行相應修改；速度，因為是遠端使用，速度和在本機伺服器上讀取資料比起來，肯定要慢一些。怎麼樣，聽起來很神奇吧？我們現在就開始來教學一些「小偷」程序的入門知識吧！我們拿個簡單點的東西來研究一下吧，qq網站上的天氣預報程序程式碼如下： 1 <% 2 On Error Resume Next 3 Server.Scripttimeout=9999999 4 Function Gethttppage(Path) 5 T = Getbody(Path) 6 Gethttppage=Bytestobstr(T,"Gb2312") 7 End Function 8 9 ' 首先，進行小偷程序的一些啟始化設定，以上程式碼的作用分別是忽略掉所有非致命性錯誤，把小偷程序的執行超時時間設定得很長（這樣不會出現執行超時的錯誤），轉換原來預設值的utf-8編碼轉換成gb2312編碼，否則直接用xmlhttp元件使用有中文字元的網頁得到的將是亂碼。 10 11 Function Getbody(Url) 12 On Error Resume Next 13 Set Retrieval = Createobject("Microsoft.Xmlhttp") 14 With Retrieval 15 .Open "Get", Url, False, "", "" 16 .Send 17 Getbody = .Responsebody 18 End With 19 Set Retrieval = Nothing 20 End Function 21 22 '然後使用xmlhttp元件新增一個對象並進行啟始化設定。 23 24 Function Bytestobstr(Body,Cset) 25 Dim Objstream 26 Set Objstream = Server.Createobject("Adodb.Stream") 27 Objstream.Type = 1 28 Objstream.Mode =3 29 Objstream.Open 30 Objstream.Write Body 31 Objstream.Position = 0 32 Objstream.Type = 2 33 Objstream.Charset = Cset 34 Bytestobstr = Objstream.Readtext 35 Objstream.Close 36 Set Objstream = Nothing 37 End Function 38 39 Function Newstring(Wstr,Strng) 40 Newstring=Instr(Lcase(Wstr),Lcase(Strng)) 41 If Newstring<=0 Then Newstring=Len(Wstr) 42 End Function 43 44 '處理抓取回來的資料需要使用adodb.Stream元件並進行啟始化設定。%> 以下即為頁面顯示部分: 1 <% 2 Dim Wstr,Str,Url,Start,Over,City 3 '定義一些需要使用到的變數 4 5 City = Request.Querystring("Id") 6 '程序傳回的id變數（即用戶選項的城市）賦給id 7 8 Url="Http://Appnews.Qq.Com/Cgi-bin/News_qq_search?city="&City&"" 9 '這裡設定需要抓取的頁面位址，當然你也可以直接指定某個位址而不使用變數 10 11 Wstr=Gethttppage(Url) 12 '獲取指定頁面的全部資料 13 14 Start=Newstring(Wstr," <Html>") 15 '這裡設定需要處理的資料的頭部，這個變數應視不同情況而設定，具體內容可以通過檢視需要抓取的頁面的來源碼來確定。因為在這個程序裡我們需要抓取整個頁面,所以設定為頁面全部抓取。注意，設定的內容必須是頁面內容唯一的，不可以重複。 16 17 Over=Newstring(Wstr," </Html>") 18 '和start相對應的就是需要處理的資料的尾部，同樣的，設定的內容必須是頁面中唯一的。 19 20 Body=Mid(Wstr,Start,Over-start) 21 '設定顯示頁面的範圍 22 23 '下面就是動用乾坤挪移+++的時候了，通過replace可以用一些字元取代掉資料中指定的字元。 24 25 Body = Replace(Body,"Skin1","天氣預報 - 斯克網路") 26 Body = Replace(Body,"Http://Appnews.Qq.Com/Cgi-bin/News_qq_search?city","Tianqi.Asp?id") 27 28 '本程序中已經完成了取代的工作，如果有其他需要的話可以繼續進行類似的取代操作。 29 30 Response.Write Body 31 %> 取代完需要修改的內容後，就可以把修改的內容顯示在頁面上了。至此程序結束程序使用方法及結果：把上述程式碼去掉說明部分後儲存為tianqi.Asp，上傳到支持asp和xml的空間下，在瀏覽器中執行即可。你可以在在這個程序的基礎上進行進一步的介面美化或者程序最佳化。以上只是一些關於xmlhttp元件的初級套用，實際上它還能實現的功能還有很多，比如說儲存遠端圖片到本機伺服器上，配合adodb.Stream元件可以把獲取來的資料儲存進資料庫。小偷的作用和使用範圍都很廣。但是不可以拿來做違法的事哦！也許還有人要問了，這種「小偷」程序難道只是asp的專利嗎？非也，php通過fopen函數一樣可以實現同樣的效果，由於php本身的各種特點，寫出來的小偷程序和asp相比，在體積和執行效率上都有者明顯的優勢，但限於篇幅，這裡就不一一說明了。

	送花文章: 3, 收花文章: 1631 篇, 收花: 3205 次

Google 提供的廣告