help.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=new xkon_Request
	Private Sub Help_LieBiao()
		Dim Cn1,p,i,NeiRong
		p=s.QueryString_Long("p")
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.RecordSet")
			Cn1.Open "Select ID,Title From Help Where Lei='"&l&"' Order By ID Desc",Conn,1,1
			Cn1.PageSize=Const_Page_Ys
			If Cn1.Eof Then Call xkon_Error("未找到任何记录")
			Cn1.AbsolutePage=p
			For i=1 To Const_Page_Ys
				If Cn1.Eof Then Exit For
				NeiRong=NeiRong&"<a href=""Help.Asp?l="&l&"&amp;ID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("Title")&"</a><br/>"
				Cn1.MoveNext
			Next
			NeiRong=NeiRong&CPage(Cn1.PageCount,p,"Help.Asp?l="&l&"{(xkon.cn)链接}&amp;")
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
		c.Write(xkon_FenXi(NeiRong))
	End Sub
	Private Sub NeiRong_LieBiao()
		Dim Cn1,Cn2
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select NeiRong From Help Where ID="&ID
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then Call xkon_Error("未找到任何记录")
		c.Write(xkon_FenXi(Cn2("NeiRong")&"<br/><a href=""Help.Asp?l="&l&"{(xkon.cn)链接}"">返回上级</a>"))
		Set Cn2=Nothing
		Set Cn1=Nothing
		Call CloseData()
	End Sub
	Call H_Title("社区帮助")
	Dim l,ID
	l=s.QueryString("l")
	ID=s.QueryString("ID")
	If ID="" Then
		Call Help_LieBiao()
	Else
		ID=Clng(ID)
		Call NeiRong_LieBiao()
	End If
	Call H_End()
Set c=Nothing
Set s=Nothing
%>