📄 bbs_detail.asp
字号:
<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> 奖惩评语：<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>
<%else%>
<tr>
<td height="25"> <a href="list.asp?bid=<%=bid%>">返回列表</a> <a href="#">返回顶部</a></td></tr>
<%end if%>
</table>
</td>
</tr>
</table>
<%
j=j+1
icount=icount+1
'if icount>=datenum then exit do
tbdate.movenext
loop
%>
<table class="table-hx66s" cellSpacing="1" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<tr>
<td>
<table cellSpacing="0" cellPadding="0" width="740" align="center" border="0">
<tr>
<td align="right" height="30"><%=MultiPages%> </td>
</tr>
</table>
</td>
</tr>
</table>
<%
'end if
tbdate.close
set tbdate=nothing
end sub
sub showhfform()
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_bbs where hx66_bid="&bid&" and id="&aid
rs.open sqlstr,conn,1,3
if rs.eof then showmsg("没有找到指定的主题")
if rs("hx66_close")=0 then
if UserLogined=True and checkziduan(3)<>2 then
%>
<table class="table-hx66s" cellSpacing="6" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<TR>
<td><FONT color=#b70000> <B>·</B></FONT>快捷回复 <%if showset=1 or checkadmin(ckuname)>0 then%><a href="reannounce.asp?bid=<%=bid%>&aid=<%=aid%>&html=1" Title="点击按HTML编辑器回贴"><FONT color=red>[切换至HTML编辑器]</FONT></a><%end if%> <b><%=username%></b> 在此发表回贴</td>
</TR>
<TR>
<TD>
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
<TBODY>
<FORM name=FrontPage_Form1 onsubmit="return FrontPage_Form1_Validator(this)" action="bbs_send.asp?type=hf&aid=<%=aid%>&bid=<%=bid%>" method=post>
<TR>
<TD width=20%>
<FONT color=#cc6600> 字 体：<BR> UBB标签：</FONT></DIV></TD> <TD width=80%><!--#include file="getubb.asp" --> <script language="JavaScript" src="inc/code.js"></script>
</TD>
</TR>
<TR>
<TD vAlign=top width=20%>
<P><FONT color=#cc6600> 内 容：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML×<BR><FONT color=#b70000> <B>·</B></FONT>UBB √</P><P><FONT color=#cc6600> 特殊内容</FONT><BR><FONT color=#b70000> <B>·</B></FONT><font title="内容只有版主可见" style="CURSOR: hand" onclick="FontType('[MASTER]','[/MASTER]')">悄悄话</font><BR><FONT color=#b70000> <B>·</B></FONT><font title="内容加锁，查看需要口令" style="CURSOR: hand" onclick="LockPassd()">密码锁</font><BR><font title="内容回复可见" style="CURSOR: hand" onclick="FontType('[showtoreply]','[/showtoreply]')"><FONT color=#b70000> <B>·</B></FONT>回复贴</font></P></TD>
<TD width=80%> <TEXTAREA id="Content" class=input name=body rows=10 cols=74 onkeydown=ctlent() title="可以使用Ctrl+Enter直接提交贴子"></TEXTAREA><input type=hidden name=hx66htm value=0>
</TD></TR>
<!--#include file="bqimg.asp" -->
</TBODY></TABLE></TD></TR><TR>
<TD height=30>
<DIV align="center"><input type="submit" value="发表回贴" name="Submit"> [可用Ctrl+Enter直接提交贴子]</DIV></TD></TR></form>
</TABLE>
<%
end if
else
%>
<table class="table-hx66s" cellSpacing="16" cellPadding="0" width="760" align="center" border="0" bgcolor="#FFFFFF">
<tr>
<td align="center"><FONT color=red>本帖已经被管理员设置为锁定状态</FONT></td>
</tr>
</table>
<%
end if
end sub
%>
<%sub showhfform1()
dim htuser,dateandtime
dim id:id=checknum(request.querystring("id"))
if request("reply")="true" then
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_saybbs where hx66_hdelete=0 and id="&id
rs.open sqlstr,conn,1,1
if rs.eof then showmsg("没有找到指定的主题")
htuser=rs("hx66_user")
dateandtime=rs("hx66_time")
hx66close=rs("hx66_close")
if hx66close=1 then
response.write"<SCRIPT language=JavaScript>alert(' 本贴已被屏蔽不能进行此操作，请 返 回 ！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
'if request("reply")="true" then
If (InStr(Lcase(Rs("hx66_text")),"[locked=")+InStr(Lcase(Rs("hx66_text")),"[/locked]")+InStr(Lcase(Rs("hx66_text")),"[master]")+InStr(Lcase(Rs("hx66_text")),"[/master]")+InStr(Lcase(Rs("hx66_text")),"[showtoreply]")+InStr(Lcase(Rs("hx66_text")),"[/showtoreply]"))>1 Then
con="[color=red]（此回贴含有特殊内容）[/color]"
Else
con = leftshow(rs("hx66_text"),300)
con = Replace(con, " ", CHR(32))
con = replace(con, ">", ">")
con = replace(con, "<", "<")
con = Replace(con, "</P><P>",CHR(10) & CHR(10))
con = Replace(con, "</P>","")
con = Replace(con, "<P>","")
con = Replace(con, "<BR>", CHR(10))
End If
content = "[quote][b]以下是引用 [i]"&htuser&"在"&dateandtime&"[/i] 的发言：[/b]" & chr(13)
content = content & con & chr(13)
content = content & "[/quote]"
else
content=""
end if
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_bbs where hx66_bid="&bid&" and id="&aid
rs.open sqlstr,conn,1,3
if rs.eof then showmsg("没有找到指定的主题")
if rs("hx66_close")=0 then
%>
<table class="table-hx66s" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<TR>
<TD>
<script language="JavaScript" src="inc/code.js"></script>
<%
if (showset=1 or checkadmin(ckuname)>0) and checknum(request.querystring("html"))=1 then
%>
<script language="javascript">
function edit1(){
IframeID.document.body.innerHTML=document.all("body").value;
document.all("body").value="";}
function chk(){
document.all("body").value=IframeID.document.body.innerHTML;
if(document.form.title.value==""){
alert("主题不能为空");
document.form.title.focus();
return false;}
if(IframeID.document.body.innerHTML==""){
alert("内容不能为空");
IframeID.document.body.focus();
return false;}
return true;}
</Script>
<body onload="return edit1();">
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
<TBODY>
<FORM name=FrontPage_Form1 id="form" onsubmit="return chk();" action="bbs_send.asp?type=hf&aid=<%=aid%>&bid=<%=bid%>" method=post>
<TR>
<td width="60%" align="center" colSpan=2 height=30><b><%=username%></b> 在此发表回贴</td>
</TR>
<TR>
<TD width=20% valign="top" height=30><BR>
<P> <FONT color=#cc6600> HTML标签：</FONT><BR><FONT color=#b70000> <B>·</B></FONT><a href="reannounce.asp?bid=<%=bid%>&aid=<%=aid%>&id=<%=checknum(request.querystring("id"))%>"><FONT color=red>切换至UBB编辑模式</FONT></a></P><P> </P><P><FONT color=#cc6600> 内 容：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML√<BR><FONT color=#b70000> <B>·</B></FONT>UBB ×</P><P><FONT color=#cc6600> 特殊内容</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML状态禁用特殊功能</P></TD>
<TD width=80%><!--#include file="gethtml.asp" -->
<textarea name="body" cols="50" rows="50" id="content" style="display:none"><%=server.htmlencode(content)%></TEXTAREA><input type=hidden name=hx66htm value=1></td>
</TR>
</TABLE>
<%
else
%>
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
<TBODY>
<FORM name=FrontPage_Form1 onsubmit="return FrontPage_Form1_Validator(this)" action="bbs_send.asp?type=hf&aid=<%=aid%>&bid=<%=bid%>" method=post>
<TR>
<td width="60%" align="center" colSpan=2 height=30><b><%=username%></b> 在此发表回贴</td>
</TR>
<TR>
<TD width=20% height=30> <FONT color=#cc6600>文件上传：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>上传1文件需20积分</TD><TD width=80%><%if checknum(canupload)=1 or checkadmin(ckuname)>=3 then%><IFRAME name=ad src="upload.asp" frameBorder=0 width="100%" scrolling=no height=28></IFRAME><%else%> 上传文件功能已被管理员关闭<%end if%></td>
</TR>
<TR>
<TD width=20%> <FONT color=#cc6600> UBB标签：</FONT><BR><%if showset=1 or checkadmin(ckuname)>0 then%><FONT color=#b70000> <B>·</B></FONT><a href="reannounce.asp?bid=<%=bid%>&aid=<%=aid%>&id=<%=checknum(request.querystring("id"))%>&html=1"><FONT color=red>切换至HTML编辑模式</FONT></a><%end if%></TD><TD width=80%><!--#include file="getubb.asp" --></td>
</TR>
<TR>
<TD vAlign=top width=20%>
<P><FONT color=#cc6600> 内 容：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML×<BR><FONT color=#b70000> <B>·</B></FONT>UBB √</LI></P><P><FONT color=#cc6600> 特殊内容</FONT><BR><font title="内容只有版主可见" style="CURSOR: hand" onclick="FontType('[MASTER]','[/MASTER]')"><FONT color=#b70000> <B>·</B></FONT>悄悄话</font><BR><font title="内容加锁，查看需要口令" style="CURSOR: hand" onclick="LockPassd()"><FONT color=#b70000> <B>·</B></FONT>密码锁</font><BR><font title="内容回复可见" style="CURSOR: hand" onclick="FontType('[showtoreply]','[/showtoreply]')"><FONT color=#b70000> <B>·</B></FONT>回复贴</font></P></TD>
<TD width=80%> <TEXTAREA id="Content" class=input name=body rows=15 cols=70 onkeydown=ctlent() title="可以使用Ctrl+Enter直接提交贴子"><%=server.htmlencode(content)%></TEXTAREA> <input type=hidden name=hx66htm value=0>
</TD></TR>
<!--#include file="bqimg.asp" -->
</TABLE>
<%end if%>
<table cellSpacing="15" cellPadding="0" width="740" align="center" border="0" bgcolor=#FFFFFF>
<TD height=30>
<DIV align="center"><input type="submit" value="发表回贴" name="Submit"> <input name="Submit2" type="reset" value="清空重来" onclick="ClearReset()"> <a href="bbs_detail.asp?aid=<%=aid%>&bid=<%=bid%>"><img src="images/back.gif" border="0"></a></DIV></form>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TABLE>
<%else%>
<table class="table-hx66s" cellSpacing="16" cellPadding="0" width="760" align="center" border="0" bgcolor="#FFFFFF">
<tr>
<td align="center"><FONT color=red>本帖已经被管理员设置为锁定状态</FONT></td>
</tr>
</table>
<%
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -