<% Set rs=Server.CreateObject("Adodb.Recordset") sql="select * from cz_jg order by id desc" rs.cursorlocation=3 rs.open sql,conn,1,1 if rs.bof and rs.eof then response.Write "" response.End() end If rs.pagesize=30 curpage=Request.QueryString("page") if curpage="" then curpage=1 rs.absolutepage=curpage for i=1 to rs.pagesize if rs.eof Then exit for end If If instr(rs("sf"),"等")>0 then color="blue" End If If instr(rs("sf"),"输")>0 then color="black" End If If instr(rs("sf"),"赢")>0 then color="red" End If if i mod 2 = 0 Then bg=" class='trbg'" Else bg="" End If If rs("sf")="" Then sf="等待" color="blue" Else sf=rs("sf") End If If rs("fx")="" Or IsNull(rs("fx")) Then fx="暂无分析" Else fx="查看分析" End If If rs("fx2")="" Or IsNull(rs("fx2")) Then fx2="暂无分析" Else fx2="查看分析" End If zdnum=rs("zdcs") kdnum=rs("kdcs") If zdnum>0 And kdnum>0 then zdwidth=Clng((zdnum/(zdnum+kdnum))*96) If zdnum=0 Then zdwidth=50 If zdwidth<18 Then zdwidth=18 kdwidth=94-zdwidth If kdwidth<16 Then kdwidth=16 zdwidth=94-kdwidth End if If i=1 Then trsty=" class='first'" Else trsty=" class='nofirst'" End if toupiao="" response.Write "" & toupiao &vbcrlf rs.movenext Next %>

联赛	比赛时间	主 队	让球	客 队	分析	数据分析	推介	比分	结 果
暂无内容!
主"&rs("zt")&"% 客"&rs("kt")&"% 大"&rs("dt")&"% 小"&rs("xt")&"%
"&rs("mc")&"	"&rs("sj")&"	"&rs("zd")&"	"&rs("rq")&"	"&rs("kd")&"	"&fx&"	"&fx2&"	"&rs("tj")&"	"&rs("jg")&"	"&sf&"
<%if curpage=1 then%> 首页 <%else%> 首页 <%end if%> <%if curpage=1 then%> 上一页 <%else%> 上一页 <%end if%> <%if rs.pagecount 下一页 <%else%> 下一页 <%end if%> <%if rs.pagecount 尾页 <%else%> 尾页 <%end If rs.close : set rs = nothing %>