list.asp

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

ASP
31 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!-- #include file="connection.inc" -->
<% if session("userid")<>"" then%>
<%	dim rsUserInfo
	dim strSQL
	set rsUserInfo=server.createobject("ADODB.RECORDSET")
%>
<html><head><title><%=Application("Title")%></title>
<link rel="stylesheet" type="text/css" href="main.css">
</head>
<body class=clblue>
<table class=listTopic width=70%>
<tr><td width=20%>用户ID</td><td width=30%>IP</td><td width=50%>上站日期</td></tr>
<%	
	dim i,iNO
	strSQL="select * from syslogin where loginOk=-1 order by logindate desc"
	rsUserInfo.Open strSQL,myconn,1
	iNo=rsUserInfo.RecordCount
	for i=1 to iNo
%>
	<tr><td><%=rsUserInfo("userid")%></td><td><%=rsUserInfo("ip")%></td><td><%=rsUserInfo("loginDate")%></td></tr>
<%	rsUserInfo.MoveNext
	next %>
</table>
<BODY>
</BODY></HTML>
<% 
else
	response.redirect "quit.htm"
end if%>

list.asp - 源码说明

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

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

⌨️ 快捷键说明

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