【導讀】可以混用ASP用HTML,DHTML,ActiveX,VBScript,JavaScript,并且可以相。ASP是純文本格式，不需編譯就可以直接在服務器上運行.ASP是一種在WEB服務器端運行的腳本語言，源代碼不會傳到?？蛻舻臑g覽器上，可保護源程序不外漏。ASP正是通過其自身包含的對象來實現(xiàn)服務器與客戶端交互的。利用ASP提供的一組ActiveX服務器組件(ActiveX. ServerComponents)可繼續(xù)擴充ASP的功能。如用ASP內置ADO組件可以輕松的。存取各種數(shù)據(jù)庫。此外，還可以用VB,Java等語言開發(fā)自己的組件以進一步擴充。ASP可以將運行結果一HTML的格式傳送到客戶端瀏覽器，因。服務器從內存或硬盤中讀取相應的ASP文件。擔心用戶的瀏覽器是否支持所編寫的ASP程序，并且ASP適用于任何瀏覽器。此外Web服務器并不是在接到每一個ASP頁面請求后都會重新編譯，如果某。下表就列舉了一些ASP的運行環(huán)境。OFFICE97中，成為OFFICE套件中的一個重要成員。據(jù)庫需求分析、概念設計、邏輯設計、物理設計與加載測試。的邊界，繪制出DFD圖，并完成相應的數(shù)據(jù)字典。各個實體與關系的綱要表。

　　

【正文】 _numRows = 0 % % Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows % % 39。 *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rs_total Dim rs_first Dim rs_last 39。 set the record count rs_total = 39。 set the number of rows displayed on this page If (rs_numRows 0) Then rs_numRows = rs_total Elseif (rs_numRows = 0) Then rs_numRows = 1 End If 39。 set the first and last displayed record rs_first = 1 rs_last = rs_first + rs_numRows 1 39。 if we have the correct record count, check the other stats If (rs_total 1) Then If (rs_first rs_total) Then rs_first = rs_total End If If (rs_last rs_total) Then rs_last = rs_total End If If (rs_numRows rs_total) Then rs_numRows = rs_total End If End If % % 39。 *** Recordset Stats: if we don39。t know the record count, manually count them If (rs_total = 1) Then 39。 count the total records by iterating through the recordset rs_total=0 While (Not ) rs_total = rs_total + 1 Wend 39。 reset the cursor to the beginning If ( 0) Then Else End If 39。 set the number of rows displayed on this page If (rs_numRows 0 Or rs_numRows rs_total) Then rs_numRows = rs_total End If 39。 set the first and last displayed record rs_first = 1 rs_last = rs_first + rs_numRows 1 If (rs_first rs_total) Then rs_first = rs_total End If If (rs_last rs_total) Then rs_last = rs_total End If End If % % Dim MM_paramName % % 39。 *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = rs MM_rsCount = rs_total MM_size = rs_numRows MM_uniqueCol = MM_paramName = MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName ) Then MM_paramIsDefined = ((MM_paramName) ) End If % % 39。 *** Move To Record: handle 39。index39。 or 39。offset39。 parameter if (Not MM_paramIsDefined And MM_rsCount 0) then 39。 use index parameter if defined, otherwise use offset parameter MM_param = (index) If (MM_param = ) Then MM_param = (offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End If 39。 if we have a record count, check if we are past the end of the recordset If (MM_rsCount 1) Then If (MM_offset = MM_rsCount Or MM_offset = 1) Then 39。 past end or move last If ((MM_rsCount Mod MM_size) 0) Then 39。 last page not a full repeat region MM_offset = MM_rsCount (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount MM_size End If End If End If 39。 move the cursor to the selected record MM_index = 0 While ((Not ) And (MM_index MM_offset Or MM_offset = 1)) MM_index = MM_index + 1 Wend If () Then MM_offset = MM_index 39。 set MM_offset to the last possible record End If End If % % 39。 *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = 1) Then 39。 walk to the end of the display range for this page MM_index = MM_offset While (Not And (MM_size 0 Or MM_index MM_offset + MM_size)) MM_index = MM_index + 1 Wend 39。 if we walked off the end of the recordset, set MM_rsCount and MM_size If () Then MM_rsCount = MM_index If (MM_size 0 Or MM_size MM_rsCount) Then MM_size = MM_rsCount End If End If 39。 if we walked off the end, set the offset based on page size If ( And Not MM_paramIsDefined) Then If (MM_offset MM_rsCount MM_size Or MM_offset = 1) Then If ((MM_rsCount Mod MM_size) 0) Then MM_offset = MM_rsCount (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount MM_size End If End If End If 39。 reset the cursor to the beginning If ( 0) Then Else End If 39。 move the cursor to the selected record MM_index = 0 While (Not And MM_index MM_offset) MM_index = MM_index + 1 Wend End If % % 39。 *** Move To Record: update recordset stats 39。 set the first and last displayed record rs_first = MM_offset + 1 rs_last = MM_offset + MM_size If (MM_rsCount 1) Then If (rs_first MM_rsCount) Then rs_first = MM_rsCount End If If (rs_last MM_rsCount) Then rs_last = MM_rsCount End If End If 39。 set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount 1 And MM_offset + MM_size = MM_rsCount) % % 39。 *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem 39。 create the list of parameters which should not be maintained MM_removeList = amp。index= If (MM_paramName ) Then MM_removeList = MM_removeList amp。 amp。 amp。 MM_paramName amp。 = End If MM_keepURL= MM_keepForm= MM_keepBoth= MM_keepNone= 39。 add the URL parameters to the MM_keepURL string For Each MM_item In MM_nextItem = amp。 amp。 MM_item amp。 =