📄 hywz.asp
字号:
<!--#include file="BBSLib.asp"-->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
Response.Write("对不起，您不是社区用户，请先注册！")
Response.End
end if
dim StarTime,EndTime
StarTime=timer()
'CheckLogin
if Request.QueryString("ACT") <> "" then
select case Request.QueryString("ACT")
case 0
ret = Command("310|"&Request.QueryString("RTID")&"|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该文章已被加入精华区！"
end if
case 1
ret = Command("312|"&Request.QueryString("RTID")&"|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该文章已被关闭！"
end if
case 2
ret = Command("311|"&Request.QueryString("RTID")&"|"&Request.QueryString("SCID")&"|"&"0"&"|"&Request.QueryString("ML"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该文章已被删除！"
end if
case 3
ret = Command("311|"&Request.QueryString("RTID")&"|"&Request.QueryString("SCID")&"|"&"1"&"|"&Request.QueryString("ML"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该回复已被删除！"
end if
case 4
ret = Command("108|"&Request.QueryString("RTID")&"|"&Request.QueryString("NC"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
if Request.Cookies("NC") = Application("NC") then
ShowMessage 3,"该人已被禁止进入社区！"
else
ShowMessage 3,"该人已被禁止进入您的论坛！"
end if
end if
case 5
ret = Command("118|"&Request.QueryString("NC"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该人已被加入您的好友名单！"
end if
case 6
ret = Command("340|"&Request.QueryString("RTID")&"|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该文章已被加入推荐！"
end if
case 7
ret = Command("347|"&Request.QueryString("RTID")&"|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该文章已被置顶！"
end if
case 8
ret = Command("348|"&Request.QueryString("RTID")&"|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该文章已被取消置顶！"
end if
case 9
ret = Command("3122|"&Request.QueryString("RTID")&"|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该主题已被打开！"
end if
case 10
ret = Command("3400|"&Request.QueryString("RTID")&"|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
else
ShowMessage 3,"该文章已被取消推荐！"
end if
case 11
ret = Command("303|"&Request.QueryString("ID")&"|"&Request.Form("rWZJD")&"|"&ConvertStr(FilterStr(Request.Form("tWZNR"))))
Response.Redirect "hywz.asp?ID="&Request.QueryString("ID")&"&RTPAGE="&Request.QueryString("RTPAGE")&"&BER="&Request.QueryString("BER")&"&LB="&Request.QueryString("LB")&"&RTID="&Request.QueryString("RTID")&"&PAGE="&Request.QueryString("PAGE")
end select
Response.End
end if
if Request.QueryString("PAGE") = "" then
PAGE = 1
else if Int(Request.QueryString("PAGE")) < 1 then
PAGE = 1
else
PAGE = Int(Request.QueryString("PAGE"))
end if
end if
ret = CommandEx("304|"&Request.QueryString("ID")&"|"&PAGE)
if GetPart(ret(0),1) <> "0" then
ShowError 1,GetPart(ret(0),2)
Response.End
end if
if PAGE > Int(GetPart(ret(0),2))/Int(Application("MYWZS"))+1 then
PAGE = 1
end if
if Int(GetPart(ret(0),2)) < 1 then
TOTALPAGE = 1
else if Int(GetPart(ret(0),2)) mod Int(Application("MYWZS")) = 0 then
TOTALPAGE = Int(Int(GetPart(ret(0),2))/Int(Application("MYWZS")))
else
TOTALPAGE = Int(Int(GetPart(ret(0),2))/Int(Application("MYWZS")))+1
end if
end if
%>
<html>
<head>
<TITLE><%=GetPart(ret(1),2)%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 12px}
body { font-family: "宋体"; font-size: 12px}
.p9 { font-family: "宋体"; font-size: 12px}
.p10 { font-family: "宋体"; font-size: xx-small;COLOR:#999999}
.14{ line-height:22px;font-size:12px}
.TButton { font-family: "宋体"; font-size: 12px;cursor:hand;HEIGHT: 20px; WIDTH: 66px}
A:link{font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:12px;COLOR: red; TEXT-DECORATION: underline}
-->
</style>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function bFH_onclick() {
window.location.replace('ltlb.asp?NC=<%=Request.QueryString("NC")%>&PAGE=<%=Request.QueryString("RTPAGE")%>&BER=<%=Request.QueryString("BER")%>&LB=<%=Request.QueryString("LB")%>');
}
function JRJH() {
if (window.confirm('真的要将该文章加入精华区吗？')) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT=0');
}
}
function GBZT() {
if (window.confirm('真的要关闭该主题吗？')) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT=1');
}
}
function KFZT() {
if (window.confirm('真的要开放该主题吗？')) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT=9');
}
}
function SCZT(lb,id,ml) {
if (window.confirm('真的要删除该主题吗？')) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT='+lb+'&SCID='+id+'&ML='+ml);
}
}
function JB(nc) {
if (window.confirm('真的要禁闭该人吗？')) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ACT=4&NC='+nc);
}
}
function TJ() {
if (window.confirm('真的要推荐该文章吗（只有版主才有此权限）？')) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT=6');
}
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -