% SetCounter("ssqzst") %>
<%
function getNums(str,num)
if len(str)=0 then exit function
dim i,isum
isum=0
for i=1 to len(str)
if instr(i,str,num)>0 then
isum=isum+1
i=CInt(instr(i,str,num))
end if
next
getNums=isum
end function
Dim I,J,MaxQihao,MinQihao
MinQihao = Request.Form("select")
MaxQihao = Request.Form("select2")
If MinQihao = "" Then
MinQihao = CLng(ReturnMaxQi()) - 149
End If
If MaxQihao = "" Then
MaxQihao = CLng(ReturnMaxQi())
End If
%>
期号 |
3D开奖号 |
【3D试机号和3D开奖号201走势图】组选走势图 |
3D试机号和3D开奖号百位201走势图 |
3D试机号和3D开奖号十位201走势图 |
3D试机号和3D开奖号个位201走势图 |
百 |
十 |
个 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
<%
Dim ListQihaoArr,FirstNumArr,SecondNumArr,ThirdNumArr,TestNumberArr
ListQihaoArr= ListLast(MinQihao,MaxQihao,0)
FirstNumArr = ListLast(MinQihao,MaxQihao,1)
SecondNumArr = ListLast(MinQihao,MaxQihao,2)
ThirdNumArr = ListLast(MinQihao,MaxQihao,3)
NumLink = ZFLink(FirstNumArr,SecondNumArr,ThirdNumArr)
TestNumberArr = GetTestNumber(ListQihaoArr)
JQNumberArr=GetJQNumber(ListQihaoArr)
ReDim SumArr(Ubound(FirstNumArr))
For I = 0 To Ubound(ListQihaoArr) -1
Response.Write "
"
Response.Write "" & ListQihaoArr(I) & " | "
Response.Write "" & FirstNumArr(I) & " | "
Response.Write "" & SecondNumArr(I) & " | "
Response.Write "" & ThirdNumArr(I) & " | "
Y = FirstNumArr(I) & " " & SecondNumArr(I) & " " & ThirdNumArr(I)
For K =0 to 2
if K = 0 then
K=2
else
if K=1 then
K=0
else
K=1
end if
end if
For A = 0 to 9
if A mod 3 = K then
gettagnums=getNums(Y,A)
if gettagnums>0 then
if gettagnums=1 then
strsup=""
else
strsup="" & gettagnums & ""
end if
Response.Write "" & A & strsup & " | "
else
Response.Write " | "
end if
end if
next
if K = 2 then
K=0
else
if K=0 then
K=1
else
K=2
end if
end if
next
For J = 1 to 3
If J = 2 then
O = "#FAFAD2"
else
O = "#EEA9B8"
end if
For K =0 to 2
if K = 0 then
K=2
else
if K=1 then
K=0
else
K=1
end if
end if
For A = 0 to 9
If A mod 3 = K then
If Cint(mid(NumLink(I),J,1)) = A then
Response.Write ""& Cint(mid(NumLink(I),J,1)) &" | "
else
Response.Write " | "
end if
end if
next
if K = 2 then
K=0
else
if K=0 then
K=1
else
K=2
end if
end if
next
Next
next
%>
预 选 号→ |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
预 选 号→ |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
预 选 号→ |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
期号 |
百 |
十 |
个 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
2 |
5 |
8 |
0 |
3 |
6 |
9 |
1 |
4 |
7 |
3D开奖号 |
【3D试机号和3D开奖号201走势图】组选走势图 |
3D试机号和3D开奖号百位201走势图 |
3D试机号和3D开奖号十位201走势图 |
3D试机号和3D开奖号个位201走势图 |
参考说明:期号前“4”位为年份,第“5-7”位为期号,第八位数字“0”代表3D试机号码,第八位数字“1”代表3D开奖号码,如20171650就是2017年165期3D试机号码,20171651就是2017年165期3D开奖号码。 |