<% SetCounter("ssqzst") %> <% Dim I,J,MaxQihao,MinQihao MinQihao = Request.Form("select") MaxQihao = Request.Form("select2") If MinQihao = "" Then MinQihao = CLng(ReturnMaxQi()) - 30 End If If MaxQihao = "" Then MaxQihao = CLng(ReturnMaxQi()) End If %>

【双色球竖三连号图】双色球走势图带连线

期到 期 
<% Dim ListQihaoArr,FirstNumArr,NumArr ListQihaoArr= ListLast(MinQihao,MaxQihao,1) FirstNumArr = ListLast(MinQihao,MaxQihao,3) NumArr=SsanL(FirstNumArr) For I = 0 To Ubound(ListQihaoArr) -1 Response.Write "" Response.Write "" For J = 1 To 33 If InStr(FirstNumArr(I),FormatNum(J)) > 0 Then If InStr(NumArr(I),FormatNum(J)) > 0 Then Response.Write "" else Response.Write "" end if Else Response.Write "" End If Next Response.Write "" Next Erase ListQihaoArr Erase FirstNumArr Erase NumArr %>
期号 双色球走势图【竖三连号图】竖三连号连线图
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 10 21 22 23 24 25 26 27 28 29 30 31 32 33
" & ListQihaoArr(I) & "" & FormatNum(J) & "" & FormatNum(J) & "
预选→ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
预选→ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
预选→ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
期号 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 10 21 22 23 24 25 26 27 28 29 30 31 32 33
双色球走势图【竖三连号图】竖三连号连线图