tieba.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Function TieBaLieBiao()
		Dim ZhangHao
		ZhangHao=s.QueryString("ZhangHao")
		Dim Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select BanKuai_MingChen,BanKuai_ID From ChengYuan Where ZhangHao='"&ZhangHao&"'",Conn,1,1
		Cn1.PageSize=Const_Page_Ys
		If Cn1.Eof Then TieBaLieBiao="没有任何记录":Cn1.Close:Set Cn1=Nothing:Call CloseData():Exit Function
		Cn1.AbsolutePage=p
		For i=1 To Const_Page_Ys
			If Cn1.Eof Then Exit For
				TieBaLieBiao=TieBaLieBiao&"<a href=""B;LieBiao.Asp?ID="&Cn1("BanKuai_ID")&"{(xkon.cn)链接}"">"&Cn1("BanKuai_MingChen")&"</a><br/>"
			Cn1.MoveNext
		Next
		TieBaLieBiao=TieBaLieBiao&CPage(Cn1.PageCount,p,"TieBa.Asp?ZhangHao="&ZhangHao&"{(xkon.cn)链接}&amp;")
		Cn1.Close
		Set Cn1=Nothing
		Call CloseData()
	End Function
	Call H_Title("{(xkon.cn)家族名称}加入")
		c.Write(xkon_FenXi(Replace(Read_Text("TieBa"),xkon_S("列表"),TieBaLieBiao())))
	Call H_End()
Set c=Nothing
Set s=Nothing
%>