<%Option Explicit%>
<%
'载入缓存
Dim i
Dim cStr,cArr,wdList,uNumber
cStr = Application("qstr")
If cStr = "" Then
cStr = wdStr
Application.Lock()
Application("qstr") = cStr
Application.UnLock()
End If
cArr = Split(cStr,"$")
uNumber = UBound(cArr)
If uNumber > 23 Then
uNumber = 23
End If
uNumber = CInt((uNumber+1)/4) * 4 - 1
For i = 0 to uNumber
wdList = "
