Giáo Trình Lập Trình Ứng Dụng CSDL Web ASP- P22

Giáo Trình Lập Trình Ứng Dụng CSDL Web ASP- P22:Đây là những ngôn ngữ rất đơn giản và dễ sử dụng. Lưu ý rằng các script là những ngôn ngữ giới hạn, dùng để viết các chương trình đơn giản. Để thực hiện những công việc phức tạp như kết nối CSDL, lập trình đồ hoạ, giao tiếp với thiết bị phần cứng,... thì ta phải sử dụng các component (thành phần) đã được tạo trước bằng các ngôn ngữ lập trình mạnh mẽ hơn như C++, VB,... Các script của ASP chỉ có lệnh gọi đến các component này...
Nội dung trích xuất từ tài liệu:
Giáo Trình Lập Trình Ứng Dụng CSDL Web ASP- P22 Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Const adLockPessimistic = 2 Const adCmdText = &H0001 Dim strFilename Dim strSQL Dim rsCounter Dim iCount strFilename = Request.ServerVariables(SCRIPT_NAME) strSQL = SELECT page_name, hit_count FROM hit_count WHEREpage_name= & strFilename & ; Set rsCounter = Server.CreateObject(ADODB.Recordset) rsCounter.Open strSQL, Provider=Microsoft.Jet.OLEDB.4.0;DataSource= & Server.MapPath(counter_db.mdb) & ;, _ adOpenKeyset, adLockPessimistic, adCmdText If rsCounter.EOF Then rsCounter.AddNew iCount = 0 rsCounter.Fields(page_name).Value = strFilename Else rsCounter.MoveFirst iCount = rsCounter.Fields(hit_count).Value End If ‘ Tãng giá trị lên ử và update vào ừở rsCounter.Fields(hit_count).Value = iCount + 1 rsCounter.Update rsCounter.Close Set rsCounter = Nothing Trả về giá trị hiện thời RetrieveAndIncrementCount = iCount End Function %> Trong các tệp ĩSP của ta ự phần ðầu tệp ta dùng lệnh chỗ nào ta muốn sử dụng giá trị ðếm ta gọi hàm Retrieveĩndỡncrementắount === St by hoangly85 === 106 hoangly85@updatesofts.com Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASPIV - CÁC KỸ THUẬT XÂY DỰNG ỨNG DỤNG ASP HOÀN CHỈNH4.1. Quản lý môi trýờng trong ASP4.1.1. Lệnh Request.ServerVariables : Nhằm ðể biết ðýợc tất cả những gì client cho phép ví dụ nhý browser của clientlà gìự ðịa chỉ ỡP là gìự ðang duyệt trang Web nàoứứứ tất cả những thứ ðó ta ðều có thểbiết ðýợcứ Ví dụ RequestứServerVariablesộ“REMOTE_ADDR”ờ cho ta biết ỡP quaInternet của clientứ Hãy chạy ví dụ sau ồ Hello visitor from !o Your browser identifies itself as . Server Variable Value === St by hoangly85 === 107 hoangly85@updatesofts.com Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP Kết quả chạy script trên nhý sau : Hello visitor from 202.167.117.130! Your browser identifies itself asMozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0).Server Variable Value HTTP_ACCEPT:image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms- powerpoint, application/vnd.ms-excel, application/msword, */* HTTP_ACCEPT_LANGUAGE:en-us HTTP_CONNECTION:Keep-Alive HTTP_HOST:www.asp101.comALL_HTTP HTTP_REFERER:http://www.asp101.com/samples/ind ex.asp HTTP_USER_AGENT:Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) HTTP_COOKIE:NGUserID=a0201d5-1156- 986206461-1; ASPSESSIONIDGQQQQMOU=IOIONDOBLBADFB FHLGPHHJOC HTTP_ACCEPT_ENCODING:gzip, deflate Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */* Accept-Language: en-us Connection: Keep-Alive Host: www.asp101.com Referer:ALL_RAW http://www.asp101.com/samples/index.asp User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) Cookie: NGUserID=a0201d5-1156-986206461-1; ASPSESSIONIDGQQQQMOU=IOIONDOBLBADFB FHLGPHHJOC Accept-Encoding: gzip, deflateAPPL_MD_PATH /LM/W3SVC/3/RootAPPL_PHYSICAL_PATH D:\Webs\asp101\www\AUTH_PASSWORDAUTH_TYPEAUTH_USERCERT_COOKIECERT_FLAGSCERT_ISSUER === St by hoangly85 === 108 hoangly85@updatesofts.com Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASPCERT_KEYSIZECERT_SECRETKEYSIZECERT_SERIALNUMBERCERT_SERVER_ISSUERCERT_SERVER_SUBJECTCERT_SUBJECTCONTENT_LENGTH 0CONTENT_TYPEGATEWAY_INTERFACE CGI/1.1HTTPS offHTTPS_KEYSIZEHTTPS_SECRETKEYSIZEHTTPS_SERVER_ISSUERHTTPS_SERVER_SUBJECTINSTANCE_ID 3INSTANCE_META_PATH /LM/W3SVC/3LOCAL_ADDR 10.2.3.180LOGON_USERPATH_INFO /samples/servvars.aspPATH_TRANSLATED D:\Webs\asp101\www\samples\servvars.aspQUERY_STRINGREMOTE_ADDR 202.167.117.130REMOTE_HOST 202.167.117.130REMOTE_USERREQUEST_METHOD GETSCRIPT_NAME /samples/servvars.aspSERVER_NAME www.asp101.com === St by hoangly85 === 109 hoangly85@updatesofts.com Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASPSERVER_PORT 80SERVER_PORT_SECURE 0SERVER_PROTOCOL HTTP/1.0SERVER_SOFTWARE Microsoft-IIS/5.0URL /samples/servvars.asp image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,HTTP_ACCEPT application/vnd.ms-powerpoint, application/vnd.ms- ...