zaixian.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 30 行

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Function ZaiXian()
		Dim Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.RecordSet")
			Cn1.Open "Select ZhangHao,NiChen From ZhangHao Where ZuiHouShuaXin>#"&DateAdd("n",-Clng(Read_SZ("LiXian")),Now())&"#",Conn,1,1
			If Cn1.Eof Then Cn1.Close:Set Cn1=Nothing:Call CloseData():Exit Function
			Cn1.PageSize=Const_Page_Ys
			Cn1.AbsolutePage=p
			For i=1 To Const_Page_Ys
				If Cn1.Eof Then Exit For
				ZaiXian=ZaiXian&(p-1)*Const_Page_Ys+i&".<a href=""ZiLiao.Asp?ZhangHao="&Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&Cn1("NiChen")&"</a><br/>"
				Cn1.MoveNext
			Next
			ZaiXian=ZaiXian&CPage(Cn1.PageCount,p,"ZaiXian.Asp?n={(xkon.cn)链接}&amp;")
			Application("ZaiXian")=Cn1.RecordCount
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
	End Function
	Call H_Title("在线用户")
	c.Write(xkon_FenXi(ZaiXian()&"<br/>当前在线:{(xkon.cn)在线数}"))
	Call H_End()
Set c=Nothing
Set s=Nothing
%>