showcount.asp

来自「大家好」· ASP 代码 · 共 63 行

ASP
63
字号
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from counter"
rs.open sqlstr,conn
%>
<html>
<head>
<title>showcount</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

function button1_onclick() {
	window.close();
}


//-->
</SCRIPT>
</head>

<body bgcolor="#CCFFFF" text="#000099" >
<table width="268" border="1" cellspacing="0" cellpadding="0" align="center" height="37">
  <tr align="center" bgcolor="#9999FF"> 
    <td colspan="2">统计显示</td>
  </tr>
  <%
while not rs.eof
%> 
  <tr bgcolor="#CCCC99"> 
    <td align="middle" width="130">页面名称 </td>
    <td align="middle" width="132">浏览次数</td>
  </tr>
  <tr> 
    <td align="middle" width="130"><%=rs("page")%></td>
    <td align="middle" width="132"><%=rs("num")%></td>
  </tr>
  <%
rs.movenext
wend
%> 
  <tr> 
    <td align="middle" colspan="2"> 
      <div align="center">
        <input id=button1 name=button1 type=button value=关闭 language=javascript onClick="return button1_onclick()">
      </div>
    </td>
  </tr>
  <tr valign="bottom"> 
    <td align="middle" colspan="2" height="80"> 
      <div align="center">本计数器从2000年8月1日起启用</div>
    </td>
  </tr>
</table>
<p>&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

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