📄 zs.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<html>
<meta http-equiv="Content-Type" content="text/html; chadbstret=gb2312">
<head><meta name="keywords" content="<%=key%>">
<title><%=webname%>走势图<%=Copyright%></title>
</head>
<body topmargin="0" class="bk">
<center>
<table width="100%" border="0">
<tr>
<td>
<div align="center"><%=webname%>走势图“蓝色”为正选号“红色”为特别号 <font color=red>仅供参考</font></div>
</td>
</tr>
</table>
<table align="center" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#145297" bordercolordark="#FFFFFF" background="image/background.gif" height="50%">
<tr>
<td width="5%" align="center" ><img border="0" src="xm.gif" width="49" height="23"></td>
<td width="3%" align="center" >01</td>
<td width="3%" align="center" >02</td>
<td width="3%" align="center" >03</td>
<td width="3%" align="center" >04</td>
<td width="3%" align="center" >05</td>
<td width="3%" align="center" >06</td>
<td width="3%" align="center" >07</td>
<td width="3%" align="center" >08</td>
<td width="3%" align="center" >09</td>
<td width="3%" align="center" >10</td>
<td width="3%" align="center" >11</td>
<td width="3%" align="center" >12</td>
<td width="3%" align="center" >13</td>
<td width="3%" align="center" >14</td>
<td width="3%" align="center" >15</td>
<td width="3%" align="center" >16</td>
<td width="3%" align="center" >17</td>
<td width="3%" align="center" >18</td>
<td width="3%" align="center" >19</td>
<td width="3%" align="center" >20</td>
<td width="3%" align="center" >21</td>
<td width="3%" align="center" >22</td>
<td width="3%" align="center" >23</td>
<td width="3%" align="center" >24</td>
<td width="3%" align="center" >25</td>
<td width="3%" align="center" >26</td>
<td width="3%" align="center" >27</td>
<td width="3%" align="center" >28</td>
<td width="3%" align="center" >29</td>
<td width="3%" align="center" >30</td>
<td width="3%" align="center" >31</td>
<td width="3%" align="center" >32</td>
<td width="3%" align="center" >33</td>
<td width="3%" align="center" >34</td>
<td width="3%" align="center" >35</td>
<td width="3%" align="center" >36</td>
</tr>
<%
stemp="select * from hao order by val(qs) desc"
set dbstr=conn.execute(stemp)
if not dbstr.eof then
q=0
do while not dbstr.eof
q=q+1
if q=30 then
qs=dbstr("qs")
exit do
end if
dbstr.movenext
loop
end if
dbstr.close
temp="select * from hao where qs>='"&qs&"' order by val(qs) asc"
set dbstr=conn.execute(temp)
if dbstr.eof then
response.write "<tr><td colspan=30>暂无记录</td></tr>"
else
k=1
Dim num(8)
do while not dbstr.eof and k<=37
response.write "<tr>"
response.write "<td align=center>"& dbstr("qs") &"</td>"
num(8)=clng(dbstr("tm"))
for j=1 to 36
select case j
case clng(dbstr("p1")),clng(dbstr("p2")),clng(dbstr("p3")),clng(dbstr("p4")),clng(dbstr("p5")),clng(dbstr("p6")),num(7)
if j<10 then j="0"&j
info="<font color=blue>"& j & "</font>"
case num(8)
if j<10 then j="0"&j
info="<font color=red>"& j & "</font>"
case else
info=" "
end select
response.write "<td align=center>"& info &"</td>"
next
response.write "</tr>"
dbstr.movenext
k=k+1
loop
end if
dbstr.close
connclose
%>
</table>
<table width="753" border="0">
<tr>
<td bgcolor="#CCCCCC">
<div align="center"><a href="<%=url%>" target="_blank">ASP彩票系统</a>
系统开发：子渊 QQ：79571397</div>
</td>
</tr>
</table>
<table width="753" border="0" bgcolor="#EEEEEE">
<tr>
<td width="628">
<div align="center">需要彩票最新咨讯，请使用以下搜索，强大的搜索功能，找到您想要的东西</div>
</td>
<td width="168"> </td>
</tr>
</table>
<script src="http://union.3721.com/cust.js?pid=S_gyi16_109803&pid1=U_gyi16_109804&SearchHeight=50&SearchWidth=753&boxColor=aaaaaa&txtColor=FFFFFF&Key=3069,3066,3061,3139,3076,3088,3101,3166,3104,3103,3042,3044,3202,3010,3200,3174,3016,3201,3178"></script>
</center>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -