⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list2.asp

📁 憧憬计数器v0.99
💻 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="81" style="font-size: 9pt" bgcolor="#7A727E" bordercolor="#9AADCB">
        <tr>
          <td width="100%" height="5" colspan="4" bgcolor="#FFFFFF">
            <p align="center">网站:<a href="<%response.write list_userinfo("url")%>"><%response.write list_userinfo("webname")%></a> 站长:<%response.write id%>&nbsp;<br>[<a href="listcount.asp?id=<%response.write id%>">整体统计</a>][<a href="list.asp?id=<%response.write id%>">本月统计</a>][<a href="list2.asp?id=<%response.write id%>">本年度统计</a>]</td>         
        </tr>         
<% list_userinfo.close       
   set list_userinfo=nothing       
        sql="select * from years where admin='"&newid&"'"       
         set list_y=countcon.execute(sql) 
   if not (list_y.eof and list_y.bof) then 
     dim arr_y(31) 
      max_y=0 
  for i=0 to 11  
    arr_y(i)=list_y("y"&i+1) 
     if arr_y(i)>max_y then max_y=arr_y(i)     
     total_y=arr_y(i)+total_y    
  next 
 list_y.close 
set list_y=nothing 
 countcon.close 
set  countcon=nothing 
%>       
        <tr>   
          <td width="104%" height="16" align="center" bgcolor="#FFFFFF" colspan="4">　以下为<%response.write year(date())%>年年度统计</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">人数</td>      
          <td width="14%" height="20" align="center" bgcolor="#FFFFFF">百分比</td>      
        </tr>
<%for i=0 to 11%>
        <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_y(i)/max_y))%>" height="10">      
           </td>      
          <td width="15%" height="1" bgcolor="#FFFFFF" align="center">      
            　<%response.write arr_y(i)%></td>      
          <td width="13%" height="1" bgcolor="#FFFFFF" align="center">      
            <%response.write int((arr_y(i)/total_y)*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%>'">首&nbsp;&nbsp;  
      页</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">网站排行</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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -