📄 zttz.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="66hc-sb.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%id=usb(request("id"))
if id="" then id="99999999999999"
fid=usb(request("fid"))
cz=usb(request("cz"))
if cz="1" then nnnn="解除精华"
if cz="2" then nnnn="设为精华"
if cz="3" then nnnn="解除封锁"
if cz="4" then nnnn="封锁帖子"
if cz="5" then nnnn="置顶帖子"
if cz="6" then nnnn="解除置顶"
if cz="7" then nnnn="删除帖子"
if cz="8" then nnnn="删除成功"
if cz="9" then nnnn="加黑作者"
if cz="10" then nnnn="加黑成功"
if cz="11" then nnnn="清除作者发帖"
if cz="12" then nnnn="清除成功"
if cz="13" then nnnn="批量封锁作者发帖"
if cz="14" then nnnn="批量封锁成功"
if cz="15" then nnnn="批量解锁作者发帖"
if cz="16" then nnnn="批量解锁成功"
if cz="17" then nnnn="解黑作者"
if cz="18" then nnnn="解黑成功"
if cz="19" then nnnn="设为总版"
if cz="20" then nnnn="设置总版成功"
if cz="21" then nnnn="设为巡查员"
if cz="22" then nnnn="巡查员设置成功"
if cz="19" then nnnn="撤除总版"
if cz="20" then nnnn="撤除总版成功"
if cz="21" then nnnn="撤除巡查员"
if cz="22" then nnnn="撤除员设置成功"
%>
<card id="main" title="<%=nnnn%>" >
<p>
<%set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from lttz where id="&id
rs.open rspl,conn,1,2
if rs.eof then
response.write("没有该帖子!<a href='http://66hc.net'>第六感</a>制作!<br/>")
else%>
<%if cz="1" then%>
<%
sql="update lttz set jj=0 where cstr(id)="&id
conn.Execute(sql)
%>
解除精华成功。。
<%elseif cz="2" then%>
<%
sql="update lttz set jj=1 where cstr(id)="&id
conn.Execute(sql)
%>
设为精华成功。。
<%elseif cz="3" then%>
<%
sql="update lttz set st=0 where cstr(id)="&id
conn.Execute(sql)
%>
解除封锁成功。。
<%elseif cz="4" then%>
<%
sql="update lttz set st=1 where cstr(id)="&id
conn.Execute(sql)
%>
封锁帖子成功。。
<%elseif cz="5" then%>
<%
sql="update lttz set dgtm='2100-10-10 12:12:12' where cstr(id)="&id
conn.Execute(sql)
%>
置顶帖子成功。。
<%elseif cz="6" then%>
<%
sql="update lttz set dgtm=now() where cstr(id)="&id
conn.Execute(sql)
%>
解除置顶成功。。
<%elseif cz="7" then%>
删除帖子
<a href="zttz.asp?sb=<%=sb%>&id=<%=usb(id)%>&cz=8">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<%elseif cz="8" then%>
<%
sql="delete from lttz Where CStr(id)='" & id & "'"
conn.Execute(sql)
sql="delete from mtjl Where CStr(tid)='" & id & "'"
conn.Execute(sql)
sql="delete from lthf Where CStr(tid)='" & id & "'"
conn.Execute(sql)
%>
删除成功成功。。
<%end if%>
<%end if%>
<%if cz="9" then%>
加黑作者
<a href="zttz.asp?sb=<%=sb%>&fid=<%=usb(fid)%>&id=<%=usb(id)%>&cz=10">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<%elseif cz="10" then%>
加黑成功成功。。
<%
sql="update 66hc_gr set grzt=2 where cstr(id)="&fid
conn.Execute(sql)
%>
<%elseif cz="11" then%>
清除作者发帖
<a href="zttz.asp?sb=<%=sb%>&id=<%=usb(id)%>&fid=<%=usb(fid)%>&cz=12">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<br/>
注意：一次清除的话卖帖记录与回复记录不会删除！<br/>
建议使用删除功能！
<%elseif cz="12" then%>
<%
sql="delete from lttz Where CStr(fid)='" & fid & "'"
conn.Execute(sql)
%>
清除成功。。
<%elseif cz="13" then%>
批量封锁作者发帖
<a href="zttz.asp?sb=<%=sb%>&id=<%=usb(id)%>&fid=<%=usb(fid)%>&cz=14">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<br/>
<%elseif cz="14" then%>
<%
sql="update lttz set st=1 where cstr(fid)='" & fid & "'"
conn.Execute(sql)
%>
批量封锁成功。。
<%elseif cz="15" then%>
批量封锁作者发帖
<a href="zttz.asp?sb=<%=sb%>&id=<%=usb(id)%>&fid=<%=usb(fid)%>&cz=16">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<br/>
<%elseif cz="16" then%>
<%
sql="update lttz set st=0 where cstr(fid)='" & fid & "'"
conn.Execute(sql)
%>
批量解锁成功。。
<%elseif cz="17" then%>
解黑会员
<a href="zttz.asp?sb=<%=sb%>&fid=<%=usb(fid)%>&id=<%=usb(id)%>&cz=18">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<%elseif cz="18" then%>
解黑成功成功。。
<%
sql="update 66hc_gr set grzt=0 where cstr(id)="&fid
conn.Execute(sql)
%>
<%elseif cz="19" then%>
设置为总版
<a href="zttz.asp?sb=<%=sb%>&fid=<%=usb(fid)%>&id=<%=usb(id)%>&cz=20">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<%elseif cz="20" then%>
设置总版成功。。
<%
sql="update 66hc_gr set ltzj=1 where cstr(id)="&fid
conn.Execute(sql)
%>
<%elseif cz="21" then%>
设置为巡查员
<a href="zttz.asp?sb=<%=sb%>&fid=<%=usb(fid)%>&id=<%=usb(id)%>&cz=22">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<%elseif cz="22" then%>
设置巡查员成功。。
<%
sql="update 66hc_gr set ltxcy=1 where cstr(id)="&fid
conn.Execute(sql)
%>
<%elseif cz="23" then%>
撤除总版
<a href="zttz.asp?sb=<%=sb%>&fid=<%=usb(fid)%>&id=<%=usb(id)%>&cz=24">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<%elseif cz="24" then%>
撤除总版成功。。
<%
sql="update 66hc_gr set ltzj=0 where cstr(id)="&fid
conn.Execute(sql)
%>
<%elseif cz="25" then%>
撤除巡查员
<a href="zttz.asp?sb=<%=sb%>&fid=<%=usb(fid)%>&id=<%=usb(id)%>&cz=26">是</a>|<a href="tz_gl.asp?sb=<%=sb%>&id=<%=usb(id)%>">否</a>
<%elseif cz="26" then%>
撤除巡查员成功。。
<%
sql="update 66hc_gr set ltxcy=0 where cstr(id)="&fid
conn.Execute(sql)
%>
<%else%>
未知错误！
<%end if%>
<br/>------------
<br/><a href="tzgl.asp?fs=<%=fs%>&sb=<%=sb%>">返回帖子管理</a><br/>
<a href="d_i.asp?fs=<%=fs%>&sb=<%=sb%>">返回管理首页</a><br/>
<a href="/index.asp?fs=<%=fs%>&sb=<%=sb%>">返回网站首页</a><br/>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -