b;liebiao.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Dim ID,Cn1,i,l
	l=s.QueryString("l")
	ID=S.QueryString_Long("ID")
	Call BanKuai_Du(ID)
	Private Function BanZhuLieBiao()
		If DuQu_BanKuai(ID,"XianShi_BanZhu")="0" Then BanZhuLieBiao="":Exit Function
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.RecordSet")
			Cn1.Open "Select MingChen,HuiYuan From BanZhu Where BanKuai="&ID,Conn,1,1
			If Cn1.Eof Then BanZhuLieBiao="无<br/>":Cn1.Close:Set Cn1=Nothing:Call CloseData():Exit Function
			For i=1 To Cn1.RecordCount
				BanZhuLieBiao=BanZhuLieBiao&"<a href=""ZiLiao.Asp?ZhangHao="&Cn1("HuiYuan")&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a>"
				Cn1.MoveNext
			Next
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
	End Function
	Private Function LOGO()
		If DuQu_BanKuai(ID,"XianShi_LOGO")="0" Then LOGO="":Exit Function
		LOGO="<img src="""&DuQu_BanKuai(ID,"BanKuai_LOGO")&""" alt=""logo"" /><br/>"
	End Function
	Private Function XiaJi()
		If DuQu_BanKuai(ID,"XianShi_XiaJi")="0" Then Exit Function
		Call OpenData()
			Dim Cn1,i
			Set Cn1=Server.CreateObject("Adodb.RecordSet")
			Cn1.Open "Select BanKuai_MingChen,ID From BanKuai Where ShangJi_ID="&ID,Conn,1,1
			For i=1 To Cn1.RecordCount
				XiaJi=XiaJi&"<a href=""B;LieBiao.Asp?ID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a><br/>"
				Cn1.MoveNext
			Next
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
	End Function
	Private Function Q(Q_Str)
		Dim Q_Jing,Q_Ding,Q_Suo,Q_Re
		Q_Jing=Read_SZ("TuBiao_Jing")
		Q_Ding=Read_SZ("TuBiao_Ding")
		Q_Suo=Read_SZ("TuBiao_Suo")
		Q_Re=Read_SZ("TuBiao_Re")
		If Q_Jing<>"" Then
			Q_Str=Replace(Q_Str,"[精]","<img src="""&Q_Jing&""" alt=""[精]"" />")
		End If
		If Q_Ding<>"" Then
			Q_Str=Replace(Q_Str,"[顶]","<img src="""&Q_Ding&""" alt=""[顶]"" />")
		End If
		If Q_Suo<>"" Then
			Q_Str=Replace(Q_Str,"[锁]","<img src="""&Q_Suo&""" alt=""[锁]"" />")
		End If
		If Q_Re<>"" Then
			Q_Str=Replace(Q_Str,"[热]","<img src="""&Q_Re&""" alt=""[热]"" />")
		End If
		Q=Q_Str
	End Function
	Private Function TieZhiLieBiao()
		Dim Cn1,p,i,SQL
		p=s.QueryString_Long("p")
		If l="" Then
			SQL="Select id,MingChen,NiChen,DianJi,HuiFu,Qian From TieZhi Where Shan='0' And BanKuai="&ID&" Order By ZuiHouHuiFu Desc"
		Else
			SQL="Select id,MingChen,NiChen,DianJi,HuiFu,Qian From TieZhi Where Shan='0' And BanKuai="&ID&" And Qian Like '%[精]%' Order By ZuiHouHuiFu Desc"
		End If
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.RecordSet")
			Cn1.Open SQL,Conn,1,1
			Cn1.PageSize=Const_Page_Ys
			If Cn1.Eof Then TieZhiLieBiao="暂时没有贴子<br/>":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
				TieZhiLieBiao=TieZhiLieBiao&Q(Cn1("Qian"))&(p-1)*Const_Page_Ys+i&".<a href=""B;NeiRong.Asp?tp="&p&"&amp;TID="&Cn1("ID")&"&amp;l="&l&"&amp;ID="&ID&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a><br/>"&Cn1("NiChen")&"("&Cn1("DianJi")&"/"&Cn1("HuiFu")&")<br/>"
				Cn1.MoveNext
			Next
			TieZhiLieBiao=TieZhiLieBiao&CPage(Cn1.PageCount,P,"B;LieBiao.Asp?ID="&ID&"&amp;l="&l&"{(xkon.cn)链接}&amp;")
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
	End Function
	Private Function ShangJi()
		If DuQu_BanKuai(ID,"ShangJi_ID")="0" Then Exit Function
		ShangJi="<a href=""B;LieBiao.Asp?ID="&Read_BanKuai(ID,"ShangJi_ID")&"{(xkon.cn)链接}"">返回"&DuQu_BanKuai(ID,"ShangJi_Str")&"</a>"
	End Function
	Private Function xkon_FenXi1(xkon_FenXi1_Str)
		xkon_FenXi1=xkon_FenXi1_Str
		Dim Jing
		If l="" Then
			Jing="<a href=""B;LieBiao.Asp?ID="&ID&"&amp;l=j{(xkon.cn)链接}"">精华</a>"
		Else
			Jing="<a href=""B;LieBiao.Asp?ID="&ID&"&amp;l={(xkon.cn)链接}"">普通</a>"
		End If
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("管理员列表"),BanZhuLieBiao())
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("LOGO"),LOGO())
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("下级版面"),XiaJi())
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("贴子列表"),TieZhiLieBiao())
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("管理员账号"),DuQu_BanKuai(ID,"BanKuai_BanZhu"))
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("管理员昵称"),DuQu_BanKuai(ID,"BanZhu_NiChen"))
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("上级版面"),ShangJi())
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("编号"),ID)
		xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("精华"),Jing)
	End Function
	Call H_Title("{(xkon.cn)家族名称}-"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
	c.Write(xkon_FenXi(xkon_FenXi1(Read_Text("B;LieBiao"))))
	Call H_End()
Set c=Nothing
Set s=Nothing
%>