edittopic.asp

ASP整套的建站源代码

<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if
forumid=Request("forumid")
if isnumeric(""&forumid&"") = flase then
error("<li>非法操作")
end if

if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
error("<li>来源错误")
end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

if Request.ServerVariables("request_method") = "POST" then

forumid=Request("forumid")
id=Request("id")
content=server.htmlencode(Trim(Request("content")))

if Request("htmlcode")<>"1" then
content=replace(content,vbCrlf,"<br>")
end if

if content="" then
message=message&"<li>内容没有填写"
end if

if instr(content,"ヴ") > 0 or instr(content,"ヂ") > 0 or instr(content,"ゼ") or instr(content,"ヅ") > 0 then
message=message&"<li>内容中不能含有“ヴ ヂ ゼ ヅ”字符"
end if




filtrate=split(badwords,"|")
for i = 0 to ubound(filtrate)
content=replace(content,""&filtrate(i)&"","****")
next

''''''''''''''''''''
%>
<!-- #include file="inc/ybbcode.asp" -->
<%
smilies(content)

if Request("ybbcode")="" then
if ybbimg = "False" then
content=replace(content,"[IMG]","[URL]")
content=replace(content,"[/IMG]","[/URL]")
end if
if ybbflash = "False" then
content=replace(content,"[FLASH]","[URL]")
content=replace(content,"[/FLASH]","[/URL]")
end if
content = ybbcode(content)
end if



''''''''''''''''''''
if Request("htmlcode")="1" then
content="<TEXTAREA cols=75 rows=6>"&content&"</TEXTAREA><br><INPUT onclick=runEx() type=button value=运行此代码>"
end if

if Len(content)>50000 then
message=message&"<li>文章内容不能大于 50000 字节"
end if

if message<>"" then
error(""&message&"")
end if











if Request("retopicid")<>"" then
sql="select * from reforum where id="&Request("retopicid")&""
else
sql="select * from forum where ID="&ID&" and forumid="&forumid&""
end if

rs.Open sql,Conn,1,3
if rs("username")<>Request.Cookies("username") then
error("<li>您不是原贴的作者")
end if

content=""&content&"<br><br>［此帖子已被 "&Request.Cookies("username")&" 在 "&now&" 编辑过］"
rs("content")=content
rs.update
rs.close

 
succtitle="修改帖子成功"
message="<li><a href=showtopic.asp?id="&id&"&forumid="&forumid&">返回主题</a><li><a href=forumdisplay.asp?forumid="&forumid&">返回论坛</a><li><a href=index.asp>返回社区首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=showtopic.asp?id="&id&"&forumid="&forumid&">")

end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''










sql="select * from bbsconfig where id="&forumid&""
rs.Open sql,Conn
top
%>


<script>function runEx(){var winEx = window.open('', '', 'resizable,scrollbars');winEx.document.write(unescape(event.srcElement.parentElement.children[0].value));}</script>


<title>编辑帖子</title>

<CENTER>

<table width="750" align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/closedfold.gif" border="0">　<a href="forumdisplay.asp?forumid=<%=forumid%>"><%=rs("bbsname")%></a><br>
<%
rs.close


if Request("retopicid")<>"" then
sql="select * from reforum where id="&Request("retopicid")&""
rs.Open sql,Conn
else
sql="select * from forum where ID="&Request("id")&" and forumid="&Request("forumid")&""
rs.Open sql,Conn
end if

if rs.eof then
error2("数据库中不存在此帖子的数据")
end if

if rs("username")<>Request.Cookies("username") then
error2("对不起，您不是原贴的作者，无法编辑文章！")
end if

content =rs("content")


