Asp深度揭密(上) 收藏此頁(yè)到茶秀網(wǎng)摘 | |||
作者: unknown www.ASPCool.com 時(shí)間:2005-10-23 上午 12:51:21 閱讀次數(shù):1023 | |||
1.Asp是Active Server Pages的簡(jiǎn)稱,是解釋型的腳本語(yǔ)言環(huán)境; 2.Asp的運(yùn)行需要Windows操作系統(tǒng),9x下需要安裝PWS;而NT/2000/XP則需要安裝Internet Information Server(簡(jiǎn)稱IIS); 3.Asp和JSP的腳本標(biāo)簽是“<%%>”,PHP的則可以設(shè)定為多種; 4.Asp的注釋符號(hào)是“‘”; 5.使用附加組件,可以擴(kuò)展Asp的功能。 例子: HelloWorld_1.asp <%="Hello,world"%> 效果: Hello,world HelloWorld_2.asp <% for i=1 to 10 response.write "Hello,world" next %> 效果: Hello,world Hello,world Hello,world Hello,world Hello,world Hello,world Hello,world Hello,world Hello,world Hello,world 注意:Asp不區(qū)分大小寫;變量無需定義也可使用,轉(zhuǎn)換方便;語(yǔ)法檢查很松。 二、Asp內(nèi)置對(duì)象的使用: 可以使用下面的任何ASP內(nèi)置對(duì)象,而不必在ASP腳本中特別聲明。 1. Request: 定義:可用來訪問從瀏覽器發(fā)送到服務(wù)器的請(qǐng)求信息,可用此對(duì)象讀取已輸入HTML表單的信息。 集: Cookies:含有瀏覽器cookies的值 Form:含有HTML表單域中的值 QueryString:含有查詢字符串的值 ServerVariables:含有頭和環(huán)境變量中的值 例子: request_url.asp <% ‘獲取用戶輸入,并存入變量 user_id=request.querystring("user_id") user_name=request.querystring("user_name") ‘判斷用戶輸入是否正確 if user_id="" then response.write "User_id is null,please check it" response.end end if if user_name="" then response.write "User_name is null,please check it" response.end end if ‘打印變量 response.write user_id&"<br>" response.write user_name %> 效果: 當(dāng)訪問http://10.1.43.238/course/request_url.asp?user_name=j時(shí): User_id is null,please check it 當(dāng)訪問http://10.1.43.238/course/request_url.asp?user_name=j&user_id=my_id時(shí): my_id j 思考:變量是如何在URL中傳遞和被Asp頁(yè)面獲取的? request_form.htm <style type="text/css"> <!-- .input {background-color: #FFFFFF; border-bottom: black 1px solid;border-left: black 1px solid; border-right: black 1px solid;border-top: black 1px solid; color: #000000;font-family: Georgia; font-size: 9pt;color: midnightblue;} a:link {color: #1B629C; text-decoration: none} a:hover {color: #FF6600; text-decoration: underline} a:visited {text-decoration: none} --> </style> <center> <form name="course" action="request_form.asp" method="post"> User_id:<input type="text" name="user_id" maxlength="20" class="input"><br><br> User_name:<input type="text" name="user_name" maxlength="30" class="input"> </form> <br><br> <a href="javascript:document.course.submit();"> 提 交 </a> </center> request_form.asp <% ‘獲取用戶輸入,并存入變量 user_id=request.form("user_id") user_name=request.form("user_name") ‘判斷用戶輸入是否正確 if user_id="" then response.write "User_id is null,please check it" response.end end if if user_name="" then response.write "User_name is null,please check it" response.end end if ‘打印變量 response.write user_id&"<br>" response.write user_name %> 注意:form的action的指向,request_form.asp和request_url.asp在源代碼上的區(qū)別? 2. Response: 定義:用來向?yàn)g覽器回發(fā)信息,可用此對(duì)象從腳本向?yàn)g覽器發(fā)送輸出。 集: Cookies:在瀏覽器中加入一個(gè)cookie 方法: End:結(jié)束腳本的處理 Redirect:將瀏覽器引導(dǎo)至新頁(yè)面 Write:向?yàn)g覽器發(fā)送一個(gè)字符串 屬性: Buffer:緩存一個(gè)ASP CacheControl:由代理服務(wù)器控制緩存 ContentType: 規(guī)定響應(yīng)的內(nèi)容類型 Expires:瀏覽器用相對(duì)時(shí)間控制緩存 ExpiresAbsolute:瀏覽器用絕對(duì)時(shí)間控制緩存 例子: response_redirect.asp <% ‘去google看看吧 response.redirect "http://www2.google.com" response.end %> response_cookies.asp <% ‘設(shè)置和讀取cookies response.cookies("time_now")=now() response.write request.cookies("time_now") %> 效果: 當(dāng)訪問http://10.1.43.238/course/response_cookies.asp時(shí): 2002-9-1 16:20:40 response_buffer.asp <%‘response.buffer=true%> <a href="a">a</a> <%response.redirect "request_form.htm"%> 效果: ①.當(dāng)關(guān)閉IIS的緩沖功能,訪問該頁(yè)面時(shí)出錯(cuò) a 答復(fù)對(duì)象 錯(cuò)誤 ‘ASP 0156 : 80004005‘ 頭錯(cuò) /course/response_buffer.asp,行3 HTTP 頭已經(jīng)寫入到 客戶瀏覽器。任何 HTTP 頭的修改必須在寫入頁(yè)內(nèi)容之前。 ②.當(dāng)關(guān)閉IIS的緩沖功能,去掉文件第一行的注釋,則頁(yè)面重定向成功 ③.當(dāng)打開IIS的緩沖功能,無論是否去掉文件第一行的注釋,頁(yè)面重定向都成功 3. Server 定義:可在服務(wù)器上使用不同實(shí)體函數(shù),如在時(shí)間到達(dá)前控制腳本執(zhí)行的時(shí)間。還可用來創(chuàng)建其他對(duì)象。 方法: CreateObject:創(chuàng)建一個(gè)對(duì)象實(shí)例 HTMLEncode:將字符串轉(zhuǎn)化為使用特別的HTML字符 MapPath:把虛擬路徑轉(zhuǎn)化成物理路徑 URLEncode:把字符串轉(zhuǎn)化成URL編碼的 ScriptTimeout:在終止前,一個(gè)腳本允許運(yùn)行的秒數(shù) 例子: server_htmlencode.asp <% ‘html encode response.write server.htmlencode("a""time_now") %> 效果: a"time_now 查看源文件時(shí)顯示為:a"time_now 思考:為什么不是a""time_now這種效果?源文件是怎么了? server_mappath.asp <% ‘mappath response.write server.mappath("server_mappath.asp") %> 效果: G:\asp_www\test\course\server_mappath.asp 思考:如何獲取站點(diǎn)根目錄的實(shí)際路徑?如何獲取某個(gè)目錄的實(shí)際路徑? server_urlencode.asp <% ‘url encode response.write server.urlencode("a\time_now") %> 效果: a%5Ctime%5Fnow 4. Application 定義:用來存儲(chǔ)、讀取用戶共享的應(yīng)用程序信息,如可以用此對(duì)象在網(wǎng)站的用戶間傳送信息,當(dāng)服務(wù)器重啟后信息丟失。 方法: Lock:防止其它用戶訪問Application集 Unlock:使其它用戶可以訪問Application集 事件: OnEnd:由終止網(wǎng)絡(luò)服務(wù)器、改變Global.asa文件觸發(fā) OnStart:由應(yīng)用程序中對(duì)網(wǎng)頁(yè)的第一次申請(qǐng)觸發(fā) 例子: application_counter.asp <% ‘一個(gè)使用Application制作的簡(jiǎn)單計(jì)數(shù)器 Application.lock Application("clicks")=Application("clicks")+1 Application.unlock response.write "您是本站第 "&Application("clicks")&" 位訪客!" response.write "<br><br>您來自 "&request.servervariables("remote_addr") %> 效果: 您是本站第 1 位訪客! 您來自 10.1.43.238 思考:本例中l(wèi)ock和unlock有何作用? 5. Session 定義:存儲(chǔ)、讀取特定用戶對(duì)話信息,如可存儲(chǔ)用戶對(duì)網(wǎng)站的訪問信息,當(dāng)服務(wù)器重啟后信息丟失。 方法: Abandon:處理完當(dāng)前頁(yè)面后,結(jié)束一個(gè)用戶會(huì)話 屬性: Timeout:用戶會(huì)話持續(xù)時(shí)間(分鐘數(shù)) 事件: OnEnd:在Session Timeout時(shí)間以外,用戶不再申請(qǐng)頁(yè)面觸發(fā)該事件 OnStart:由用戶對(duì)網(wǎng)頁(yè)的第一次申請(qǐng)時(shí)觸發(fā) 例子: session_counter.asp <% ‘一個(gè)使用Session制作的簡(jiǎn)單計(jì)數(shù)器 session("clicks")=session("clicks")+1 response.write "您是本站第 "&session("clicks")&" 位訪客!" response.write "<br><br>您來自 "&request.servervariables("remote_addr") %> 效果: 您是本站第 1 位訪客! 您來自 10.1.43.238 思考:既然session和application都能做到計(jì)數(shù),那它們之間有什么區(qū)別?如果要做到滿100重新開始計(jì)數(shù)如何實(shí)現(xiàn)? 三、使用Asp操作數(shù)據(jù)庫(kù): 1.通過ODBC或者OLE方式連接的區(qū)別? 現(xiàn)在有兩種連接數(shù)據(jù)庫(kù)的方法。一方面,可以用ODBC產(chǎn)生一個(gè)連接,這種連接與任何有ODBC驅(qū)動(dòng)器的數(shù)據(jù)庫(kù)(即基本上是市場(chǎng)上所有的數(shù)據(jù)庫(kù))兼容;另一方面,可以用原始OLE DB提供商產(chǎn)生一個(gè)連接。 該用哪個(gè)提供商?盡可能用原始OLE DB提供商,因?yàn)樗峁┝藢?duì)數(shù)據(jù)更有效的訪問。Microsoft正逐步用OLE DB取代ODBC標(biāo)準(zhǔn),應(yīng)該僅僅在沒有原始OLE DB提供商時(shí)使用ODBC。 ⑴.用ODBC方式連接SQL Server: ①.配置ODBC ②.連接代碼: conn_odbc.asp <% Set Conn = Server.CreateObject("ADODB.Connection") ‘Conn.Open "DSN=course_dsn;UID=course_user;PWD=course_password;DATABASE=course" Conn.Open "course_dsn","course_user","course_password" %> 注意:在配置MyDSN時(shí)若指定默認(rèn)數(shù)據(jù)庫(kù)為course則上述代碼作用想同,否則第二行的連接方式更有靈活性,可以指定連接某個(gè)數(shù)據(jù)庫(kù)(當(dāng)然,前提是course_user對(duì)這個(gè)數(shù)據(jù)庫(kù)有操作權(quán)限)。 ⑵.用OLE方式連接SQL Server: conn_ole.asp <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=10.1.43.238,2433; UID=course_user;PWD=course_password;DATABASE=course" %> 2.操作數(shù)據(jù)庫(kù):Connection和Recordset 聯(lián)合使用connection和recordset操作數(shù)據(jù)庫(kù),或者只使用connection操作數(shù)據(jù)庫(kù)。 例子: ⑴.聯(lián)合使用connection和recordset操作數(shù)據(jù)庫(kù) use_db_1.asp <% Set conn=Server.CreateObject("ADODB.Connection") ‘創(chuàng)建連接數(shù)據(jù)庫(kù)的對(duì)象 conn.Open "course_dsn","course_user","course_password" ‘使用該對(duì)象連接數(shù)據(jù)庫(kù) Set rs=Server.CreateObject("ADODB.RecordSet") ‘創(chuàng)建記錄集對(duì)象 rs.Open "select * from user_info",conn,1,1 ‘使用記錄集對(duì)象打開數(shù)據(jù)庫(kù) if rs.recordcount>0 then ‘如果有記錄 response.write "User_id User_name<br>" for i=1 to rs.recordcount ‘循環(huán)讀取所有紀(jì)錄 response.write rs("id")&" "&rs("user_name")&"<br>" ‘向?yàn)g覽器輸出紀(jì)錄的字段 rs.movenext ‘指針下移一行 if rs.eof then exit for ‘如果到達(dá)記錄集底部則退出循環(huán) next end if %> 效果: User_id User_name 1 ahyi 3 test ⑵.只使用connection操作數(shù)據(jù)庫(kù): use_db_2.asp <% Set conn=Server.CreateObject("ADODB.Connection") ‘創(chuàng)建連接數(shù)據(jù)庫(kù)的對(duì)象 conn.Open "course_dsn","course_user","course_password" ‘使用該對(duì)象連接數(shù)據(jù)庫(kù) conn.execute "delete from user_info" %> 效果: user_info表中所有數(shù)據(jù)被刪除 思考:兩種方式有和區(qū)別?各應(yīng)用于什么場(chǎng)合? 3.如何使用事務(wù)處理、存儲(chǔ)過程和視圖? ⑴.使用存儲(chǔ)過程 ①.定義好存儲(chǔ)過程 CREATE PROCEDURE [output_1] @sid int output AS set @sid=2 CREATE PROCEDURE [return_1] (@user_name varchar(40),@password varchar(20)) AS if exists(select id from user_info where user_name=@user_name and password=@password) return 1 else return 0 CREATE PROCEDURE [user_info_1] (@user_name varchar(40),@password varchar(20)) AS select id from user_info where user_name=@user_name and password=@password CREATE PROCEDURE [user_info_2] (@user_name varchar(40),@password varchar(20)) AS SET XACT_ABORT ON BEGIN TRANSACTION delete from user_info where user_name=@user_name and password=@password COMMIT TRANSACTION SET XACT_ABORT OFF CREATE PROCEDURE [user_info_3] AS select * from user_info ②.在Asp中調(diào)用 use_proc.asp <!-- #include virtual="/adovbs.inc" --> <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open "course_dsn","course_user","course_password" ‘使用recordset調(diào)用帶兩個(gè)輸入?yún)?shù)和返回紀(jì)錄集的存儲(chǔ)過程 ‘CREATE PROCEDURE [user_info_1] ‘(@user_name varchar(40),@password varchar(20)) ‘AS ‘select id from user_info where user_name=@user_name and password=@password response.write "普通的調(diào)用方法:<br>" set rs=server.createobject("adodb.recordset") sql="user_info_1 ‘"&request.querystring("user_name")&"‘,‘"&request.querystring("password")&"‘" rs.open sql,conn,1,1 response.write rs("id")&"<br>" rs.close ‘使用recordset調(diào)用無輸入?yún)?shù),返回紀(jì)錄集的存儲(chǔ)過程,可以使用recordcount等屬性 ‘CREATE PROCEDURE [user_info_3] AS ‘select * from user_info response.write "<br>返回紀(jì)錄集,可以使用recordcount等屬性:" sql="exec user_info_3" rs.open sql,conn,1,1 for i=1 to rs.recordcount response.write "<br>"&rs("user_name") rs.movenext next rs.close set rs=nothing ‘使用command調(diào)用帶輸出參數(shù)的存儲(chǔ)過程 ‘CREATE PROCEDURE [output_1] ‘@sid int output ‘AS ‘set @sid=2 response.write "<br><br>調(diào)用帶輸出參數(shù)的存儲(chǔ)過程:<br>" set cmd=server.createobject("adodb.command") cmd.activeconnection=conn cmd.commandtext = "output_1" cmd.parameters.append cmd.createparameter("@sid",adinteger,adparamoutput) cmd("@sid")=10 cmd.execute() bbb=cmd("@sid") response.write bbb&"<br>" set cmd=nothing ‘使用command調(diào)用帶兩個(gè)輸入?yún)?shù)和返回值的存儲(chǔ)過程 ‘CREATE PROCEDURE [return_1] ‘(@user_name varchar(40)) ‘AS ‘if exists(select id from user_info where user_name=@user_name) ‘return 1 ‘else ‘return 0 response.write "<br>調(diào)用帶兩個(gè)輸入?yún)?shù)和返回值的存儲(chǔ)過程:<br>" set cmd=server.createobject("adodb.command") cmd.activeconnection=conn cmd.commandtype = adcmdstoredproc cmd.commandtext = "return_1" cmd.parameters.append cmd.createparameter("@return_value",adinteger,adparamreturnvalue) cmd.parameters.append cmd.createparameter("@user_name",advarchar,adparaminput,40) cmd.parameters.append cmd.createparameter("@password",advarchar,adparaminput,20) cmd("@user_name")="tuth" cmd("@password")="yyuyu" cmd.execute() rrr=cmd("@return_value") response.write rrr set cmd=nothing conn.close set conn=nothing %> 效果: 訪問http://10.1.43.238/course/use_proc.asp?user_name=ahyi&password=ttt時(shí),出現(xiàn)如下 普通的調(diào)用方法: 12 返回紀(jì)錄集,可以使用recordcount等屬性: ahyi tet tuth 調(diào)用帶輸出參數(shù)的存儲(chǔ)過程: 2 調(diào)用帶兩個(gè)輸入?yún)?shù)和返回值的存儲(chǔ)過程: 1 注意:若存儲(chǔ)過程無參數(shù),則調(diào)用的sql語(yǔ)句直接為存儲(chǔ)過程名,一個(gè)參數(shù)為“存儲(chǔ)過程名 參數(shù)”,若是多個(gè)參數(shù),則“存儲(chǔ)過程名 參數(shù)1,參數(shù)2,……,參數(shù)n”;如果在sql語(yǔ)句中加入exec,則在返回的記錄集中可以使用recordcount等屬性;如果想獲得存儲(chǔ)過程的返回值或輸出參數(shù),可以使用command對(duì)象。 ⑵.使用事務(wù)處理 ①.Asp內(nèi)嵌的事務(wù)支持 例子: use_transaction_1.asp <% ‘Asp中使用事務(wù) Set conn=Server.CreateObject("ADODB.Connection") conn.Open "course_dsn","course_user","course_password" conn.begintrans ‘開始事務(wù) sql="delete from user_info" set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,3 if conn.errors.count>0 then ‘有錯(cuò)誤發(fā)生 conn.rollbacktrans ‘回滾 set rs=nothing conn.close set conn=nothing response.write "交易失敗,回滾至修改前的狀態(tài)!" response.end else conn.committrans ‘提交事務(wù) set rs=nothing conn.close set conn=nothing response.write "交易成功!" response.end end if %> ②.?dāng)?shù)據(jù)庫(kù)級(jí)的事務(wù) i.創(chuàng)建存儲(chǔ)過程 CREATE PROCEDURE [user_info_2] (@user_name varchar(40),@password varchar(20)) AS SET XACT_ABORT ON BEGIN TRANSACTION delete from user_info where user_name=@user_name and password=@password COMMIT TRANSACTION SET XACT_ABORT OFF ii.在Asp中調(diào)用 use_transaction_2.asp <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open "course_dsn","course_user","course_password" sql="user_info_2 ‘"&request.querystring("user_name")&"‘,‘"&request.querystring("password")&"‘" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 set rs=nothing conn.close set conn=nothing %> 討論:兩種方式的優(yōu)劣? ⑶.使用視圖 在數(shù)據(jù)庫(kù)中定義好視圖之后,在Asp中如同使用一個(gè)表一樣來使用視圖 4.一個(gè)數(shù)據(jù)庫(kù)分頁(yè)的例子 db_page.asp <% on error resume next Set conn=Server.CreateObject("ADODB.Connection") ‘創(chuàng)建連接數(shù)據(jù)庫(kù)的對(duì)象 conn.Open "course_dsn","course_user","course_password" ‘使用該對(duì)象連接數(shù)據(jù)庫(kù) set rs=server.createObject("adodb.recordset") sql="select * from user_info order by id desc" rs.open sql,conn,1,1 if rs.recordcount>0 then ‘如果有記錄 rs.pagesize=2 ‘每頁(yè)最多顯示2條紀(jì)錄 ‘從URL獲取當(dāng)前要顯示的頁(yè) page=cint(request("page")) ‘頁(yè)面參數(shù)異常處理 if page="" then page=1 if page<1 then page=1 if page>= rs.pagecount then page=rs.pagecount rs.absolutepage=page ‘當(dāng)前頁(yè)為page參數(shù)指定的頁(yè) for i=1 to rs.pagesize ‘根據(jù)pagesize參數(shù)的大小循環(huán)顯示當(dāng)前頁(yè)中的紀(jì)錄 response.write "User_id:"&rs("id")&"<br>" response.write "User_name:"&rs("user_name")&"<br><br>" rs.movenext ‘紀(jì)錄指針下移 if rs.eof then exit for ‘如果到達(dá)紀(jì)錄集底部則退出循環(huán) next end if ‘顯示翻頁(yè)按鈕 if page>1 then response.write "<a href="&request.servervariables("document_name")&"?page=1>第一頁(yè)</a> " response.write "<a href="&request.servervariables("document_name")&"?page="&(page-1)&">上一頁(yè)</a> " end if if page<>rs.pagecount then response.write "<a href="&request.servervariables("document_name")&"?page="&(page+1)&">下一頁(yè)</a> " response.write "<a href="&request.servervariables("document_name")&"?page="&rs.pagecount&">最后一頁(yè)</a> " end if response.write"頁(yè)碼:"&page&"/"&rs.pagecount ‘關(guān)閉對(duì)象,釋放內(nèi)存 rs.close set rs=nothing conn.close set conn=nothing %> |
聯(lián)系客服