📄 list_kithe.asp
字号:
<%'创建时间:2004/07/05
'创建人:
'功能:用于显示开奖资料
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<html>
<head>
<%
'子层数据处理子程序
Function toSql(str)
If IsNull(str) Then Exit Function
toSql = replace(str, "'", "''")
End Function
Function Color(id)
Dim rs_sub, sub_sql
Dim tempMoney, tempTotal, tempRate
Dim tempClass
tempClass = toSql(id)
sub_sql="select rate_number,rate_color from rate_1 where rate_number="&id
Set rs_sub = conn.execute(sub_sql)
tempColor = rs_sub(1)
response.write tempcolor
rs_sub.close
End Function
%>
<% dim s
s=session("A_name")
set M_rs=server.createobject("adodb.recordset")
M_sql="select Agent_page,Agent_online,Agent_id,Agent_name,Agent_realname,Agent_total,Agent_list,Agent_rank,Agent_restart,Agent_fronttime,Agent_regtime from Agent where Agent_name='"&s&"'"
M_rs.open M_sql,conn,1,3
M_rs("Agent_page")="开奖号码"
M_rs.update%>
<link href="include/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>开奖列表</title>
<style type="text/css">
<!--
body {
margin-top: 0px;
}
.aa{ background-color:#C1C2fC;
filter: alpha(opacity=50)}
.bb{
background-color:#ffffff;
}
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<br>
<table border="1" width="739" cellspacing="0" cellpadding="0" bordercolor="#E0E0E0" style="border-collapse: collapse" height="10%">
<tr>
<td width="731" valign="top">
<center>
<table width="96%" border="1" cellspacing="1" bordercolor="#F2F2F2" bordercolorlight="#F2F2F2" bordercolordark="#9D9CA4" height="30">
<tr align="center" bgcolor="#C1C2CC">
<td width="15%" height="21" bgcolor="#BCD5E4">开奖日期</td>
<td width="16%" height="21" bgcolor="#BCD5E4">期数</td>
<td width="8%" height="21" bgcolor="#BCD5E4">球1</td>
<td width="8%" height="21" bgcolor="#BCD5E4">球2</td>
<td width="8%" height="21" bgcolor="#BCD5E4">球3</td>
<td width="8%" height="21" bgcolor="#BCD5E4">球4</td>
<td width="8%" height="21" bgcolor="#BCD5E4">球5</td>
<td width="8%" height="21" bgcolor="#BCD5E4">球6</td>
<td width="10%" height="21" bgcolor="#BCD5E4">特码</td>
<td width="11%" height="21" bgcolor="#BCD5E4">总分</td>
</tr>
<%Set Kithe_rs=server.CreateObject("adodb.recordset")
Kithe_sql="select * from Kithe order by Kithe_issue desc"
Kithe_rs.open Kithe_sql,conn,1,1
if not Kithe_rs.eof then
Kithe_rs.pagesize=20
disnum=Kithe_rs.pagesize
dispage=Kithe_rs.pagecount
page=request.QueryString("page")
if page="" then
page=1
end if
Kithe_rs.absolutepage=page
end if
do while not Kithe_rs.eof
%>
<tr align="center" bgcolor="#000000" class="bb" onmouseover="this.className='aa'" onmouseout="this.className='bb'" >
<td height="1"><%=datevalue(Kithe_rs("Kithe_time"))%></td>
<td height="1"><%=Kithe_rs("Kithe_issue")%></td>
<td style="color:<%response.write Color(Kithe_rs("Kithe_num1"))%> " height="1"><%=Kithe_rs("Kithe_num1")%> </td>
<td style="color:<%response.write Color(Kithe_rs("Kithe_num2"))%> " height="1"><%=Kithe_rs("Kithe_num2")%></td>
<td style="color:<%response.write Color(Kithe_rs("Kithe_num3"))%> " height="1"><%=Kithe_rs("Kithe_num3")%> </td>
<td style="color:<%response.write Color(Kithe_rs("Kithe_num4"))%> " height="1"><%=Kithe_rs("Kithe_num4")%></td>
<td style="color:<%response.write Color(Kithe_rs("Kithe_num5"))%> " height="1"><%=Kithe_rs("Kithe_num5")%></td>
<td style="color:<%response.write Color(Kithe_rs("Kithe_num6"))%> " height="1"><%=Kithe_rs("Kithe_num6")%></td>
<td style="color:<%response.write Color(Kithe_rs("Kithe_num7"))%> " height="1"><%=Kithe_rs("Kithe_num7")%></td>
<td height="1"><%=Kithe_rs("Kithe_Total")%></td>
</tr>
<%Kithe_rs.movenext
disnum=disnum-1
loop%>
</table>
<br>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -