huiyuan.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.HuiYuan()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub LieBiao()
		Dim p,i,Cn1,SQL
		p=s.QueryString("p")
		If p="" Then
			p=1
		Else
			p=Clng(p)
		End If
		SQL="Select * From ZhangHao Order By ID Desc"
		c.Write("<form method=""post"" action=""HuiYuan.Asp""><table width=100% ><tr><td></td><td>ID</td><td>账号</td><td>密码</td><td>昵称</td><td>是否锁定</td><td>性别</td><td>注册时间</td><td>最后登陆时间</td><td></td><td></td><td></td></tr>")
		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
		For i=1 To 20
			If Cn1.Eof Then Exit For
			c.Write("<tr><td><input type=""checkbox"" name=""id"" value="""&Cn1("ID")&""" /></td><td>"&Cn1("ID")&"</td><td>"&Cn1("ZhangHao")&"</td><td>"&Cn1("MiMa")&"</td><td>"&Cn1("NiChen")&"</td><td>"&Zhuan(Cn1("SuoDing"))&"</td><td>"&XingBieed(Cn1("XingBie"))&"</td><td>"&Cn1("ZhuCeShiJian")&"</td><td>"&Cn1("ZuiHouDenLuShiJian")&"</td><td><a href=""HuiYuan_CaoZuo.Asp?l=x&amp;id="&Cn1("ID")&""">查看</a></td><td><a href=""HuiYuan_CaoZuo.Asp?l=b&amp;id="&Cn1("ID")&""">编辑</a></td><td><a href=""HuiYuan_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,"HuiYuan.Asp")
		Cn1.Close
		Set Cn1=Nothing
		Call CloseData()
		c.Write("操作:<input type=""submit"" name=""submit"" value=""锁定"" /><input type=""submit"" name=""submit"" value=""解锁"" /></form>")
	End Sub
	Private Sub Submit1()
		Dim SQL,ID,S_ID,i,a
		S_ID=Request.Form("ID")
		If S_ID="" Then
			Call xkon_Error("缺少操作对象")
		Else
			ID=Split(S_ID,",")
			SQL="Update ZhangHao Set"
			Select Case Submit
				Case "锁定"
					SQL=SQL&" SuoDing='1'"
					a=1
				Case "解锁"
					SQL=SQL&" SuoDing='0'"
					a=0
			End Select
			SQL=SQL&" Where"
			For i=0 To Ubound(ID)
				If i=0 Then
					SQL=SQL&" id="&Clng(ID(i))
				Else
					SQL=SQL&" Or ID="&Clng(ID(i))
				End If
			Next
			Call OpenData()
				Conn.Execute(SQL)
				Select Case a
				Case 1
					Call JiLu("锁定用户"&s.Form("ID"))
				Case 0
					Call JiLu("解锁用户"&s.Form("ID"))
				End Select
			Call CloseData()
		End If
	End Sub
	Call H_Title("会员管理")
	Dim Submit
	Submit=s.Form("Submit")
	If Submit<>"" Then
		Call Submit1()
	End If
	Call LieBiao
	Call H_End()
Set c=Nothing
Set s=Nothing
%>