📄 default1.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>博傲工作室</title>
</head>
<body bgcolor="#003366">
<%
set newconn=server.createobject("adodb.connection")
DBpath=server.mappath("football.mdb")
newconn.open"driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
newcmd="config"
set newrst=newconn.execute(newcmd)
str1=newrst(0)
str2=newrst(2)
str3=newrst(1)
newrst.close
%>
<table border="0" width="927" cellspacing="0" height="130">
<tr>
<td width="122" height="20"></td>
<td width="650" height="20" colspan="5"><img border="0" src="main.files/made.jpg" width="200" height="18"></td>
<td width="125" height="20"></td>
</tr>
<tr>
<td width="122" height="86"></td>
<td width="650" height="86" colspan="5" background="main.files/bei.gif">
<p align="center" style="border-bottom-style: double; border-bottom-color: #003366"><img border="0" src="main.files/title.jpg" width="698" height="80"></p>
</td>
<td width="125" height="86"></td>
</tr>
<tr>
<td width="122" height="6" align="center"></td>
<td width="640" align="center" bgcolor="#20569F" valign="middle" style="border-top-style: solid; border-top-color: #20569F" height="6" colspan="5">
<table border="1" width="109%" bordercolor="#003366" height="1">
<tr>
<td width="12%" align="center" height="1"><a href="default.asp"><img border="0" src="main.files/button1.jpg"></a></td>
<td width="12%" align="center" height="1"><a href="vip.asp"><img border="0" src="main.files/button2.jpg"></a></td>
<td width="12%" align="center" height="1"><a href="http://www.macauslot.com/mslot/odds/ch/odds_frame.html" target="_blank"><img border="0" src="main.files/button3.jpg"></a></td>
<td width="12%" align="center" height="1"><a href="http://202.123.206.170/mslot/livescores/livescores.html" target="_blank"><img border="0" src="main.files/button4.jpg"></a></td>
<td width="13%" align="center" height="1"><a href="past.asp"><img border="0" src="main.files/button5.jpg"></a></td>
<td width="13%" align="center" height="1"><a href="http://www.gooooal.com/www/next.htm" target="_blank"><img border="0" src="main.files/button6.jpg"></a></td>
<td width="13%" align="center" height="1"><a href="join.asp"><img border="0" src="main.files/button7.jpg"></a></td>
<td width="13%" align="center" height="1"><a href="mailto:jack@boaostudio.com"><img border="0" src="main.files/button8.jpg"></a></td>
</tr>
</table>
</td>
<td width="125" height="6" align="center"></td>
</tr>
<tr>
<td width="122" height="18" align="center"></td>
<td width="680" height="18" align="center" colspan="5"><font size="3" color="#FFFFFF"> </font><font size="2" color="#99CCFF">
<p align="center">
<%response.write Date & " " & Time%>
</font></td>
<td width="125" height="18" align="center"></td>
</tr>
<tr>
<td width="122" height="151" align="center"></td>
<td width="171" height="151" align="center">
<table border="0" width="108%" cellspacing="0" height="154">
<tr>
<td width="101%" background="main.files/bei.gif" height="8" colspan="3">
<p align="center" style="border-bottom-style: groove; border-bottom-color: #2565BC"><b><font color="#FFFFFF" size="2">声明</font></b>
</td>
</tr>
<tr>
<td width="5%" height="142" valign="bottom"></td>
<td width="90%" height="142" valign="middle">
<p style="line-height: 100%"><span class="ft"><font size="2" color="#2565BC"><img border="0" src="main.files/000.gif"></font><font size="2" color="#99CCFF"><%=str1%></font></span></p>
</td>
<td width="6%" height="142"></td>
</tr>
</table>
</td>
<td width="300" height="151" align="center" colspan="3" background="main.files/zhuanjia.jpg">
<table border="0" width="102%" cellspacing="0" height="159">
<tr>
<td width="25%" height="13"></td>
<td width="50%" height="13" background="main.files/bei.gif">
<p align="center" style="border-bottom-style: groove; border-bottom-color: #2565BC"><b><font size="2" color="#FFFFFF">专家寄语</font></b>
</td>
<td width="25%" height="13"></td>
</tr>
<tr>
<td width="100%" height="142" colspan="3">
<table border="0" width="102%" cellspacing="0">
<tr>
<td width="8%"></td>
<td width="88%">
<p style="line-height: 100%"><span class="ft"><font size="2" color="#2565BC"><img border="0" src="main.files/000.gif"></font></span><font size="2" color="#99CCFF"><%=str2%></font>
</td>
<td width="8%"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="181" height="151" align="center">
<table border="0" width="115%" cellspacing="0" height="146">
<tr>
<td width="92%" height="1" colspan="2" background="main.files/bei.gif">
<p align="center" style="border-bottom-style: groove; border-bottom-color: #2565BC"><b><font size="2" color="#FFFFFF">公告板</font></b>
</td>
<td width="8%" height="1" background="main.files/bei.gif"> </td>
</tr>
<tr>
<td width="4%" height="142"></td>
<td width="92%" height="142"><font size="2" color="#FFFFFF"><MARQUEE direction=up height=132 loop=on
onmouseout=this.start(); onmouseover=this.stop();
scrollAmount=1 title=公告栏 width=183 border="0"
align="center"><%=str3%> </marquee></font></td>
<td width="10%" height="138"></td>
</tr>
</table>
</td>
<td width="125" height="151" align="center"></td>
</tr>
<tr>
<td width="122" height="11" align="center" rowspan="2"></td>
<td width="171" height="7" align="center" background="main.files/bei.gif">
</td>
<td width="300" height="7" align="center" colspan="3" background="main.files/bei.gif"> </td>
<td width="181" height="7" align="center" background="main.files/bei.gif">
</td>
<td width="125" height="11" align="center" rowspan="2"></td>
</tr>
<tr>
<td width="171" height="9" align="center"> </td>
<td width="300" height="9" align="center" colspan="3"></td>
<td width="181" height="9" align="center"> </td>
</tr>
<tr>
<td width="122" height="72" align="center" rowspan="5"></td>
<td width="674" height="44" align="center" colspan="5">
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="34%"></td>
<td width="31%" background="main.files/bei.gif">
<p align="center" style="border-bottom-style: groove; border-bottom-color: #2565BC"><b><font size="2" color="#FFFFFF">免费推荐</font></b>
</td>
<td width="35%"></td>
</tr>
</table>
</td>
<td width="125" height="72" align="center" rowspan="5"></td>
</tr>
<tr>
<td width="674" height="5" align="center" colspan="5">
<table border="1" width="699" bordercolor="#2565BC" height="37">
<tr>
<td width="101" align="center" height="12"><b><font size="2" color="#99CCFF">日期</font></b></td>
<td width="90" align="center" height="12"><b><font size="2" color="#99CCFF">主队</font></b></td>
<td width="90" align="center" height="12"><b><font size="2" color="#99CCFF">让球</font></b></td>
<td width="90" align="center" height="12"><b><font size="2" color="#99CCFF">客队</font></b></td>
<td width="96" align="center" height="12"><b><font size="2" color="#99CCFF">推荐</font></b></td>
<td width="93" align="center" height="12"><b><font size="2" color="#99CCFF">结果</font></b></td>
<td width="93" align="center" height="12"><b><font size="2" color="#99CCFF">成绩</font></b></td>
</tr>
<%
newcmd="free"
set newrst=newconn.execute(newcmd)
%>
<%do while not newrst.eof%>
<tr>
<%for i=1 to newrst.fields.count-2%>
<td width="101" align="center" height="13"><font color="#99CCFF" size="2"><%=newrst(i)%></font></td>
<%next%>
<%if trim(newrst(newrst.fields.count-1))="胜" then%>
<td width="101" align="center" height="13"><font color="#FF0000" size="2"><%=newrst(newrst.fields.count-1)%></font></td>
<%end if%>
<%if trim(newrst(newrst.fields.count-1))="负" then%>
<td width="101" align="center" height="13"><font color="#00CC00" size="2"><%=newrst(newrst.fields.count-1)%></font></td>
<%end if%>
<%if trim(newrst(newrst.fields.count-1))="走" then%>
<td width="101" align="center" height="13"><font color="#99CCFF" size="2"><%=newrst(newrst.fields.count-1)%></font></td>
<%end if%>
<%if trim(newrst(newrst.fields.count-1))="平" then%>
<td width="101" align="center" height="13"><font color="#99CCFF" size="2"><%=newrst(newrst.fields.count-1)%></font></td>
<%end if%>
</tr>
<%newrst.movenext%>
<%loop%>
<%newrst.close%>
</table>
</td>
</tr>
<tr>
<td width="672" height="9" align="center" colspan="5"> </td>
</tr>
<tr>
<td width="672" height="42" align="center" colspan="5">
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="34%"></td>
<td width="31%" background="main.files/bei.gif">
<%newcmd="lottery"
set newrst=newconn.execute(newcmd)
%>
<p style="border-bottom-style: groove; border-bottom-color: #2565BC" align="center"><font color="#FFFFFF" size="2"><b>足彩推荐（<%=newrst(newrst.fields.count-1)%>期）</b></font>
</td>
<td width="35%"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="672" height="4" align="center" colspan="5">
<table border="1" width="104%" bordercolor="#20569F" height="36">
<tr>
<td width="25%" align="center" height="13"><b><font size="2" color="#99CCFF">排号</font></b></td>
<td width="25%" align="center" height="13"><b><font size="2" color="#99CCFF">主队</font></b></td>
<td width="25%" align="center" height="13"><b><font size="2" color="#99CCFF">客队</font></b></td>
<td width="25%" align="center" height="13"><b><font size="2" color="#99CCFF">推荐</font></b></td>
</tr>
<%do while not newrst.eof%>
<tr>
<%for i=1 to newrst.fields.count-2%>
<td width="20%" align="center" height="11"><font size="2" color="#99CCFF"><%=newrst(i)%></font></td>
<%next%>
</tr>
<%newrst.movenext%>
<%loop%>
<%newrst.close%>
<%newconn.close%>
</table>
</td>
</tr>
<tr>
<td width="122" height="1" align="center" rowspan="6"></td>
<td width="672" height="11" align="center" colspan="5">
<%Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = RS("TODAY")
Rs("BMONTH") = Rs("MONTH")
Rs("MONTH") = 1
Rs("TODAY") = 1
Rs.Update
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = Rs("TODAY")
Rs("TODAY") = 1
Rs.Update
END IF
END IF
Rs("TOTAL")=Rs("TOTAL") + 1
Rs("TODAY") =Rs("TODAY") + 1
Rs("MONTH")=Rs("MONTH") + 1
Rs.Update
Response.write "..::|"
Response.write"<fontsize=2 color=000000>浏览总数：</font>"
MyCounter( Rs("TOTAL") )
Response.write "|"
Response.write"<font size=2 color=000000>今浏览数：</font>"
MyCounter( Rs("TODAY") )
Response.write "|"
Response.write"<font size=2color=000000>昨浏览数：</font>"
MyCounter( Rs("YESTERDAY") )
Response.write "|"
N=now
D2 = DateValue(N)
D1 =#18/12/1997#
D3 = DateDiff("d", D1, D2)
Response.write"<fontsize=2 color=000000>平均一日人数：</font>"
MyCounter( Rs("TOTAL")\D3 )
Response.write "|::.."
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=./gif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
Response.write G
End Function %>
<td width="125" height="1" align="center" rowspan="6"></td>
</tr>
<tr>
<td width="672" height="5" align="center" colspan="5" background="main.files/bei.gif">
</td>
</tr>
<tr>
<td width="179" height="6" align="center" rowspan="4"> </td>
<td width="308" height="10" align="center" colspan="3"> </td>
<td width="199" height="6" align="center" rowspan="4"> </td>
</tr>
<tr>
<td width="83" height="6" align="center"> </td>
<td width="168" height="6" align="center"> <font size="2" color="#99CCFF">博傲工作室
版权所有</font> </td>
<td width="57" height="6" align="center"> </td>
</tr>
<tr>
<td width="291" height="18" align="center" colspan="3"> <span lang="EN-US"><font size="2" color="#99CCFF">E-mail:
</font><a href="mailto:jack@boaostudio.com"><font size="2" color="#99CCFF">jack@boaostudio.com</font></a></span>
</td>
</tr>
<tr>
<td width="291" height="18" align="center" colspan="3"> </td>
</tr>
</table>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -