推薦：用ASP實(shí)現(xiàn)在線文章翻譯的功能
有時候想為我們的網(wǎng)頁提供多語言支持，如果一種語言用一張網(wǎng)頁來做實(shí)在太麻煩了，幸好Google提供了語言工具功能，下面介紹如何利用它來實(shí)現(xiàn)網(wǎng)頁多種語言之間的轉(zhuǎn)換。 lan.htm

問題:用asp如何實(shí)現(xiàn)去掉三個最高分和三個最低分？

解決思路：

1、將整個數(shù)組排序，刪除兩端的三個最大值和三個最小值（另一網(wǎng)友提出的�。�

2、挑選出其中三個最大的數(shù)和三個最小的數(shù)，將其刪除�。ㄎ业乃悸罚。�

我覺得我的方法應(yīng)該可行一些，因為要刪除的數(shù)只有三個最大，三個最小，沒有必要把所有的數(shù)都進(jìn)行排序，特別是當(dāng)數(shù)據(jù)很多時，將會浪費(fèi)很多的資源！我寫的序如下：

以下為引用的內(nèi)容： <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim Arr Arr=array(91,39,46,24,14,56,31,32,56,89) call DeleteMax(UBound(Arr),3)’刪除三個最大的數(shù)！ call GetBack()’每個數(shù)稱以-1，將最小的數(shù)變成最大的數(shù)！ call DeleteMax(UBound(Arr),3)’刪除稱以-1以后三個最大的數(shù)！ call GetBack()’還原每一個數(shù) for kk= 0 to UBound(Arr)’輸出每一個數(shù) 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)’交換兩個數(shù) 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)

功能：刪除若干個最大的數(shù)，Arr_total：數(shù)組的最大可用下標(biāo)，willdelete：將要刪除的最大數(shù)的個數(shù)。

2、swap(num_a,num_b)

功能：交換兩個數(shù)

3、GetBack()

功能：將數(shù)組的每個元素乘以-1,將最小的數(shù)變成最大的數(shù)！

心得：

試驗出了怎么刪除一個數(shù)組元素！

巧妙應(yīng)用redim和Preserve語句，如：

以下為引用的內(nèi)容： 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基礎(chǔ)教程：其它的ASP常用組件
當(dāng)你用 ASP 編寫服務(wù)器端應(yīng)用程序時，必須依靠 ActiveX 組件來強(qiáng)大 Web 應(yīng)用程序的功能，譬如：你需要連接數(shù)據(jù)庫，對數(shù)據(jù)庫進(jìn)行在線操作等等。 一、 Browser Capabilities 組件眾所周知，并不