% 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开奖号百位大小奇偶 |
3D试机号和3D开奖号十位大小奇偶 |
3D试机号和3D开奖号个位大小奇偶 |
和值 |
3D试机号和3D开奖号合尾大小奇偶 |
百 |
十 |
个 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
<%
Dim ListQihaoArr,FirstNumArr,SecondNumArr,ThirdNumArr,OddAndEvenNum,LargAndLessArr,TestNumberArr
ListQihaoArr= ListLast(MinQihao,MaxQihao,0)
FirstNumArr = ListLast(MinQihao,MaxQihao,1)
SecondNumArr = ListLast(MinQihao,MaxQihao,2)
ThirdNumArr = ListLast(MinQihao,MaxQihao,3)
OddAndEvenNum = OddAndEven(FirstNumArr,SecondNumArr,ThirdNumArr)
LargAndLessArr = LargAndLess(FirstNumArr,SecondNumArr,ThirdNumArr)
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) & " | "
For A = 1 to 3
if A mod 2 = 0 then
O = "#FFAEB9"
else
O = "#FFE4E1"
end if
If Cint(mid(NumLink(I),A,1)) <= 4 then
Response.Write "小 | "
else
Response.Write " | "
end if
If Cint(mid(NumLink(I),A,1)) >= 5 then
Response.Write "大 | "
else
Response.Write " | "
end if
If Cint(mid(NumLink(I),A,1)) mod 2 <> 0 then
Response.Write "奇 | "
else
Response.Write " | "
end if
If Cint(mid(NumLink(I),A,1)) mod 2 = 0 then
Response.Write "偶 | "
else
Response.Write " | "
end if
Next
SumArr(I) = CInt(FirstNumArr(I)) + CInt(SecondNumArr(I)) + CInt(ThirdNumArr(I))
Response.Write "" & SumArr(I) & " | "
If Cint(mid(FormatNum(SumArr(I)),2,1)) <= 4 then
Response.Write "小 | "
else
Response.Write " | "
end if
If Cint(mid(FormatNum(SumArr(I)),2,1)) >= 5 then
Response.Write "大 | "
else
Response.Write " | "
end if
If Cint(mid(FormatNum(SumArr(I)),2,1)) mod 2 <> 0 then
Response.Write "奇 | "
else
Response.Write " | "
end if
If Cint(mid(FormatNum(SumArr(I)),2,1)) mod 2 = 0 then
Response.Write "偶 | "
else
Response.Write " | "
end if
Response.Write "
"
next
%>
预 选 号→ |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
|
小 |
大 |
奇 |
偶 |
预 选 号→ |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
|
小 |
大 |
奇 |
偶 |
预 选 号→ |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
|
小 |
大 |
奇 |
偶 |
期号 |
百 |
十 |
个 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
小 |
大 |
奇 |
偶 |
和值 |
小 |
大 |
奇 |
偶 |
3D开奖结果 |
3D试机号和3D开奖号百位大小奇偶 |
3D试机号和3D开奖号十位大小奇偶 |
3D试机号和3D开奖号个位大小奇偶 |
3D试机号和3D开奖号合尾大小奇偶 |
参考说明:期号前“4”位为年份,第“5-7”位为期号,第八位数字“0”代表3D试机号码,第八位数字“1”代表3D开奖号码,如20171650就是2017年165期3D试机号码,20171651就是2017年165期3D开奖号码。 |