📄 forum_dealannounce.asp
字号:
Call printerror ("操作帖子出错！","<li>你没有操作该功能的权限！</li>",779)
exit sub
Else
If Request("queren")<>"true" Then
Response.write "<div align=center><br><font color=#000000>本操作设置帖子的状态，由"&nowstat&"设为"&tostat&"，你确实要进行该操作吗？<br>请点击下面的“确定”按钮继续执行操作,点击“取消”来撤消本次操作。</font><br><br>"
Response.write "<input type=button value='确定' onclick=""javascript:window.location.href='?action=makealltop&announceid="&announceid&"&queren=true'""> <input type=button value='取消' onclick='javascript:history.back()'><br><br></div>"
Else
If topflag=2 Then
'取消总固顶
conn.Execute ("update Announce set topflag=3 where ID="&announceid) '设置帖子状态
Else
'加总固顶
conn.Execute ("update Announce set topflag=2 where ID="&announceid) '设置帖子状态
End If
tmpstr="<li>恭喜你，本次操作成功！</li>"
tmpstr=tmpstr&"<li>已经成功将标号为"&announceid&"的帖子，将"&nowstat&"设置为"&tostat&"！</li>"
tmpstr=tmpstr&"<li>回<a href='Forum_BoardList.asp?boardid="&boardid&"'>论坛列表</a>！</li>"
Call printsuc("设置论坛帖子成功！",tmpstr,779)
End IF
End If
End Sub
Sub maketop
dim master,limitflag
limitflag=false
master=""
master=getbbsmaster(boardid)
if isarray(master) Then
for i=0 to ubound(master)
If username=master(i) Then
limitflag=true
exit for
End If
next
ElseIf master<>"" And username=master Then
limitflag=true
ELseIF master="" Then
limitflag=false
End IF
If session("adminname")<>"" Then limitflag=true
'1为固顶
'2为总固顶
'3为普通
If topflag=1 then
nowstat="<font color=red>“固顶帖”</font>"
tostat="<font color=red>“非固顶帖”</font>"
else
nowstat="<font color=red>“非固顶帖”</font>"
tostat="<font color=red>“固顶帖”</font>"
end if
If not(limitflag) Then
Call printerror ("操作帖子出错！","<li>你没有操作该功能的权限！</li>",779)
exit sub
Else
If Request("queren")<>"true" Then
Response.write "<div align=center><br><font color=#000000>本操作设置帖子的状态，由"&nowstat&"设为"&tostat&"，你确实要进行该操作吗？<br>请点击下面的“确定”按钮继续执行操作,点击“取消”来撤消本次操作。</font><br><br>"
Response.write "<input type=button value='确定' onclick=""javascript:window.location.href='?action=maketop&announceid="&announceid&"&queren=true'""> <input type=button value='取消' onclick='javascript:history.back()'><br><br></div>"
Else
If topflag=2 Then
'取消固顶
conn.Execute ("update Announce set topflag=3 where ID="&announceid) '设置帖子状态
Else
'加固顶
conn.Execute ("update Announce set topflag=1 where ID="&announceid) '设置帖子状态
End If
tmpstr="<li>恭喜你，本次操作成功！</li>"
tmpstr=tmpstr&"<li>已经成功将标号为"&announceid&"的帖子，将"&nowstat&"设置为"&tostat&"！</li>"
tmpstr=tmpstr&"<li>回<a href='Forum_BoardList.asp?boardid="&boardid&"'>论坛列表</a>！</li>"
Call printsuc("设置论坛帖子成功！",tmpstr,779)
End IF
End If
End Sub
Sub Edit2
Dim rs
set rs=conn.execute ("select * from Announce where Id="&Announceid)
%>
<script>
function addcontent(str1,str2)
{
form1.Form_Content.focus();
if ((document.selection)&&(document.selection.type== "Text"))
{
var range= document.selection.createRange();
var ch_text=range.text;
range.text= str1 + ch_text + str2;
}
else
{
document.form1.Form_Content.value=document.form1.Form_Content.value+str1+str2;
form1.Form_Content.focus();
}
}
function check_Csk3000_form(Csk3000_frm)
{
//Csk3000编写
if (Csk3000_frm.Form_Content.value==""){
alert("请输入内容！");
Csk3000_frm.Form_Content.focus();
return false
}
var maxlength=4000
if (Csk3000_frm.Form_Content.value.length>maxlength){
alert("内容不能大于"+maxlength+"！,当前长度"+Csk3000_frm.Form_Content.value.length);
Csk3000_frm.Form_Content.focus();
return false
}
return true
}
</script>
<form name="form1" method="post" action="?action=edit&action2=saveedit&boardid=<%=boardid%>&announceid=<%=announceid%>" onkeydown="if(event.keyCode==13 && event.ctrlKey){if(check_Csk3000_form(this)){this.submit();}}">
<table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolor="#cccccc" bgcolor="#FFFFFF" class="liu">
<tr bgcolor="#576F9F">
<td colspan="2" style="padding-left:5px;color:#FFFFFF; font-weight:bold;line-height:1.5;"><a name="reply"></a>编辑帖子</td>
</tr>
<tr>
<td width="21%" class="rig">贴子标题：</td>
<td width="79%" class="content"><input name="Form_Title" type="text" id="Form_Title" value="<%=rs("title")%>" size="45" readonly="true">
<font color=red>标题不能修改</font> </td>
</tr>
<tr>
<td class="rig">插入UBB标签：</td>
<td class="content"><a href="javascript:addcontent('[B]','[/B]');" title=粗体><img src="images/ubb/bold.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[I]','[/I]');" title=斜体><img src="images/ubb/italicize.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[U]','[/U]');" title=下划线><img src="images/ubb/underline.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[ALIGN=CENTER]','[/ALIGN]');" title=居中><img src="images/ubb/center.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[URL]','[/URL]');" title=链接><img src="images/ubb/url1.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[EMAIL]','[/EMAIL]');" title=邮件><img src="images/ubb/email1.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[IMGA]','[/IMGA]');" title=图片><img src="images/ubb/image.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[FLASH]','[/FLASH]');" title=Flash><img src="images/ubb/swf.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[CODE]','[/CODE]');" title=代码><img src="images/ubb/code.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[QUOTE]','[/QUOTE]');" title=引用><img src="images/ubb/quote1.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[FLY]','[/FLY]');" title=飞行><img src="images/ubb/fly.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[MOVE]','[/MOVE]');" title=移动><img src="images/ubb/move.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[GLOW=255,RED,2]','[/GLOW]');" title=发光><img src="images/ubb/glow.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[SHADOW=255,RED,2]','[/SHADOW]');" title=阴影><img src="images/ubb/shadow.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[SIZE=3]','[/SIZE]');" title=3号字><img src="images/ubb/size3.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[COLOR=blue]','[/COLOR]');" title=蓝色字><img src="images/ubb/blue.gif" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[COLOR=red]','[/COLOR]');" title=红色字><img src="images/ubb/red.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[MP=320,240]','[/MP]');" title=插入Media文件><img src="images/ubb/media.gif" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[RM=320,240]','[/RM]');" title=插入RealPlay文件><img src="images/ubb/real.gif" width="20" height="20" align="absmiddle" border=0></a></td>
</tr>
<tr bordercolor="#666666">
<td class="tar">插入表情,时间</td>
<td height="22" class="content"> <a href="javascript:addcontent('[em01]','');"><img src="images/UBBicon/em01.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em02]','');"><img src="images/UBBicon/em02.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em03]','');"><img src="images/UBBicon/em03.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em04]','');"><img src="images/UBBicon/em04.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em05]','');"><img src="images/UBBicon/em05.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em06]','');"><img src="images/UBBicon/em06.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em07]','');"><img src="images/UBBicon/em07.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em08]','');"><img src="images/UBBicon/em08.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em09]','');"><img src="images/UBBicon/em09.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em10]','');"><img src="images/UBBicon/em10.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em11]','');"><img src="images/UBBicon/em11.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em12]','');"><img src="images/UBBicon/em12.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em13]','');"><img src="images/UBBicon/em13.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em14]','');"><img src="images/UBBicon/em14.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:var d; d=new Date();addcontent(d.getYear()+'-'+rightStr('0'+(d.getMonth()+1),2)+'-'+rightStr('0'+d.getDate(),2)+' '+rightStr('0'+d.getHours(),2)+':'+rightStr('0'+d.getMinutes(),2)+':'+rightStr('0'+d.getSeconds(),2),'');" title="插入时间"><b>T</b></a>
</td>
</tr>
<tr>
<td class="rig"><span class="style1">注意：</span><br>
帖子内容不要超过4000;<br>
HTML标记 不支持；<br>
UBB代码 支持<br> <span class="style2"> (Ctrl+Enter提交)</span> <br> <a href="ubbhelp.asp" target="_blank">内容支持插入UBB标签<br>
使用方法请参考帮助 <span class="style2"> </span></a></td>
<td class="content"><textarea name="Form_Content" cols="75" rows="10" id="Form_Content"><%=rs("content")%></textarea></td>
</tr>
<tr>
<td align="center" class="td1"> </td>
<td> <input type="submit" name="Submit" value="提交" onClick="return check_Csk3000_form(this.form)">
<input type="reset" name="Submit3" value="重填"></td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
End Sub
Sub saveedit
Dim rs,content,parentID
content=Trim(Request.Form("Form_Content"))
if content="" or isnull(content) Then
printerror "修改论坛帖子出错","<li>请输入帖子内容！</li>",779
exit sub
end if
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select * from Announce where id="&announceid,conn,1,3
rs("content")=content
rs("printcontent")=UBBCode(content,1)
rs("changestr")=rs("changestr")&"<br>此帖子被"&dealuser&"于"&now()&"编辑过"
parentID=rs("parentID")
rs.update
rs.close
set rs=nothing
if parentID=0 Then parentID=announceid
tmpstr="<li>恭喜你，本次操作成功！</li>"
tmpstr=tmpstr&"<li>已经成功编辑标号为"&announceid&"的帖子！</li>"
tmpstr=tmpstr&"<li>回<a href='announce.asp?boardid="&boardid&"&announceid="&parentID&"'>刚编辑过的帖子</a>！</li>"
tmpstr=tmpstr&"<li>回<a href='Forum_BoardList.asp?boardid="&boardid&"'>论坛列表</a>！</li>"
Call printsuc("编辑论坛帖子成功！",tmpstr,779)
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -