asp中让每个页面数据按照01 02 03 ......99这样的数字编号排序；而不是1 2 3 ......99。第一条数据就显示01 而不是1
这段代码需要怎么修改呢？
在线等....................
Public Function Data_Mark(Byval Mark_Text,Byval ClassID)
Dim RegEx,Match,Matches,TableName,Match1,RegEx1,MContent
Dim Tmp_Matches,DArray,Rs
IF IsNul(Mark_Text) Then:Echo "处理数据标签出错!":Exit Function:End IF
ClassIDs=ClassID
Set RegEx=TAG(Mark_Text,"{cmsdj:([\S]+)\s+([\s\S]+?)}([\s\S]+?){/cmsdj:\1}")
For Each Match In RegEx
TableName=LCase(Trim(LCase("cmsdj_"&Match.SubMatches(0))))
Mark=Match.SubMatches(0)
Set RegEx1=TAG(Match.SubMatches(1),"([a-z0-9]+)=([a-z0-9|,]+)")
Call Param(RegEx1)
IF Mark="type" Then
TableName="CmsDj_Class"
End IF
DB.Table=TableName
IF ReadGo=0 And Mark<>"playlist" Then
Set Rs=DB.GetRs("",Loops,SqlWhere):Tmp_Matches=""
IF Not Rs.Eof Then
IF Start<>1 Then
IF Rs.RecordCount>=Cint(Start) Then
Rs.Move Start-1
End IF
End IF
I=0
Do While Not Rs.Eof
I=I+1
Tmp_Matches=Tmp_Matches&ParamTwo(Match.SubMatches(2),Mark,Rs,I)
Rs.MoveNext
Loop
Rs.Close
End IF
IF IsNul(Tmp_Matches) Then Tmp_Matches="<font style='font-size:13px'><div align='center'>没有相关记录！</div></font>"
Mark_Text=ReplaceStr(Mark_Text,Match.Value,Tmp_Matches)
End IF
Next
Data_Mark=Mark_Text
End Function