HuiYuan.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:3k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#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&id="&Cn1("ID")&""">查看</a></td><td><a href=""HuiYuan_CaoZuo.Asp?l=b&id="&Cn1("ID")&""">编辑</a></td><td><a href=""HuiYuan_CaoZuo.Asp?l=s&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
- %>