📄 forum_announce.asp
字号:
//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
}
if(!submitflag){
Csk3000_frm.submit();
Csk3000_frm.Submit.disabled=true
submitflag=true
return true
}
else
{
alert("请不要重复提交");
return false;
}
}
</script>
<form name="form1" method="post" action="?action=replybbs&boardid=<%=boardid%>&announceid=<%=announceid%>" onkeydown="if(event.keyCode==13 && event.ctrlKey){if(check_Csk3000_form(this)){return true}}">
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#666666" bgcolor="#FFFFFF" class="liu">
<tr>
<td colspan="2" class="title"><a name="reply"></a>回复贴子</td>
</tr>
<tr>
<td width="25%" class="tar">贴子标题：</td>
<td class="content"><input name="Form_Title" type="text" id="Form_Title" value="Re:<%=title%>" size="45" readonly="true">
长度不得超过255字 </td>
</tr>
<tr>
<td class="tar">插入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>
<td class="tar"><span class="style1">注意：</span><br>
帖子内容不要超过4000；<br>
HTML标记 不支持；<br>
UBB代码 支持；<br>
<a href="ubbhelp.asp" target="_blank">内容支持插入UBB标签<br>
使用方法请参考帮助 <span class="style2"> </span></a></td>
<td class="content"><textarea name="Form_Content" cols="85" rows="8" id="Form_Content"></textarea>
<br> <div align="right" style="font-size:11px;color:#666666;padding-right:28px;">缩放输入框:
<font face="webdings" style="FONT-SIZE: 12px; CURSOR: hand" onclick="document.form1.Form_Content.rows+=4" title="放大输入框">6</font>
<font face="webdings" style="FONT-SIZE: 12px; CURSOR: hand" onclick="if(document.form1.Form_Content.rows>=4)document.form1.Form_Content.rows-=4;else return false" title="缩小输入框">5</font></div></td>
</tr>
<tr>
<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 height="40" colspan="2" align="center" class="td1"> <input type="reset" name="Submit3" value="重 填">
<input type="submit" name="Submit" value="提 交" onClick="return check_Csk3000_form(this.form)">
<span style="font-weight:bold;color:#FF0000;">(Ctrl+Enter提交)</span></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%End Sub%>
<%
sub get_up_down_Announce(Announceid)
dim ObjRs,tmpStr
set ObjRs=conn.Execute ("select top 1 id from Announce where ID>"&Announceid&" and parentID=0 and boardid="&boardid)
If not ObjRs.eof then
tmpStr="<a href='?boardid="&boardid&"&announceid="&ObjRs("id")&"'>上一贴</a>"
else
tmpStr="上一贴"
end if
ObjRs.close
tmpStr=tmpStr&" <a href='javascript:window.location.reload();'>刷新</a>"
set ObjRs=conn.Execute ("select top 1 id from Announce where ID<"&Announceid&" and parentID=0 and boardid="&boardid &" order by id desc")
If not ObjRs.eof then
tmpStr=tmpStr&" <a href='?boardid="&boardid&"&announceid="&ObjRs("id")&"'>下一贴</a>"
else
tmpStr=tmpStr&" 下一贴"
end if
ObjRs.close
set ObjRs=nothing
Response.Write(tmpStr)
end sub
%>
<%sub replybbs
dim studentid,content,pubtime,id,title
dim errstr,sqlstr
Dim rs,str_succ
if outsitesubmit then
printerror "回复影音论坛帖子出错","<li>请不要外部提交数据！</li>",779
exit sub
end if
If not boardexist then
errstr="<li>不存在标号为"&BoardID&"的论坛版面,该版面可能已经被删除</li>"
errstr=errstr&"<li>请选择<a href='index.asp'>影音论坛</a>重新进入论坛版面</li>"
Call printerror("读取论坛版面出错",errstr,779)
exit sub
End if
If session("username")="" then
printerror "回复影音论坛帖子出错","<li>您还没有登录，请先<a href='"&const_txl_HomeUrl&"user_login.asp'>登录</a>再发布留言！</li>",779
exit sub
end if
title=htmlEncode(Trim(Request.Form("Form_Title")))
studentid=Session("username")
pubtime=now()
content=Trim(Request.Form("Form_Content"))
if title="" or isnull(title) Then
printerror "回复影音论坛帖子出错","<li>请输入帖子标题！</li>",779
exit sub
end if
if content="" or isnull(content) Then
printerror "回复影音论坛帖子出错","<li>请输入帖子内容！</li>",779
exit sub
end if
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select top 1 * from Announce order by id desc",conn,1,3
if rs.eof then
id=1
else
id=rs("id")+1
end if
rs.addnew()
rs("id")=id
rs("parentID")=announceid
rs("boardid")=boardid
rs("childnum")=0
rs("title")=title
rs("content")=content
rs("printcontent")=UBBCode(content,1)
rs("ndatetime")=pubtime
rs("lasttime")=now()
rs("hits")=0
rs("username")=studentid
rs("lastuser")=studentid
rs("lastinfo")="主题内容："&left(content,20)
rs("goodflag")=0
rs("topflag")=3
rs.update
rs.close
set rs=nothing
if Len(title)>30 then title=left(title,28)&"……"
sqlstr="update Announce set childnum=childnum+1,replys=replys+1,lastuser='"&studentid&"',lasttime='"&now()&"',lastinfo='最后更新时间："&now()&"<br>最后回复："&studentid&"<br>更新："&Replace(left(content,20),"'","''")&"' where id="&announceid
conn.execute sqlstr
Call Stat__announce_num(boardid) '统计新帖
str_succ="<li>恭喜你，回复帖子成功！"&Vbcrlf
str_succ=str_succ&"<li><a href='Announce.asp?boardid="&boardid&"&announceid="&announceid&"' title='浏览你刚才发布的帖子'>点这里浏览你刚才回复的帖子</a>，系统5秒转到新帖！</li>"&Vbcrlf
str_succ=str_succ&"<li>回<a href='Forum_BoardList.asp?boardid="&boardid&"' title='回"&boardname&"'>"&boardname&"</a></li>"&Vbcrlf
Call printsuc("回复影音帖子成功",str_succ,779)
Response.write "<meta http-equiv=""refresh"" content='5;URL=Announce.asp?boardid="&boardid&"&announceid="&announceid&"'>"
end sub
''投票处理
Function displaypoll(Byref Rs)
Dim multiplicity,content,vote,i,allticket,id
If rs("polltopic")<>"" Then
If rs("multiplicity")=1 Then
multiplicity="checkbox"
Else
multiplicity="radio"
End If
content=""&content&"<form action=forum_postvote.asp?id="&rs("id")&" method=POST><table><tr><td><table>"
vote=split(rs("polltopic"),"|")
For i = 0 to ubound(vote)
If not Trim(vote(i))="" then
content=""&content&"<tr><td height=22 valign=bottom>"&i+1&".<input type="&multiplicity&" value="&i&" name=postvote id=postvote"&i&"><label for=postvote"&i&">"&vote(i)&"</label></td></tr>"
End if
Next
content=""&content&"</table></td><td><table>"
allticket=0
vote=split(rs("pollresult"),"|")
For i = 0 to ubound(vote)
If not Trim(vote(i))="" then
content=""&content&"<tr><td height=22 valign=bottom>票数："&vote(i)&"</td></tr>"
allticket=vote(i)+Clng(allticket)
End if
Next
content=""&content&"</table></td><td><table>"
vote=split(rs("pollresult"),"|")
For i = 0 to ubound(vote)
If not Trim(vote(i))="" and allticket>0 then
content=content&"<tr><td height=22 valign=bottom><img src=images/bar1.gif width="&vote(i)/allticket*100&" height=10> ["&formatnumber(vote(i)/allticket*100)&"%]</td></tr>"
End If
Next
content=""&content&"</table></td></tr><TR><TD align=center><INPUT type=submit value=' 投 票 '></TD><td colspan=5 align=center><a href=forum_postvote.asp?menu=look&id="&rs("id")&">[查看近日参与投票的用户列表]</a></td></TR></table></form>"
End if
Response.write content
Response.Flush
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -