laba.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("0",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Function LieBiao()
		Dim Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select * From LaBa Order By ID Desc",Conn,1,1
		Cn1.PageSize=Const_Page_Ys
		If Cn1.Eof Then LieBiao="未找到任何记录":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
			LieBiao=LieBiao&"<a href=""ZiLiao.Asp?ZhangHao="&Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&Cn1("NiChen")&"</a>:"&Cn1("NeiRong")&"<br/>时间:"&Cn1("ShiJian")&"<br/>"
			Cn1.MoveNext
		Next
		LieBiao=LieBiao&CPage(Cn1.PageCount,p,"LaBa.Asp?l={(xkon.cn)链接}&amp;")
		Cn1.Close
		Set Cn1=Nothing
		Call CloseData()
	End Function
	Private Sub j()
		Call QuanXian("1",0)
		c.Write(xkon_FenXi(Read_Text("LaBa;j")))
	End Sub
	Private Sub j2()
		Call QuanXian("1",0)
		Dim NeiRong
		NeiRong=s.Form("NeiRong")
		Dim Cn1,Cn2,J_ID
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select ID From LaBa Order By ID Desc"
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			J_ID=1
		Else
			J_ID=Cn2("ID")+1
		End If
		Set Cn2=Nothing
		Set Cn1=Nothing
		Conn.Execute("Insert Into LaBa(ID,ZhangHao,NiChen,NeiRong,ShiJian)Values('"&J_ID&"','"&Zi_ZhangHao&"','"&Zi_NiChen&"','"&NeiRong&"','"&Now()&"')")
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("LaBa.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Call H_Title("社区喇叭")
		Dim l
		l=s.QueryString("l")
		Select Case l
		Case ""
			c.Write(xkon_FenXi(Replace(Read_Text("LaBa"),xkon_S("列表"),LieBiao())))
		Case "j"
			Call j()
		Case "j2"
			Call j2()
		End Select
	Call H_End()
Set c=Nothing
Set s=Nothing
%>