推薦：用ASP實現在線文章翻譯的功能有時候想為我們的網頁提供多語言支持，如果一種語言用一張網頁來做實在太麻煩了，幸好Google提供了語言工具功能，下面介紹如何利用它來實現網頁多種語言之間的轉換。 lan.htm
問題:用asp如何實現去掉三個最高分和三個最低分？
解決思路：
1、將整個數組排序，刪除兩端的三個最大值和三個最小值（另一網友提出的！）
2、挑選出其中三個最大的數和三個最小的數，將其刪除！ （我的思路！）
我覺得我的方法應該可行一些，因為要刪除的數只有三個最大，三個最小，沒有必要把所有的數都進行排序，特別是當數據很多時，將會浪費很多的資源！我寫的序如下：
| 以下為引用的內容： <%@LANGUAGE=VBSCRIPT CODEPAGE=936%> <% dim Arr Arr=array(91,39,46,24,14,56,31,32,56,89) call DeleteMax(UBound(Arr),3) '刪除三個最大的數！ call GetBack() '每個數稱以-1，將最小的數變成最大的數！ call DeleteMax(UBound(Arr),3) '刪除稱以-1以後三個最大的數！ call GetBack() '還原每一個數 for kk= 0 to UBound(Arr) '輸出每一個數 Response.Write(Arr(kk)) Response.Write(<br>) next sub DeleteMax(Arr_total,willdelete) for m= 1 to willdelete for i= 0 to Arr_total-m if Arr(i)>Arr(i 1) then call swap(Arr(i),Arr(i 1)) end if next ReDim Preserve Arr(Arr_total-m) next end sub sub swap(num_a,num_b) '交換兩個數 x=num_a num_a=num_b num_b=x end sub sub GetBack() for L=0 to UBound(Arr) Arr(L)=Arr(L)*-1 next end sub %> |
其中有三個子程序：
1、DeleteMax(Arr_total,willdelete)
功能：刪除若干個最大的數，Arr_total：數組的最大可用下標，willdelete：將要刪除的最大數的個數。
2、swap(num_a,num_b)
功能：交換兩個數
3、GetBack()
功能：將數組的每個元素乘以-1,將最小的數變成最大的數！
心得：
試驗出了怎麼刪除一個數組元素！
巧妙應用redim和Preserve語句，如：
| 以下為引用的內容： dim A() redim A(10) '想刪除第六個元素A(5) for n= 5 to ubound(A)-1 A(n)=A(n 1) next redim Preserve A(ubound(A)-1) |
以上的代碼，就能夠完成了，不信你試試...
分享：ASP基礎教程：其它的ASP常用組件當你用ASP 編寫服務器端應用程序時，必須依靠ActiveX 組件來強大Web 應用程序的功能，譬如：你需要連接數據庫，對數據庫進行在線操作等等。一、 Browser Capabilities 組件眾所周知，並不