📄 test.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.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="test.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.gola123.com/soccer/html/odds/ch-winodds.html" target="_blank"><img border="0" src="main.files/button3.jpg"></a></td>
<td width="12%" align="center" height="1"><a href="http://www.gooooal.com/www/live.htm" 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%>
<p align="center">
<%Const ForReading = 1, ForWriting = 2, ForAppending =3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if fs.fileexists(filename) then
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(ForReading,
TristateUseDefault)
s=ts.readline+1
ts.close
else
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
end if
'向counter.txt中写数据
Set ts = f.OpenAsTextStream(ForWriting,
TristateUseDefault)
ts.writeline(cstr(s))
ts.close
'显示计数器
s=cstr(s+1000000)
s=mid(s,2,6)
for i=1 to 6
response.write "〈img src='../images/"&mid(s,i,1)
&".gif' width='18' height='25'>"
next
%>
</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)
if not newrst.eof then
%>
<p style="border-bottom-style: groove; border-bottom-color: #2565BC" align="center"><font color="#FFFFFF" size="2"><b>足彩推荐（<%=newrst(newrst.fields.count-2)%>期）</b></font></td>
<%else%>
<p style="border-bottom-style: groove; border-bottom-color: #2565BC" align="center"><font color="#FFFFFF" size="2"><b>足彩推荐（期）</b></font></td>
<%end if%>
<td>
<td width="35%"></td>
</tr>
<tr>
<td width="34%"></td>
<td width="31%" colspan="2">
<table border="0" width="100%" cellpadding="0">
<tr>
<td width="100%">
<%if not newrst.eof then%>
<p align="center"><font size="2" color="#FFFFFF"><b>本期投注金额（<%=newrst(newrst.fields.count-1)%>）元</b></font></td>
<%else%>
<p align="center"><font size="2" color="#FFFFFF"><b>本期投注金额（）元</b></font></td>
<%end if%>
</tr>
</table>
</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-3%>
<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="9"></td>
<td width="672" height="11" align="center" colspan="5">
</td>
<td width="125" height="1" align="center" rowspan="9"></td>
</tr>
<tr>
<td width="672" height="10" align="center" colspan="5" background="main.files/bei.gif">
</td>
</tr>
<tr>
<td width="672" height="10" align="center" colspan="5">
</td>
</tr>
<tr>
<td width="672" height="6" align="center" colspan="5">
<p align="left"><font size="2" color="#FFFFFF"><b>友情连结：</b></font>
</td>
</tr>
<tr>
<td width="672" height="7" align="center" colspan="5">
<table border="1" width="104%" bordercolor="#20569F">
<tr>
<td>
<p align="left"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</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 + -