retopic.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
id=Request("id")
if isnumeric(""&id&"") = flase then
error("<li>非法操作")
end if
forumid=Conn.Execute("Select forumid From forum where id="&id)(0)

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

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



if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
error("<li>来源错误")
end if
username=Request("username")
userpass=Trim(Request("userpass"))
content=server.htmlencode(Trim(Request("content")))
content=replace(content,vbCrlf,"<br>")
content=replace(content,"\","\\")


if conn.execute("Select count(id)from forum where ID="&ID&" and forumid="&forumid&" and locktopic=1")(0)=1 then
error2("此主题已经关闭，不接受新的回复")
end if


if username="" then
message=message&"<li>用户名没有填写"
end if
if userpass="" then
message=message&"<li>密码没有填写"
end if


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

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

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





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


sql="select * from user where username='"&HTMLEncode(username)&"'"
rs.Open sql,Conn,1,3

if rs.eof then
message=message&"<li>此用户名还未<a href=register.asp?username="&username&">注册</a>"
error(""&message&"")
end if

if userpass<>rs("userpass") then
message=message&"<li>您的密码错误"
end if

if rs("userlife")<5 then
message=message&"<li>您的体力值 < <FONT color=red>5</FONT> 不能发表文章<li>您可以到<A href=shop.asp>社区商店</A>购买体力药丸<li>每有效停留时间<FONT color=red> 10 </FONT>分钟：体力值：<FONT color=red>+10</FONT>"
end if

if rs("experience")<1 then
message=message&"<li>新注册用户登陆社区停留<FONT color=red> 10 </FONT>分钟以上才可发表帖子"
end if

if rs("membercode")=0 then
message=message&"<li>您被关进<a href=prison.asp>监狱</a>"
end if

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


if rs("membercode")<2 then
rs("userlife")=rs("userlife")-2
end if

rs("landtime")=now
rs("postrevert")=rs("postrevert")+1
rs("money")=rs("money")+2
rs("experience")=rs("experience")+2
rs.update
rs.close



rs.Open "reforum",conn,1,3
rs.addnew
rs("forumid")=forumid
rs("username")=username
rs("content")=content
rs("postip")=remoteaddr
rs("topicid")=id
rs.update
rs.close



conn.execute("update [forum] set lastname='"&username&"',replies=replies+1,lasttime=now where ID="&ID&" and forumid="&forumid&"")

conn.execute("update [bbsconfig] set lasttime=now,lastname='"&username&"',tolrestore=tolrestore+1 where id="&forumid&"")



succtitle="回复主题成功"
message=message&"<li><a onclick=min_yuzi() target=message href=ShowPost.asp?id="&id&">返回主题</a><li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?forumid="&forumid&">")


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


if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if




sql="select * from bbsconfig where id="&forumid&""
rs.Open sql,Conn
top
%>
<title>回复文章</title>
<CENTER>




<table width=97% 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=Default.asp?menu=listtitle><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/closedfold.gif" border="0">　<a href="ShowForum.asp?forumid=<%=forumid%>"><%=rs("bbsname")%></a><br>
<%
rs.close






if Request("quote")=1 then

if isnumeric(""&Request("retopicid")&"") = flase then
sql="select * from forum where ID="&Request("id")&""
else
sql="select * from reforum where id="&Request("retopicid")&""
end if
rs.Open sql,Conn
content =rs("content")
quote="[quote]原文由 [B]"&rs("username")&"[/B] 发表:"&vbCrlf&""&content&""&vbCrlf&"[/quote]"
rs.close

end if


%>




　　&nbsp;<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　<a onclick=min_yuzi() target=message href="ShowPost.asp?id=<%=Request("id")%>">Re:<%=Request("topic")%></a></td>
</tr>
</table>

<br>


<TABLE cellSpacing=1 cellPadding=5 width=670 border=0 class=a2>



<form method=post name=form onsubmit="return ValidateForm()">
<input type=hidden name=id value=<%=Request("id")%>>
<TBODY>
<TR>
<TD vAlign=left class=a1 colSpan=4 height=25 width="618"><b>回复文章</b></TD></TR>
<TR>
<TD width=126 class=a4 height=25><B>用户名称</B></TD>
<TD width=184 class=a4 height=25>
<INPUT
maxLength=20 size=15 value="<%=Request.Cookies("username")%>" name=username></TD>
<TD width=91 class=a4 height=25><B>您的密码</B></TD>
<TD width=184 class=a4 height=25>
<INPUT type=password size=15 value="<%=Request.Cookies("userpass")%>" name=userpass></TD></TR>
<TR>
<TD vAlign=top width=126 class=a3 rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width=97 align=left border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=125 class=a3><B>文章内容</B><BR>(<a href="javascript:CheckLength();">查看内容长度</a>)<BR><BR></TD></TR>
<TR>
<TD vAlign=center align=left width=125 class=a3>
<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 class=a4 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 class=a3>
<br>
<script>
document.write("<BR>YBB 代码：")
if (getCookie('ybbcode')!='0'){
document.write("支持")
}else{
document.write("禁止")
}


