index.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub LaBa()
		Application("LaBa")=""
		Dim Cn1,i
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select NiChen,NeiRong From LaBa Order By ID Desc",Conn,1,1
		For i=1 To Clng(Read_SZ("Shu_LaBa"))
			If Cn1.Eof Then Exit For
			Application("LaBa")=Application("LaBa")&Cn1("NiChen")&":"&Cn1("NeiRong")&"<br/>"
			Cn1.MoveNext
		Next
		Cn1.Close
		Set Cn1=Nothing
	End Sub
	Private Sub XinTieBa()
		Application("XinTieBa")=""
		Dim Cn1,i
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select ID,BanKuai_MingChen From BanKuai Order By ID Desc",Conn,1,1
		For i=1 To Clng(Read_SZ("Shu_XinTieBa"))
			If Cn1.Eof Then Exit For
			Application("XinTieBa")=Application("XinTieBa")&"<a href=""B;LieBiao.Asp?ID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("BanKuai_MingChen")&"</a><br/>"
			Cn1.MoveNext
		Next
		Cn1.Close
		Set Cn1=Nothing
	End Sub
	Private Sub ReTieBa()
		Application("ReTieBa")=""
		Dim Cn1,i
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select ID,BanKuai_MingChen From BanKuai Order By ChengYuan_Shu Desc",Conn,1,1
		For i=1 To Clng(Read_SZ("Shu_XinTieBa"))
			If Cn1.Eof Then Exit For
			Application("ReTieBa")=Application("ReTieBa")&"<a href=""B;LieBiao.Asp?ID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("BanKuai_MingChen")&"</a><br/>"
			Cn1.MoveNext
		Next
		Cn1.Close
		Set Cn1=Nothing
	End Sub
	Private Sub XinHuiYuan()
		Application("XinHuiYuan")=""
		Dim Cn1,i
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select NiChen,ZhangHao From ZhangHao Order By ID Desc",Conn,1,1
		For i=1 To Clng(Read_SZ("Shu_XinHuiYuan"))
			If Cn1.Eof Then Exit For
			Application("XinHuiYuan")=Application("XinHuiYuan")&"<a href=""ZiLiao.Asp?ZhangHao="&Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&Cn1("NiChen")&"</a><br/>"
			Cn1.MoveNext
		Next
		Cn1.Close
		Set Cn1=Nothing
	End Sub
	Private Sub XinTieZhi()
		Application("XinTieZhi")=""
		Dim Cn1,i
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select MingChen,ID,BanKuai From TieZhi Order By ID Desc",Conn,1,1
		For i=1 To CLng(Read_SZ("Shu_XinTieZhi"))
			If Cn1.Eof Then Exit For
			Application("XinTieZhi")=Application("XinTieZhi")&"<a href=""B;NeiRong.Asp?ID="&Cn1("BanKuai")&"&amp;TID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a><br/>"
			Cn1.MoveNext
		Next
		Cn1.Close
		Set Cn1=Nothing
	End Sub
	Private Sub ReTieZhi()
		Application("ReTieZhi")=""
		Dim Cn1,i
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select MingChen,ID,BanKuai From TieZhi Order By HuiFu Desc",Conn,1,1
		For i=1 To CLng(Read_SZ("Shu_XinTieZhi"))
			If Cn1.Eof Then Exit For
			Application("ReTieZhi")=Application("ReTieZhi")&"<a href=""B;NeiRong.Asp?ID="&Cn1("BanKuai")&"&amp;TID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a><br/>"
			Cn1.MoveNext
		Next
		Cn1.Close
		Set Cn1=Nothing
	End Sub
	Private Sub GengXin()
		Call OpenData()
		Call LaBa()
		Call XinTieBa()
		Call ReTieBa()
		Call XinHuiYuan()
		Call XinTieZhi()
		Call ReTieZhi()
		Call CloseData()
		Application("HuanCun_ShiJian")=Now()
	End Sub
	If Application("HuanCun_ShiJian")="" Then Call GengXin()
	If Application("HuanCun_ShiJian")<DateAdd("n",-Clng(Read_SZ("ShuaXin_HuanCun")),Now()) Then Call GengXin()
	Dim NeiRong
	NeiRong=Read_Text("Index")
	NeiRong=Replace(NeiRong,xkon_S("喇叭"),Application("LaBa"))
	NeiRong=Replace(NeiRong,xkon_S("新家族"),Application("XinTieBa"))
	NeiRong=Replace(NeiRong,xkon_S("热家族"),Application("ReTieBa"))
	NeiRong=Replace(NeiRong,xkon_S("新会员"),Application("XinHuiYuan"))
	NeiRong=Replace(NeiRong,xkon_S("新贴子"),Application("XinTieZhi"))
	NeiRong=Replace(NeiRong,xkon_S("热贴子"),Application("ReTieZhi"))
	NeiRong=Replace(NeiRong,xkon_S("LOGO"),Read_SZ("LT_LOGO"))
	Call H_Title("首页")
	c.Write(xkon_FenXi(NeiRong))
	Call H_End()
Set c=Nothing
Set s=Nothing
%>