?? list.asp
字號:
<%@ language=vbscript%>
<%response.buffer=true%>
<!--#include file=conn.asp-->
<%id=trim(request.querystring("id"))
if id="" then response.end
newid=replace(id,"'","''")
sql="select webname,url,kindname from userinfo where admin='"&newid&"'"
set countcon=server.createobject("adodb.connection")
countcon.open conn
set list_userinfo=countcon.execute(sql)
if list_userinfo.eof and list_userinfo.bof then
list_userinfo.close
set list_userinfo=nothing
countcon.close
set countcon=nothing
end if%>
<head>
<title></title>
</head>
<body bgcolor="#B2AAA6">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="654" style="font-size: 9pt">
<tr>
<!-- Shim row, height 1. -->
<td><img src="shim.gif" width="39" height="1" border="0"></td>
<td><img src="shim.gif" width="33" height="1" border="0"></td>
<td><img src="shim.gif" width="31" height="1" border="0"></td>
<td><img src="shim.gif" width="30" height="1" border="0"></td>
<td><img src="shim.gif" width="15" height="1" border="0"></td>
<td><img src="shim.gif" width="162" height="1" border="0"></td>
<td><img src="shim.gif" width="318" height="1" border="0"></td>
<td><img src="shim.gif" width="13" height="1" border="0"></td>
<td><img src="shim.gif" width="13" height="1" border="0"></td>
<td><img src="shim.gif" width="1" height="1" border="0"></td>
</tr>
<tr>
<!-- row 1 -->
<td rowspan="2" colspan="6"><img src="img/top.gif" border="0"></td>
<td colspan="2" BACKGROUND="img/namebg.gif"> </td>
<td rowspan="2"><img src="img/edge3.gif" width="13" height="56" border="0"></td>
<td><img src="shim.gif" width="1" height="26" border="0"></td>
</tr>
<tr>
<!-- row 2 -->
<td colspan="2"><img src="img/topbot.gif" border="0" width="331" height="30"></td>
<td><img src="shim.gif" width="1" height="30" border="0"></td>
</tr>
<tr>
<!-- row 3 -->
<td rowspan="8"><img src="img/ileft.gif" width="39" height="262" border="0"></td>
<td rowspan="2"><img src="img/edge1.gif" width="33" height="38" border="0"></td>
<td rowspan="2" BACKGROUND="img/mailbg.gif"> </td>
<td rowspan="2" BACKGROUND="img/questionbg.gif"> </td>
<td rowspan="2"><img src="img/edge2.gif" width="15" height="38" border="0"></td>
<td colspan="2"><img src="img/shadow.gif" width="480" height="22" border="0"></td>
<td colspan="2" VALIGN="top"><img src="img/rtop.gif" width="26" height="22" border="0"></td>
<td><img src="shim.gif" width="1" height="22" border="0"></td>
</tr>
<tr>
<!-- row 4 -->
<td rowspan="8" colspan="2" VALIGN="top" BGCOLOR="#ffffff">
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="97" style="font-size: 9pt" bgcolor="#7A727E" bordercolor="#9AADCB">
<tr>
<td width="100%" height="5" colspan="4" bgcolor="#FFFFFF">
<p align="center">網(wǎng)站:<a href="<%response.write list_userinfo("url")%>"><%response.write list_userinfo("webname")%></a> 站長:<%response.write id%> <br>[<a href="listcount.asp?id=<%response.write id%>">整體統(tǒng)計</a>][<a href="list.asp?id=<%response.write id%>">本月統(tǒng)計</a>][<a href="list2.asp?id=<%response.write id%>">本年度統(tǒng)計</a>]</td>
</tr>
<% list_userinfo.close
set list_userinfo=nothing
sql="select * from months where admin='"&newid&"'"
set list_m=countcon.execute(sql)
if not (list_m.eof and list_m.bof) then
dim arr_m(31)
max_m=0
for i=0 to 30
arr_m(i)=list_m("m"&i+1)
if arr_m(i)>max_m then max_m=arr_m(i)
total_m=arr_m(i)+total_m
next
list_m.close
set list_m=nothing
countcon.close
set countcon=nothing
%> <tr>
<td width="104%" height="16" align="center" bgcolor="#FFFFFF" colspan="4"> 以下為<%response.write year(date())%>年<%response.write month(date())%>月統(tǒng)計</td>
</tr>
<tr>
<td width="20%" height="20" align="center" bgcolor="#FFFFFF">日期</td>
<td width="54%" height="20" align="left" bgcolor="#FFFFFF">
<p align="center">圖例</td>
<td width="16%" height="20" align="center" bgcolor="#FFFFFF">人數(shù)</td>
<td width="14%" height="20" align="center" bgcolor="#FFFFFF">百分比</td>
</tr>
<%for i=0 to 30%>
<tr>
<td width="19%" height="1" bgcolor="#FFFFFF">
<p align="center"><%response.write i+1%></td>
<td width="53%" height="1" bgcolor="#FFFFFF" style="border-style: solid; border-color: #FFFFFF">
<img border="0" src="img/month.gif" width="<%response.write int(257*(arr_m(i)/max_m))%>" height="10">
</td>
<td width="15%" height="1" bgcolor="#FFFFFF" align="center">
<%response.write arr_m(i)%></td>
<td width="13%" height="1" bgcolor="#FFFFFF" align="center">
<%response.write int((arr_m(i)/total_m)*100)%>%</td>
</tr>
<%next
end if%>
</table>
</td>
<td rowspan="8" colspan="2" VALIGN="top" BACKGROUND="img/rmidbg.gif"><img src="img/rmid.gif" width="26" height="370" border="0"></td>
<td><img src="shim.gif" width="1" height="16" border="0"></td>
</tr>
<tr>
<!-- row 5 -->
<td colspan="4"><img src="img/itop.gif" border="0" width="109" height="64"></td>
<td><img src="shim.gif" width="1" height="64" border="0"></td>
</tr>
<tr>
<!-- row 6 -->
<td colspan="4" background="img/b1.gif" align="center"><font color="#FFFFFF"><a style="cursor: hand" onclick="jscript:window.location='<%response.write yoururl%>'">首
頁</a></font></td>
<td><img src="shim.gif" width="1" height="27" border="0"></td>
</tr>
<tr>
<!-- row 7 -->
<td colspan="4" background="img/b2.gif" align="center" valign="top"><font color="#FFFFFF"><br>
<a onclick="jscript:window.location='reg.htm'" style="cursor:hand">免費申請</a></font></td>
<td><img src="shim.gif" width="1" height="31" border="0"></td>
</tr>
<tr>
<!-- row 8 -->
<td colspan="4" background="img/b3.gif" align="center" valign="top"><font color="#FFFFFF"><br>
<a onclick="jscript:window.location='list_ph.asp?id=<%response.write server.urlencode(id)%>'" style="cursor:hand">網(wǎng)站排行</a></font></td>
<td><img src="shim.gif" width="1" height="31" border="0"></td>
</tr>
<tr>
<!-- row 9 -->
<td colspan="4" background="img/b4.gif" align="center" valign="top"><font color="#FFFFFF"><br>
<a onclick="jscript:window.location='log.htm'" style="cursor:hand">修改資料</a></font></td>
<td><img src="shim.gif" width="1" height="32" border="0"></td>
</tr>
<tr>
<!-- row 10 -->
<td colspan="4"><img src="img/aftw.gif" border="0" width="109" height="39"></a></td>
<td><img src="shim.gif" width="1" height="39" border="0"></td>
</tr>
<tr>
<!-- row 11 -->
<td colspan="5" BACKGROUND="img/left.gif" VALIGN="top" HEIGHT="450">
<p ALIGN="center"><br>
</td>
<td><img src="shim.gif" width="1" height="130" border="0"></td>
</tr>
<tr>
<!-- row 12 -->
<td colspan="5"><img src="img/bot1.gif" width="148" height="20" border="0"></td>
<td colspan="2"><img src="img/bot2.gif" width="480" height="20" border="0"></td>
<td colspan="2"><img src="img/bot3.gif" width="26" height="20" border="0"></td>
<td><img src="shim.gif" width="1" height="20" border="0"></td>
</tr>
</table>
</center>
</div>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -