logintoday.asp

来自「在ASP下实现的bbs网站建设」· ASP 代码 · 共 36 行

ASP
36 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!-- #include file="connection.asp" -->
<!-- #include file="std.asp" -->
<%
  OnlySysOp
  Alive "系统管理"
  
     dim rsUserInfo,strSQL,i
	 set rsUserInfo=server.createobject("ADODB.RECORDSET")
	 rsUserInfo.Open "select userid,count(*)  as ilogin from syslogin where datediff('d',loginDate, now)=0 group by userid order by userid ",myconn,1
%>
<html><head>
<link rel="stylesheet" type="text/css" href="main.css">
</head>
<body class=clblue>
<div align=center ><center>
<br>
  <table width=70% class=InfoMan border=1 cellpadding="0" cellspacing="0">
  <tr><td colspan=2 align=center>当日上站人次</td></tr>
  <% for i=1 to rsUserInfo.RecordCount %>
  <tr><td width=50% >&nbsp;<A href="queryUser.asp?userid=<%=rsUserInfo("UserID")%>"><%=rsUserInfo("UserID")%></a></td>
      <td>&nbsp;&nbsp;<%=rsUserInfo("iLogin")%>
  </td></tr>
  <%	rsUserInfo.MoveNext
	 next
     rsUserInfo.Close
  %>
  </table>
  </center></div>
</BODY></HTML>
<%
	myconn.Close
	set rsUserInfo=nothing
	set myconn=nothing
%>

logintoday.asp - 源码说明

本页面展示了「在ASP下实现的bbs网站建设」中的 logintoday.asp 源码文件，采用 ASP 编程语言编写，共 36 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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