Asp代碼:
& lt%
輸入str:要計數的字符串，d是要計數的子字符串的前導字符串。
返回由兩個數字組成的字符串數組，其中r（0）是由“|”除的非重復字符串，例如“A0 | A1 | A2”，r（1）是分別代表五次A0的“5|1|3”的對應數字。
註意:輸入str必須以輸入d開頭。
函數countStr（byval str，byval d）
if instr（str，d）& lt；& gt1然後退出功能
str = str & ampd
Dim strA，I，r（2）
strA = Split（str，d）
對於i = 1至下界（strA）-1
if instr（r（0）& amp；“|”，“|”& amp；d & ampstrA（I）和amp“|”= 0那麽
r（0）= r（0）& amp；“|“& amp；d & amp斯特拉（壹）
r（1）= r（1）& amp；“|“& amp；counts Trx（str，d & ampstrA（I）和ampd)
如果…就會結束
然後
r（0）= mid（r（0），2）
r（1）= mid（r（1，2）
countStr=r
結束功能
統計子字符串在父字符串中出現的次數。
函數counts Trx（ByRef str，byref substr）
dim p:p=0:countStrx=-1
做
countStrx=countStrx+1
p = instr（p+1，str，substr）
循環while p & gt0
結束功能
對事件進行排序。獲取已排序索引的數組。
函數getStort（byval a）
dim i，j，t，b（）
雷迪姆b（下（a））
對於i = 0到下界（a）:b（I）= I:下壹個
對於i = 0到下界（a）
對於j = ubound（a）至i+1步長-1
如果a（I）& lt；a（j）則t = a（I）:a（I）= a（j）:a（j）= t:t = b（I）:b（I）= b（j）:b（j）= t
然後
然後
getstort=b
結束功能
尺寸T、A、B、C、I、SI
t = countStr（“A 123456 aaaabacaaaba 123456 A 1 a3 A8 A 9 A 3 A 4 A 4 A 5 A 3 A 9 A 6 A 1 A 7 A 2 A 7 A 9 A 7 A 8 A 6 A 9 A 6 A 0 A 0 A 0 A 5 A 0 A 0 A 0 A 0“）
a = split（T（0），“|”）
b = split（T（1）“|”）
c = getStort（B）
對於i=0至下界（C）
SI = SI & ampI+1 & amp；"."& ampa（c（I））和amp“，“& ampb（c（I））和amp“& ltbr>& ampVBcrlf
然後
響應。寫入si
% & gt
如果回答的內容有問題，或者認為不合適，請給我發壹條百度消息，用消息的內容加上這個頁面的URL。。