我想问代码的意思？

来源：百度知道 编辑：UC知道 时间：2024/05/22 10:53:04
我是个ASP的菜鸟，想知道以下代码是什么意思？
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next

'首先，下面的是定义了很多变量；
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

'变量定义结束

'变量赋初值
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
'赋初值结束

' if the page has a repeated region, remove 'offset' from the maintained parameters

If (MM_size > 1) Then '判断变量MM_size的值是否大于1
MM_moveParam = "offset" '如果MM_size大于1，MM_moveParam = "offset"
If (MM_keepMove <> "") Then '再接着判断MM_keepMove是否不为空
MM_paramList = Split(MM_keepMove, "&") '如果不为空，则将MM_keepMove的值按字符串"&"分割并转换成数组，然后赋值给数组MM_paramList
MM_keepMove = "" '字符串变量MM_keepMove清空
For MM_paramIndex = 0 To UBound(MM_paramList) '循环：循环初值是0，终值是数组MM_paramList内元素的个素，