<%
Dim ListQihaoArr
ListQihaoArr= ListLast(MinQihao,MaxQihao,1)
For I = 0 To Ubound(ListQihaoArr) -1
Response.Write "" & ListQihaoArr(I) & " | "
Next
Erase ListQihaoArr
%>
|
<%
dim FirstNumArr
FirstNumArr = ListLast(MinQihao,MaxQihao,3)
For I = 0 To Ubound(FirstNumArr) -1
Response.Write ""
For J = 1 To 33
If InStr(FirstNumArr(I),FormatNum(J)) > 0 Then
if j<=11 then
Response.Write "" & FormatNum(J) & " | "
else
if j>=11 and j <=22 then
Response.Write "" & FormatNum(J) & " | "
else
Response.Write "" & FormatNum(J) & " | "
end if
end if
Else
if j<=11 then
Response.Write " | "
else
if j>=12 and j <=22 then
Response.Write " | "
else
Response.Write " | "
end if
end if
End If
Next
Response.Write " "
Next
%>
|
<%
Dim SecondNumArr,SundayNumArr
SecondNumArr = ListLast(MinQihao,MaxQihao,4)
SundayNumArr = ListLast(MinQihao,MaxQihao,6)
For I = 0 To Ubound(SecondNumArr) -1
Response.Write ""
For J = 1 To 16
If SecondNumArr(I) = FormatNum(J) Then
if J<=8 then
Response.Write "" & FormatNum(J) & " | "
else
Response.Write "" & FormatNum(J) & " | "
end if
Else
if SundayNumArr(I)=FormatNum(J) then
if J<=8 then
Response.Write "" & FormatNum(J) & " | "
else
Response.Write "" & FormatNum(J) & " | "
end if
else
if J<=8 then
Response.Write " | "
else
Response.Write " | "
end if
end if
End If
Next
Response.Write " "
Next
%>
|