sz_help.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.Admin_Help()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private lei
	lei=s.QueryString("lei")
	Private Function LieBiao(Lei)
		Call OpenData()
			Dim Cn1,p,i
			p=s.QueryString_long("p")
			Set Cn1=Server.CreateObject("Adodb.RecordSet")
			Cn1.Open "Select * From Help Where Lei='"&Lei&"' Order By ID DESC",Conn,1,1
			Cn1.PageSize=20
			If Not Cn1.Eof Then
				Cn1.AbsolutePage=p
			End If
			c.Write("<table width=100% >")
			c.Write("<tr><td>ID</td><td>标题</td><td>内容</td><td></td><td></td></tr>")
			For i=1 To 20
				If Cn1.Eof Then Exit For
				c.Write("<tr><td>"&Cn1("ID")&"</td><td>"&Cn1("Title")&"</td><td>"&Mid(Cn1("NeiRong"),1,20)&"</td><td><a href=""SZ_Help_CaoZuo.Asp?l=b&amp;id="&Cn1("ID")&"&amp;lei="&lei&""">编辑</a></td><td><a href=""SZ_Help_CaoZuo.Asp?l=s&amp;id="&Cn1("ID")&"&amp;lei="&lei&""" onClick=""if(confirm('确认删除')){return true;}else{return false;}"">删除</a></td></tr>")
				Cn1.MoveNext
			Next
			c.Write("</table>")
			Call CPage(Cn1.PageCount,p,"SZ_Help.Asp?Lei="&Lei)
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
	End Function
	Select Case Lei
	Case "0"
	Call H_Title("帮助管理")
	Case "1"
	Call H_Title("制度管理")
	Case "2"
	Call H_Title("公告管理")
	End Select
	c.Writeln("<a href=""Sz_Help_CaoZuo.Asp?Lei="&Lei&"&amp;l=j"">增加内容</a>")
	Call LieBiao(Lei)
	Call H_End()
Set c=Nothing
Set s=Nothing
%>