📄 bbs_detail.asp
字号:
<table cellSpacing="0" cellPadding="3" width="100%" align="center" border="0">
<tr>
<td> 操作选项：<select size="1" name="tt" class="input">
<option value="1">├ 奖惩主题贴</option>
<option value="2">├ 将此贴移动</option>
<option value="3"><%if rs("hx66_top")=3 then%>├ 解除总固顶<%else%>├ 设为总固顶<%end if%></option>
<option value="4"><%if rs("hx66_top")=1 then%>├ 解除版固顶<%else%>├ 设为版固顶<%end if%></option>
<option value="5"><%if rs("hx66_level")=1 then%>├ 解除精华贴<%else%>├ 设为精华贴<%end if%></option>
<option value="6"><%if rs("hx66_close")=1 then%>├ 解除锁定贴<%else%>├ 设为锁定贴<%end if%></option>
</select>
奖惩积分：
<select name="point" size=1 class="input">
<option value="-30" >-30</option>
<option value="-29" >-29</option>
<option value="-28" >-28</option>
<option value="-27" >-27</option>
<option value="-26" >-26</option>
<option value="-25" >-25</option>
<option value="-24" >-24</option>
<option value="-23" >-23</option>
<option value="-22" >-22</option>
<option value="-21" >-21</option>
<option value="-20" >-20</option>
<option value="-19" >-19</option>
<option value="-18" >-18</option>
<option value="-17" >-17</option>
<option value="-16" >-16</option>
<option value="-15" >-15</option>
<option value="-14" >-14</option>
<option value="-13" >-13</option>
<option value="-12" >-12</option>
<option value="-11" >-11</option>
<option value="-10" >-10</option>
<option value="-9" >-9</option>
<option value="-8" >-8</option>
<option value="-7" >-7</option>
<option value="-6" >-6</option>
<option value="-5">-5</option>
<option value="-4" >-4</option>
<option value="-3" >-3</option>
<option value="-2" >-2</option>
<option value="-1" >-1</option>
<option value="0" selected>0</option>
<option value="1" >1</option>
<option value="2" >2</option>
<option value="3" >3</option>
<option value="4" >4</option>
<option value="5" >5</option>
<option value="6" >6</option>
<option value="7" >7</option>
<option value="8" >8</option>
<option value="9" >9</option>
<option value="10" >10</option>
<option value="11" >11</option>
<option value="12" >12</option>
<option value="13" >13</option>
<option value="14" >14</option>
<option value="15" >15</option>
<option value="16" >16</option>
<option value="17" >17</option>
<option value="18" >18</option>
<option value="19" >19</option>
<option value="20" >20</option>
<option value="21" >21</option>
<option value="22" >22</option>
<option value="23" >23</option>
<option value="24" >24</option>
<option value="25" >25</option>
<option value="26" >26</option>
<option value="27" >27</option>
<option value="28" >28</option>
<option value="29" >29</option>
<option value="30" >30</option>
</select>
贴子移动：<select size="1" name="hx66_bid" class="input">
<option value="">选择目标版块</option>
<%
sql="select * from hx66_bbsinfo"
set rss=server.createobject("adodb.recordset")
rss.open sql,conn,1,1
do while not rss.eof
%>
<option value="<%=rss("id")%>"> ├ <%=rss("hx66_bbstitle")%></option>
<%
rss.movenext
loop
rss.close
set rss=nothing%>
</select>
</td></tr>
<tr>
<td> 简短说明：<input type="text" name="rew_title" value="" class="input" size="50"> <=50字 短信通知：<input type="checkbox" name="dxyes" value="1"> <input type="submit" name="Submit" value="管理操作" class="input">
</td></tr></form>
</table>
</td></tr>
<%else%>
<tr>
<td height="25"> <a href="list.asp?bid=<%=hx66_bid%>">返回列表</a> <a href="#">返回顶部</a></td></tr>
<%end if%>
</table>
<%end if%>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub
sub showhflist()
Dim CurPage,Url_Add
Url_Add="?bid="&bid&"&aid="&aid&"&"
If Request.QueryString("Page")<>"" Then
Curpage=Request.QueryString("Page")
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If
dim sql,tbdate
sql="select * from hx66_saybbs,hx66_uinfo where hx66_saybbs.hx66_iid="&aid&" and hx66_saybbs.hx66_user=hx66_uinfo.hx66_uname and hx66_saybbs.hx66_hdelete=0 order by hx66_saybbs.hx66_time,hx66_saybbs.id ASC"
'sql="select * from hx66_saybbs,hx66_uinfo where hx66_saybbs.hx66_iid="&aid&" and hx66_saybbs.hx66_user=hx66_uinfo.hx66_uname and hx66_saybbs.hx66_hdelete=0 order by hx66_saybbs.hx66_time DESC"
set tbdate=server.createobject("adodb.recordset")
tbdate.open sql,conn,1,1
Dim bbs_Nums,MultiPages,icount,j
bbsperpage=10
j=0
tbdate.PageSize=bbsperpage
tbdate.AbsolutePage=CurPage
bbs_Nums=tbdate.RecordCount
MultiPages="共有："&bbs_Nums&"条 "&MultiPage(bbs_Nums,bbsperpage,CurPage,Url_Add)&""
Do Until tbdate.EOF OR icount=bbsperpage
NO=bbsperpage*(Curpage-1)+icount+1
%>
<table class="table-hx66s" cellSpacing="5" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<tr>
<td>
<table bgcolor='#ffffff' borderColor='#e6e6e6' Border='1' Cellspacing='0' Cellpadding='0' width='740' align='Center' style="border-collapse: collapse">
<tr>
<td height='30' width='110' align='center'><a href="viewperson.asp?bid=<%=bid%>&author=<%=server.urlencode(tbdate("hx66_uname"))%>" Title="查看该用户详细资料"><%=tbdate("hx66_uname")%></a></td>
<td colspan='2'>
<table Cellspacing='0' Cellpadding='0' Border='0' width='100%'>
<tr>
<td width='35%'> 回复于：<%=tbdate("hx66_time")%></td>
<td width='53%' align="right"><a href="reannounce.asp?bid=<%=bid%>&aid=<%=aid%>&id=<%=tbdate("id")%>&reply=true" Title="引用此回贴"><img src=images/quote.gif border='0'></a> <a href="reannounce.asp?bid=<%=bid%>&aid=<%=aid%>&id=<%=tbdate("id")%>" Title="点击回贴"><img src=images/replys.gif border='0'></a> <a href="hfedit.asp?aid=<%=aid%>&bid=<%=bid%>&id=<%=tbdate("id")%>" Title="编辑此回贴"><img src=images/reply.gif border='0'></a> <a href="hfdel.asp?bid=<%=bid%>&action=close&id=<%=tbdate("id")%>" Title="屏蔽/恢复此回贴" onClick="return confirm('确定屏蔽或恢复此回贴吗?');"><img src=images/lock0.gif border='0'></a> <a href="hfdel.asp?bid=<%=bid%>&action=del&id=<%=tbdate("id")%>" Title="删除此回贴" onClick="return confirm('确定删除此回贴吗?');"><img src=images/del.gif border='0'></a></td><td width='12%' align="right">第<font color=red> <%=NO%></font> 楼 </td>
</tr>
</table>
</td>
</tr>
<tr style='width: 200px; word-wrap: break-word'>
<td height='100' width='110' valign=top rowspan="2"><div style="padding-top:5px;padding-bottom:5px;" align='center'><%If tbdate("hx66_photo")<>"" Then%><img src="<%=tbdate("hx66_photo")%>" width="80" Border=0><%else%><img src=../img/face/09.gif><%End If%></div><div style="padding-left:10px;padding-top:5px;"><%call showaud(tbdate("hx66_uname"))%></div></td>
<td valign="top">
<table cellSpacing="10" cellPadding="0" width="100%" align="center" border="0" bgcolor=#FFFFFF style="border-collapse: collapse;table-layout: fixed;" height="230">
<tr>
<td valign="top">
<%
if tbdate("hx66_html")=1 then
if tbdate("hx66_close")=0 then
response.write ubbb2(tbdate("hx66_text"))
elseif tbdate("hx66_close")=1 and checkbbsadmin(bid)=0 and checkadmin(ckuname)<3 then
response.write "<center><font color=#FF0000>─────≡ 此回贴已被屏蔽 ≡─────</font></center>"
elseif tbdate("hx66_close")=1 then
response.write "<center><font color=#1E90FF>─────≡ 此回贴以下内容已屏蔽 ≡─────</font></center>"
response.write ubbb2(tbdate("hx66_text"))
end if
else
if tbdate("hx66_close")=0 then
response.write sart(ubbcode(tbdate("hx66_text")))
elseif tbdate("hx66_close")=1 and checkbbsadmin(bid)=0 and checkadmin(ckuname)<3 then
response.write "<center><font color=#FF0000>─────≡ 此回贴已被屏蔽 ≡─────</font></center>"
elseif tbdate("hx66_close")=1 then
response.write "<center><font color=#1E90FF>─────≡ 此回贴以下内容已屏蔽 ≡─────</font></center>"
response.write sart(ubbcode(tbdate("hx66_text")))
end if
end if
%>
</td>
</tr>
<tr>
<td align="right" height="20"><img src="images/sigline.gif"></td>
</tr>
<tr>
<td>
<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" bgcolor=#FFFFFF style="border-collapse: collapse;table-layout: fixed;">
<tr>
<td align="right">
<%
if tbdate("hx66_close")=1 then
response.write "<font color=#FF0000>──≡ 此签名随同贴一起屏蔽 ≡──</font>"
else%>
<%=sart(ubbcode(tbdate("hx66_qming")))%>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
<%if int(tbdate("hx66_point"))<>0 then
hx66_rewbodyh=Trim(tbdate("hx66_rewbody"))
if hx66_rewbodyh<>"" then hx66_rewbodyh=split(Trim(tbdate("hx66_rewbody")),"|||")
%>
<tr>
<td style="BORDER-BOTTOM: #000000 1px dotted;BORDER-top: #000000 1px dotted;BORDER-LEFT: #000000 1px dotted ;BORDER-RIGHT: #000000 1px dotted;padding-LEFT:5px;">
<LI>此贴奖惩：<font color=red><%=int(tbdate("hx66_point"))%></font> 分</LI>
<LI>奖惩评语：<%=hx66_rewbodyh(0)%></LI>
<LI>奖惩操作：<%=hx66_rewbodyh(1)%></LI>
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
<%if checkbbsadmin(bid)<>0 or checkadmin(ckuname)>=3 then%>
<iframe name="Hx666" style="display:none"></iframe><form method="post" action="hfdel.asp?bid=<%=bid%>&action=rewards&id=<%=tbdate("id")%>" target="Hx666" name=FrontPage_Form1<%=j%> onsubmit="return FrontPage_Form1<%=j%>_Validator(this)">
<script>
<!--
function showimg1<%=j%>(){
if (document.FrontPage_Form1<%=j%>.hx66<%=j%>.checked == true) {
img1<%=j%>.style.display = "";
advance1<%=j%>.innerText="关闭操作"
}else{
img1<%=j%>.style.display = "none";
advance1<%=j%>.innerText="奖惩操作"
}
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<tr>
<td height="25"> 回贴IP：<%=tbdate("hx66_ip")%> <a href="list.asp?bid=<%=bid%>">返回列表</a> <a href="#">返回顶部</a> <FONT color=#cc6600><span id=advance1<%=j%>>奖惩操作</span></FONT><input type="checkbox" name="hx66<%=j%>" value=1 onClick=showimg1<%=j%>()></TD>
</TR>
<TR id="img1<%=j%>" style="display: none">
<TD colspan='3' height="30">
奖惩积分：<select name="point" size=1 class="input">
<option value="-30" >-30</option>
<option value="-29" >-29</option>
<option value="-28" >-28</option>
<option value="-27" >-27</option>
<option value="-26" >-26</option>
<option value="-25" >-25</option>
<option value="-24" >-24</option>
<option value="-23" >-23</option>
<option value="-22" >-22</option>
<option value="-21" >-21</option>
<option value="-20" >-20</option>
<option value="-19" >-19</option>
<option value="-18" >-18</option>
<option value="-17" >-17</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -