LT_TieZhi.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:6k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#Include File="../Inc/Head.Asp"--><%
- Private FangWen
- Set FangWen=New xkon_FangWen
- FangWen.FangWen()
- FangWen.TieZhi()
- Set FangWen=Nothing
- Private c,s
- Set c=New xkon_Response
- Set s=New xkon_Request
- Private Sub BanMian()
- Dim Cn1
- c.Write("版块:<select name=""BanMian"">")
- Call OpenData()
- Set Cn1=Server.CreateObject("Adodb.Recordset")
- Cn1.Open "Select id,BanKuai_MingChen From BanKuai Order By Id Desc",Conn,1,1
- Do While(Not Cn1.Eof)
- c.Write("<option value="""&Cn1("ID")&""">"&Cn1("BanKuai_MingChen")&"</option>")
- Cn1.MoveNext
- Loop
- Cn1.Close
- Set Cn1=Nothing
- Call CloseData()
- c.Write("</select>")
- End Sub
- Private Sub LieBiao()
- Dim p,i,Cn1
- p=s.QueryString("p")
- If p="" Then
- p=1
- Else
- p=Clng(p)
- End If
- Dim SQL,ShangJi_ID,ZhangHao,MingChen
- ShangJi_ID=s.QueryString_Long("ShangJi_ID")
- ZhangHao=s.QueryString("ZhangHao")
- MingChen=s.QueryString("MingChen")
- SQL="Select * From TieZhi"
- If ShangJi_ID="0" Or ShangJi_ID="" Then
- SQL=SQL&" Where 1=1"
- Else
- SQL=SQL&" Where BanKuai="&ShangJi_ID
- End If
- If ZhangHao="0" Or ZhangHao="" Then
- SQL=SQL&" And 1=1"
- Else
- SQL=SQL&" And HuiYuan='"&ZhangHao&"'"
- End If
- SQL=SQL&" And MingChen Like '%"&MingChen&"%' And Shan='0' Order By Id Desc"
- c.Write("<form method=""post"" action=""LT_TieZhi.Asp?ShangJi_ID="&ShangJi_ID&"&ZhangHao="&ZhangHao&"&MingChen="&MingChen&"""><table width=100% ><tr><td></td><td>ID</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>"&Mid(Cn1("MingChen"),1,20)&"</td><td>"&Cn1("NiChen")&"</td><td>"&Cn1("DianJi")&"</td><td>"&Cn1("HuiFu")&"</td><td>"&Cn1("Qian")&"</td><td><a href=""LT_TieZhi_CaoZuo.Asp?l=x&id="&Cn1("ID")&""">查看</a></td></tr>")
- Cn1.MoveNext
- Next
- c.Write("</table>")
- Call CPage(Cn1.PageCount,p,"LT_TieZhi.Asp?ShangJi_ID="&ShangJi_ID&"&ZhangHao="&ZhangHao&"&MingChen="&MingChen)
- Cn1.Close
- Set Cn1=Nothing
- Call CloseData()
- c.Write("批操作:<input type=""submit"" name=""submit"" value=""删除"" /><input type=""submit"" name=""submit"" value=""置顶"" /><input type=""submit"" name=""submit"" value=""精华"" /><input type=""submit"" name=""submit"" value=""锁定"" /><input type=""submit"" name=""submit"" value=""通过审核"" /><input type=""submit"" name=""submit"" value=""取消置顶"" /><input type=""submit"" name=""submit"" value=""取消精华"" /><input type=""submit"" name=""submit"" value=""解锁"" /><input type=""submit"" name=""submit"" value=""待审"" />")
- Call BanMian()
- c.Write("<input type=""submit"" name=""submit"" value=""转移"" /></form>")
- End Sub
- Private Sub CaoZuo()
- Dim C_ID,ID,BanMian
- BanMian=s.Form("BanMian")
- C_ID=Request.Form("ID")
- If C_ID="" Then
- Call xkon_Error("缺少操作对象")
- Else
- ID=Split(C_ID,",")
- Dim Cn1,Cn2,SQL,i
- Call OpenData()
- For i=0 To Ubound(ID)
- SQL="Select Qian From TieZhi Where ID="&Clng(ID(i))
- Set Cn1=Server.CreateObject("Adodb.Command")
- Cn1.ActiveConnection=Conn
- Cn1.CommandType=1
- Cn1.CommandText=SQL
- Set Cn2=Cn1.Execute
- If Cn2.Eof Then
- Call xkon_Error("发生意外")
- Response.End()
- Else
- Select Case submit
- Case "删除"
- SQL="Update TieZhi Set Shan='1' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("删除贴子"&ID(i))
- Case "精华"
- SQL="Update TieZhi Set Qian='"&Cn2("Qian")&"[精]' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("精华贴子"&ID(i))
- Case "锁定"
- SQL="Update TieZhi Set Qian='"&Cn2("Qian")&"[锁]' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("锁定贴子"&ID(i))
- Case "待审"
- SQL="Update TieZhi Set Qian='"&Cn2("Qian")&"[审]' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("通过审核贴子"&ID(i))
- Case "置顶"
- SQL="Update TieZhi Set Qian='"&Cn2("Qian")&"[顶]' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("置顶贴子"&ID(i))
- Case "取消置顶"
- SQL="Update TieZhi Set Qian='"&Replace(Cn2("Qian"),"[顶]","")&"' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("取消置顶贴子"&ID(i))
- Case "取消精华"
- SQL="Update TieZhi Set Qian='"&Replace(Cn2("Qian"),"[精]","")&"' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("取消精华贴子"&ID(i))
- Case "解锁"
- SQL="Update TieZhi Set Qian='"&Replace(Cn2("Qian"),"[锁]","")&"' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("解锁贴子"&ID(i))
- Case "通过审核"
- SQL="Update TieZhi Set Qian='"&Replace(Cn2("Qian"),"[审]","")&"' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("将贴子设为未审核"&ID(i))
- Case "转移"
- SQL="Update TieZhi Set BanKuai='"&BanMian&"' Where ID="&Clng(ID(i))
- Conn.Execute(SQL)
- Call JiLu("转移贴子"&ID(i))
- End Select
- End If
- Set Cn1=Nothing
- Set Cn2=Nothing
- Next
- Call CloseData()
- End If
- End Sub
- Private Sub LieBiao2()
- Dim Cn1
- c.Write("版块:<select name=""ShangJi_ID""><option value=""0"">全部</option>")
- Call OpenData()
- Set Cn1=Server.CreateObject("Adodb.Recordset")
- Cn1.Open "Select id,BanKuai_MingChen From BanKuai Order By Id Desc",Conn,1,1
- Do While(Not Cn1.Eof)
- c.Write("<option value="""&Cn1("ID")&""">"&Cn1("BanKuai_MingChen")&"</option>")
- Cn1.MoveNext
- Loop
- Cn1.Close
- Set Cn1=Nothing
- Call CloseData()
- c.Write("</select>")
- End Sub
- Call H_Title("管理贴子")
- Dim Submit
- Submit=s.Form("Submit")
- If Submit<>"" Then
- Call CaoZuo()
- End If
- Call LieBiao()
- c.Write("<form method=""get"" action=""LT_TieZhi.Asp"">")
- Call LieBiao2()
- c.Write("发贴人用户名:<input type=""text"" name=""ZhangHao"" value=""0"" />")
- c.Write("贴子名称:<input type=""Text"" name=""MingChen"" />")
- c.Write("<input type=""submit"" value=""搜索"" />")
- c.Write("</form>")
- Call H_End()
- Set c=Nothing
- Set s=Nothing
- %>