lt_banzhu.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 77 行

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.BanZhu()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub LieBiao()
		Dim Cn1,p,i
		p=s.QueryString("p")
		If p="" Then
			p=1
		Else
			p=Clng(p)
		End If
		Dim SQL
		SQL="Select * From BanZhu"
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Recordset")
			Cn1.open SQL,Conn,1,1
			Cn1.PageSize=20
			If Not Cn1.Eof Then
				Cn1.AbsolutePage=p
			End If
			c.Write("<form method=""post"" action=""LT_BanZhu.Asp""><table width=100% ><tr><td></td><td>ID</td><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><input name=""id"" type=""checkbox"" value="""&Cn1("ID")&""" /></td><td>"&Cn1("ID")&"</td><td>"&Cn1("BanKuai")&"</td><td>"&Cn1("MingChen")&"</td><td>"&Cn1("HuiYuan")&"</td><td><a href=""LT_BanZhu_CaoZuo.Asp?l=b&amp;id="&Cn1("ID")&""">编辑</a></td><td><a href=""LT_BanZhu_CaoZuo.Asp?l=s&amp;id="&Cn1("ID")&""" onClick=""if(confirm('确认删除')){return true;}else{return false;}"">删除</a></td></tr>")
				Cn1.MoveNext
			Next
			c.Write("</table>")
			Call CPage(Cn1.PageCount,p,"LT_BanZhu.Asp")
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
		c.Write("操作:<input type=""submit"" name=""submit"" value=""删除"" /></form>")
	End Sub
	Private Sub Delete()
		Dim iID,ID,i,SQL
		iID=Request.Form("ID")
		If iID="" Then
			Call xkon_Error("请先选中操作对象")
		Else
			ID=Split(iID,",")
			SQL="Delete From BanZhu"
			For i=0 To Ubound(ID)
				If ID(i)="" Then
					Call xkon_Error("参数提交错误")
					Response.End()
				Else
					If i=0 Then
						SQL=SQL&" Where ID="&Clng(ID(i))
					Else
						Sql=Sql&" Or ID="&Clng(ID(i))
					End If
				End If
			Next
			Call OpenData()
				Conn.Execute(Sql)
				Call JiLu("删除版主"&s.Form("ID"))
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""LT_BanZhu.Asp"";</script>")
	Response.End()
		End If
	End Sub
	Call H_Title("版主管理")
	If s.Form("submit")<>"" Then
		Call Delete()
	End If
	c.Writeln("<a href=""LT_BanZhu_CaoZuo.Asp?l=j"">增加版主</a>")
	Call LieBiao()
	Call H_End()
Set c=Nothing
Set s=Nothing
%>