b;so_h.asp

支持IE 手机同步访问的WAP论坛社区程序

<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Function HuiFu_LieBiao()
		Dim HuiFu_LieBiao_Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
			Set HuiFu_LieBiao_Cn1=Server.CreateObject("Adodb.RecordSet")
			HuiFu_LieBiao_Cn1.Open "Select NeiRong,TieZhi,BanKuai From HuiFu Where ZhangHao='"&Zi_ZhangHao&"' Order By ID Desc",Conn,1,1
			HuiFu_LieBiao_Cn1.PageSize=Const_Page_Ys
			If HuiFu_LieBiao_Cn1.Eof Then HuiFu_LieBiao_Cn1.Close:Set HuiFu_LieBiao_Cn1=Nothing:Call CloseData():HuiFuLieBiao="娌℃湁浠讳綍璁板綍<br/>":Exit Function
			HuiFu_LieBiao_Cn1.AbsolutePage=p
			For i=1 To Const_Page_Ys
				If HuiFu_LieBiao_Cn1.Eof Then Exit For
				HuiFu_LieBiao=HuiFu_LieBiao&"<a href=""B;NeiRong.Asp?TID="&HuiFu_LieBiao_Cn1("TieZhi")&"&amp;ID="&HuiFu_LieBiao_Cn1("BanKuai")&"{(xkon.cn)閾炬帴}"">"&HuiFu_LieBiao_Cn1("NeiRong")&"</a><br/>"
				HuiFu_LieBiao_Cn1.MoveNext
			Next
			HuiFu_LieBiao=HuiFu_LieBiao&CPage(HuiFu_LieBiao_Cn1.PageCount,p,"B;So_H.Asp?n={(xkon.cn)閾炬帴}&amp;")
			HuiFu_LieBiao_Cn1.Close
			Set HuiFu_LieBiao_Cn1=Nothing
		Call CloseData()
	End Function
	Call H_Title("鎴戠殑鍥炲