show_user.asp

来自「很好的聊天室,具有很好的聊天功能,good」· ASP 代码 · 共 40 行

ASP
40 行
字号 
<%
	' show_user.asp
	Set cnObj = Server.CreateObject("ADODB.Connection") 
	dbpath = Server.MapPath("DB.mdb")
	cnObj.ConnectionString = _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
	cnObj.Open 
	sqlcmd = "SELECT DISTINCT 姓名 FROM CHAT"     
	Set rsObj = cnObj.Execute(sqlCmd)
 %>
 <html>
 <head>
 <title>在线人数程序</title>
 <meta http-equiv="refresh" content="10,URL=show_user.asp">
 </head>
 <body background="blutextb.gif">                 
 <table>
   <tr align="center">
     <th bgcolor="#000000"><font color="#FFFFFF">聊天室来宾！</th>
   </tr>
 <% DO While Not rsObj.EOF	%>  
    <tr>
	     <td><% =rsObj("姓名") %></td>
    </tr>     
 <%          
		 rsObj.MoveNext  
	  Loop    
	rsObj.Close 
	cnObj.Close
	Set rsObj = Nothing
	Set cnObj = Nothing 
 %>
 </table><p>
 <table>
     <tr bgcolor="pink"><td><a href="show_user.asp">更新在线名单</a></td></tr>     
 </table>
 </body>
 </html>

show_user.asp - 源码说明

本页面展示了「很好的聊天室,具有很好的聊天功能,good」中的 show_user.asp 源码文件，采用 ASP 编程语言编写，共 40 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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