%>
　　 <img src=images/bar.gif><img src=images/openfold.gif>　<a href=showtopic.asp?forumid=<%=forumid%>&id=<%=Request("id")%>><%=Request("topic")%></a>
</td>
</tr>
</table>
<br>
<TABLE cellSpacing=0 cellPadding=5 width=670 border=1 bordercolor="#A4B6D7" style="border-collapse: collapse">
<form method=post name=form onsubmit="return ValidateForm()">
<TBODY>
<TR>
<TD id=titlelarge vAlign=left colSpan=4 height=25 width="618" background=images/title_sub.gif><b><font color="#FFFFFF">编辑帖子</font></b></TD></TR>
<TR>
<TD vAlign=top width=126 bgColor=ECF5FF rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width=97 align=left bgColor=f8f8f8 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=125 bgcolor="#ECF5FF"><B>文章内容</B><BR>(<a href="javascript:CheckLength();">查看内容长度</a>)<BR><BR></TD></TR>
<TR>
<TD vAlign=center align=left width=125 bgcolor="#ECF5FF">
<TABLE
style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; WIDTH: 125px; BORDER-BOTTOM: 1px inset"
cellSpacing=1 cellPadding=3 align=left bgColor=f0f0f0 border=0>
<TBODY>
<TR align=middle>
<TD><A href="javascript:emoticon('/:)')"><IMG alt=笑脸
src="images/brow/regular_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:d')"><IMG alt=开口笑脸
src="images/brow/teeth_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:o')">
<IMG alt="惊讶的笑脸"
src="images/brow/omg_smile.gif" border=0></A></TD></TR>
<TR align=middle>
<TD><A href="javascript:emoticon('/:p')">
<IMG alt=吐舌笑脸
src="images/brow/tounge_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/;)')"><IMG alt=眨眼微笑
src="images/brow/wink_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:(')">
<IMG alt=难过的脸
src="images/brow/sad_smile.gif" border=0></A></TD></TR>
<TR align=middle>
<TD><A href="javascript:emoticon('/:s')">
<IMG alt=困惑的笑脸
src="images/brow/confused_smile.gif" border=0></A></TD>
<TD><A href="javascript:emoticon('/:|')">
<IMG alt=失望的脸
src="images/brow/whatchutalkingabout_smile.gif"
border=0></A></TD>
<TD><a href="javascript:emoticon('/:$')">
<IMG alt=尴尬的笑脸
src="images/brow/embaressed_smile.gif"
border=0></a></TD></TR></TBODY></TABLE>
<TR>
<TD bgcolor="#ECF5FF"><BR><br><span id=ybb>YBB 代码： True<BR>表情字符： True<BR>[IMG]代码：<%=ybbimg%><BR>[FLASH]代码：<%=ybbflash%></span>
<script>
ybb.innerText=replace(ybb.innerText)
function replace(temp) {
temp = temp.replace(/True/ig,"支持");
temp = temp.replace(/False/ig,"禁止");
return (temp);
}
</script></TD></TR></TD></TR></TBODY></TABLE></TD>
<SCRIPT src="images/post.js"></SCRIPT>
<SCRIPT src="images/ybbcode.js"></SCRIPT>
<SCRIPT src="images/unybb.js"></SCRIPT>
<TD width=481 bgColor=ECF5FF colSpan=3><INPUT title="加粗: [Alt] + b" style="FONT-WEIGHT: bold" accessKey=b onclick=YBBCbold() type=button value=" B " name=bold>
<INPUT title="倾斜: [Alt] + i" style="FONT-STYLE: italic" accessKey=i onclick=YBBCitalic() type=button value=" I " name=italic>
<INPUT title="下划线: [Alt] + u" style="TEXT-DECORATION: underline" accessKey=u onclick=YBBCunder() type=button value=" U " name=under>
<INPUT title="超链接: [Alt] + h" style="COLOR: blue; TEXT-DECORATION: underline" accessKey=h onclick=YBBCurl() type=button value=" http:// ">&nbsp;<INPUT title="EMAIL: [Alt] + e" style="COLOR: blue; TEXT-DECORATION: underline" accessKey=e onclick=YBBCemail() type=button value="  @ ">
<INPUT title="图片: [Alt] + p" accessKey=p onclick=YBBCimage() type=button value=" 图片 ">
<INPUT title="引用: [Alt] + q" accessKey=q onclick=YBBCquote() type=button value=" 引用 " name=quote>
<INPUT title="FLASH: [Alt] + f" accessKey=f onclick=YBBCflash() type=button value=" FLASH " name=flash>
<br><font color=333333>颜色：</font>
<select onchange=COLOR(this.options[this.selectedIndex].value)>
<option style=COLOR:000000;BACKGROUND-COLOR:000000 value=000000>黑色</option>
<option style=COLOR:FFFFFF;BACKGROUND-COLOR:FFFFFF value=FFFFFF>白色</option>
<option style=COLOR:008000;BACKGROUND-COLOR:008000 value=008000>绿色</option>
<option style=COLOR:800000;BACKGROUND-COLOR:800000 value=800000>褐色</option>
<option style=COLOR:808000;BACKGROUND-COLOR:808000 value=808000>橄榄色</option>
<option style=COLOR:000080;BACKGROUND-COLOR:000080 value=000080>深蓝色</option>
<option style=COLOR:800080;BACKGROUND-COLOR:800080 value=800080>紫色</option>
<option style=COLOR:808080;BACKGROUND-COLOR:808080 value=808080>灰色</option>
<option style=COLOR:FFFF00;BACKGROUND-COLOR:FFFF00 value=FFFF00>黄色</option>
<option style=COLOR:00FF00;BACKGROUND-COLOR:00FF00 value=00FF00>浅绿色</option>
<option style=COLOR:00FFFF;BACKGROUND-COLOR:00FFFF value=00FFFF>浅蓝色</option>
<option style=COLOR:FF00FF;BACKGROUND-COLOR:FF00FF value=FF00FF>粉红色</option>
<option style=COLOR:C0C0C0;BACKGROUND-COLOR:C0C0C0 value=C0C0C0>银白色</option>
<option style=COLOR:FF0000;BACKGROUND-COLOR:FF0000 value=FF0000>红色</option>
<option style=COLOR:0000FF;BACKGROUND-COLOR:0000FF value=0000FF>蓝色</option>
<option style=COLOR:008080;BACKGROUND-COLOR:008080 value=008080>蓝绿色</option>
</select>　
<font color=333333>字体：</font>
<select onchange=ybbfont(this.options[this.selectedIndex].value)>
<option value="宋体" selected>宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<option value="幼圆">幼圆</option>
<option value="楷体_GB2312">楷体_GB2312</option>
<OPTION value=Verdana>Verdana</OPTION>
<OPTION value="Arial Black">Arial Black</OPTION>
<OPTION value="Courier New">Courier New</OPTION>
<OPTION value="Lucida Console">Lucida Console</OPTION>
<OPTION value="Times New Roman" >Times New Roman</OPTION>
<OPTION value="Webdings">Webdings</OPTION>
<OPTION value="Wingdings">Wingdings</OPTION>
</SELECT>　
<font color=333333>字体大小：</font>
<select onchange=ybbsize(this.options[this.selectedIndex].value)>
<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>
</SELECT>
</TD></TR>
<TR>
<TD width=481 bgColor=ECF5FF colSpan=3 align="center">
<TEXTAREA onkeydown=presskey(); name=content rows=10 cols=70><%=content%></TEXTAREA><br>
『 <a href="javascript:replac()">替换文本</a> 』 『  
<a href="javascript:HighlightAll('form.content')">复制到剪贴板</a> 』</TD></TR>
<TR>
<TD id=titlelarge align=left colSpan=4 height=21 width="618" background=images/title_sub.gif><font color="#FFFFFF"><b>选项</b></font></TD></TR>
<TR>
<TD vAlign=top width=126 bgColor=F2F8FF height=30></TD>
<TD width=481 bgColor=F2F8FF colSpan=3 height=30>
<INPUT
type=checkbox value=1 name=htmlcode> HTML代码<BR><INPUT type=checkbox value=1
name=ybbcode> 禁止YBB代码</A><BR><INPUT
type=checkbox value=1 name=smilies> 禁止表情字符</A> </TD></TR>
<TR>
<TD align=middle bgColor=ECF5FF colSpan=4 height=27 width="618"><INPUT tabIndex=4 type=submit value=确定编辑 name=submit1>&nbsp; <INPUT type=reset value=" 重 写 "></TD></TR></TBODY></TABLE></FORM>




<Script>
document.form.content.value = unybbcode(document.form.content.value);
document.form.content.focus();
</Script>




<%
rs.close
htmlend
%>