开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Online.Asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：4k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

Online.Asp：源码内容
  1. <!--#include file="Inc/SysConfig.Asp"-->
  2. <!--#include file="Inc/Page_Cls.Asp"-->
  4. <%if Request("action")="LoadIng" then%>
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  6. <%
  7. Dim ID,OnlineList
  8. ID=Request.QueryString("ID")
  9. If ID="1" Then Session(YxBBs.CacheName&"Online")=""
  10. If Session(YxBBs.CacheName&"Online")="1" Then
  11. If ID<>"1" Then Session(YxBBs.CacheName&"Online")=""
  12. OnlineList=""
  13. Else
  14. Session(YxBBs.CacheName&"Online")="1"
  15. OnlineList=ShowOnlineList()
  16. End If
  17. Set YxBBs=Nothing
  19. Function ShowOnlineList()
  20. Dim Temp,Rs,Sql,Templist,Page,PageMax,PageInfo,Arr_Rs,I,AllOnlineNum,sintPageSize,II
  21. Dim onlineName,LookUser,OnlineIP,Title,UserPic
  22. TempList=""
  23. sintPageSize=30
  24. Page = YxBBs.CheckNum(request.QueryString("page"))
  25.         If YxBBs.BoardID<>0 Then
  26. Temp="where BoardID="&YxBBs.BoardID&""
  27. End If
  28. AllOnlineNum=YxBBs.Execute("SELECT COUNT(ID) From [Yx_Online] "&Temp&"")(0)
  29. Session(YxBBs.CacheName & "AllOnlineNum")=AllOnlineNum
  30. If AllOnlineNum mod sintPageSize = 0 Then
  31. PageMax = AllOnlineNum  sintPageSize
  32. Else
  33. PageMax = AllOnlineNum  sintPageSize + 1
  34. End If
  35. If Page>PageMax Then Page=PageMax
  36. If Page<1 Then Page=1
  37. Sql = "Select Id,ClassID,Name,Ip,BoardID,oldtime,LastTime,locate From [YX_Online]"&Temp&" order by ClassID,ID Asc"
  38. If Not IsObject(Conn) Then ConnectionDatabase
  39. Set rs = Server.CreateObject("Adodb.RecordSet")
  40. Rs.open Sql, Conn, 1, 1
  41. If Not(rs.eof or rs.bof) Then
  42. Rs.PageSize = sintPageSize
  43. Rs.AbsolutePage = Page
  44. If Not(rs.eof or rs.bof) Then Arr_Rs = Rs.getrows(sintPageSize)
  45. End If
  46. Rs.Close:Set Rs=Nothing
  47. If IsArray(Arr_Rs) Then
  48. Temp=Split(Replace(YxBBs.Template.ReadTemplate("用户类型图片"),VbCrlf,""),"|")
  49.   For i = 0 to UBound(Arr_Rs,2)
  50.   II=II+1
  51. onlineName=Arr_Rs(2,i)
  52. LookUser=True
  53. Select case Arr_Rs(1,i)
  54. Case 0
  55. IF YxBBs.ClassID<=2 then
  56. OnlineName="隐身会员"
  57. LookUser=False
  58. End If
  59. UserPic=Temp(0)
  60. Case 1
  61. UserPic=Temp(1)
  62. Case 2
  63. UserPic=Temp(2)
  64. Case 3
  65. UserPic=Temp(3)
  66. Case 4
  67. UserPic=Temp(4)
  68. Case 5
  69. UserPic=Temp(5)
  70. case 6
  71. OnlineName="访客"
  72. LookUser=False
  73. UserPic=Temp(6)
  74. End Select
  75. If YxBBs.ClassID<=2 Then
  76. OnlineIP=Arr_Rs(3,i)
  77. Else
  78. OnlineIP="-"
  79. End If
  80. Title="所在位置："&Arr_Rs(7,i)&"<br>进入时间："&Arr_Rs(5,i)&"<br>活动时间："&Arr_Rs(6,i)&"<br>真实IP地址："&OnlineIp&""
  81. If YxBBs.FoundUser And OnlineName=YxBBs.Myname then 
  82. Templist=Templist&"<td>"&UserPic&" <font color=""#FF6600"" title=""这是你自己"">"&OnlineName&"</font></td>"
  83. Else
  84. If LookUser Then
  85. Templist=Templist&"<td>"&UserPic&" <a title="""&Title&""" href=""Profile.Asp?name="&Arr_Rs(2,i)&""">"&OnlineName&"</a></td>"
  86. Else
  87. Templist=Templist&"<td>"&UserPic&" <span title="""&Title&""">"&OnlineName&"</span></td>"
  88. End If
  89. End If
  90. IF II=6 then II=0:Templist=Templist&"</tr><tr>"
  91.   Next    
  92. PageInfo="<table width=100% ><tr><td>&nbsp;共"&PageMax&"页&nbsp;第"&Page&"页&nbsp;</td>"
  93.                 if Page<>1 then
  94.                 PageInfo=PageInfo&"<td><a target='hiddenframe' href='Online.asp?Action=LoadIng&page=1&BoardID="&YxBBs.BoardID&"&id=1'>&nbsp;首页&nbsp;</a></td>"
  95. PageInfo=PageInfo& "<td><a target='hiddenframe' href='Online.asp?Action=LoadIng&page="&cstr(Page-1)&"&BoardID="&YxBBs.BoardID&"&id=1'>&nbsp;上一页&nbsp;</a></td>"
  96.                 Else
  97. PageInfo=PageInfo& "</tr></table>"
  98. end if
  99.                 If PageMax-Page>=1 then
  100. PageInfo=PageInfo& "<td><a target='hiddenframe' href='Online.asp?Action=LoadIng&page="&cstr(Page+1)&"&BoardID="&YxBBs.BoardID&"&id=1'>&nbsp;下一页&nbsp;</a>　</td>"
  101. PageInfo=PageInfo& "<td><a target='hiddenframe' href='Online.asp?Action=LoadIng&page="&PageMax&"&BoardID="&YxBBs.BoardID&"&id=1'>&nbsp;尾页&nbsp;</a></td></tr></table>"
  102.                 Else
  103. PageInfo=PageInfo& "</tr></table>"
  104. End if
  105. TempList="<table border=0 width='100%'>"&TempList&"</table>"
  106. End If
  107. Temp=YxBBs.Template.ReadTemplate("在线显示")
  108. Temp=Replace(Temp,"{用户列表}",Templist)
  109. Temp=Replace(Temp,"{分页}",PageInfo)
  110. Temp=Replace(Temp,CHR(34),CHR(39))
  111. Temp=Replace(Temp,VbCrlf,"")
  112. ShowOnlineList=Temp
  113. End Function
  114. %>
  115. <script language="JavaScript" type="text/JavaScript">
  116. parent.showon.innerHTML="<%=OnlineList%>";
  117. </script>
  119. <%end if%>