document.write("<BR>表情字符：")
if (getCookie('ybbbrow')!='0'){
document.write("支持")
}else{
document.write("禁止")
}


document.write("<BR>[IMG]代码：")
if (getCookie('ybbimg')!='0'){
document.write("支持")
}else{
document.write("禁止")
}

document.write("<BR>[FLASH]代码：")
if (getCookie('ybbflash')!='0'){
document.write("支持")
}else{
document.write("禁止")
}

</script>
</TD></TR></TD></TR></TBODY></TABLE></TD>
<SCRIPT src="images/post.js"></SCRIPT>
<SCRIPT src="images/ybbcode.js"></SCRIPT>
<TD width=481 class=a3 colSpan=3>

<img border=0 src=images\ybb\bold.gif onclick=YBBbold() alt="粗体">
<img border=0 src=images\ybb\italicize.gif onclick=YBBitalic() alt="斜体">
<img border=0 src=images\ybb\underline.gif onclick=YBBunder() alt="下划线">
<img border=0 src=images\ybb\center.gif onclick=YBBcenter() alt="居中">
<img border=0 src=images\ybb\url.gif onclick=YBBurl() alt="插入超链接">
<img border=0 src=images\ybb\email.gif onclick=YBBemail() alt="插入电子邮件地址">
<img border=0 src=images\ybb\image.gif onclick=YBBimage() alt="插入图片">
<img border=0 src=images\ybb\flash.gif onclick=YBBflash() alt="插入FLASH文件">
<img border=0 src=images\ybb\rm.gif onclick=YBBrm() alt="插入RealPlayer文件">
<img border=0 src=images\ybb\mp.gif onclick=YBBmp() alt="插入Media Player文件">
<img border=0 src=images\ybb\quote.gif onclick=YBBquote() alt="引用">
<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="隶书">隶书</option>
<option value="幼圆">幼圆</option>
<OPTION value="方正舒体">方正舒体</OPTION>
<OPTION value="方正姚体">方正姚体</OPTION>
<OPTION value="黑体">黑体</OPTION>
<OPTION value="华文彩云">华文彩云</OPTION>
<OPTION value="华文细黑">华文细黑</OPTION>
<OPTION value="华文新魏">华文新魏</OPTION>
<OPTION value="华文行楷">华文行楷</OPTION>
<OPTION value="华文中宋">华文中宋</OPTION>
<OPTION value="隶书">隶书</OPTION>
<OPTION value="宋体" selected>宋体</OPTION>
<OPTION value="新宋体">新宋体</OPTION>
<OPTION value="幼圆">幼圆</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 class=a3 colSpan=3 align="center">
<TEXTAREA onkeydown=presskey(); name=content rows=10 cols=70><%=quote%></TEXTAREA><br>
『 <a href="javascript:replac()">替换文本</a> 』 『  
<a href="javascript:HighlightAll('form.content')">复制到剪贴板</a> 』</TD></TR>




<TR class=a4>
<TD align=left><b>选项</b></TD>
<TD align=left colSpan=3><font color="#FFFFFF"><b><IFRAME src="upfile.asp" frameBorder=0 width="100%" scrolling=no height=21></IFRAME></b></font></TD></TR>
<TR>
<TD align=middle class=a3 colSpan=4 height=27 width="618"><INPUT tabIndex=4 type=submit value=回复主题 name=submit1>&nbsp; <INPUT type=reset onclick="{if(confirm('该项操作要清除全部的内容，您确定要清除吗?')){return true;}return false;}" value=" 重 写 "></TD></TR></TBODY></TABLE></FORM>


<Script>
document.form.content.value = unybbcode(document.form.content.value);
document.form.content.focus();
function unybbcode(temp) {
temp = temp.replace(/\[quote](.*)\[\/quote]/gi,"");
temp = temp.replace(/<br>/ig,"\n");
return (temp);
}
</Script>

<%

htmlend
%>