<!-- #include file="setup.asp" -->
<!-- #include file="pet_conn.asp" -->
<!-- #include file="pet_config.asp" -->
<!-- ＱＱ魔幻表情显示脚本 start-->
<script language="JavaScript">
document.write("<span id='QQFace' style='position:absolute; width:0px; height:0px; z-index:99999; background-color: transparent; display: none; left: 0; top: 0;'></span> ");

var sw //传递定时
var sWidth=250 //定义表情显示的宽度
var sHeight=250 //定义表情显示的高度
var sTime=5000 //定义表情显示的时间

//显示表情
function ShowQQ(theSmilie){
  clearTimeout(sw);

  document.getElementById("QQFace").style.width=sWidth
  document.getElementById("QQFace").style.height=sHeight

  document.getElementById("QQFace").style.left=document.body.scrollLeft+(document.body.clientWidth-sWidth)/2
  document.getElementById("QQFace").style.top=document.body.scrollTop+(document.body.clientHeight-sHeight)/2

  var QQStr="images/qqmt/swf/"+theSmilie+".swf"
  document.getElementById("QQFace").innerHTML = '<OBJECT codeBase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" width="100%" height="100%"><PARAM NAME=movie VALUE="'+ QQStr +'"><param name=menu value=false><PARAM NAME=quality VALUE=high><PARAM NAME=play VALUE=false><param name="wmode" value="transparent"><embed src="' + QQStr +'" quality="high" wmode="transparent" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100%" height="100%"></embed>';
  QQFace.style.display=""

  sw=window.setTimeout("CloseQQ();",sTime);
}

//关闭表情
function CloseQQ(){
  QQFace.style.display="none"
  clearTimeout(sw);
}
//-->
</script>
<!-- ＱＱ魔幻表情显示脚本 end-->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")



forumid=int(Request("forumid"))
color=HTMLEncode(Request.Form("color"))
topic=HTMLEncode(Request.Form("topic"))
content=HTMLEncode(Request.Form("content"))





sql="select * from bbsconfig where id="&forumid&""
Set Rs=Conn.Execute(sql)
bbsname=rs("bbsname")

moderated=rs("moderated")
followid=rs("followid")
pass=rs("pass")
password=rs("password")
userlist=rs("userlist")
rs.close

if membercode>2 or instr("|"&moderated&"|","|"&Request.Cookies("username")&"|")>0 then UserPopedomPass=1


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if Request.ServerVariables("request_method") = "POST" and Request("preview")="" then

If not conn.Execute("Select username From [prison] where username='"&Request.Cookies("username")&"'" ).eof Then error("<li>您被关进<a href=prison.asp>监狱</a>")

username=Request.Cookies("username")
icon=Request("icon")

if yanzhengma>1 then
if HTMLEncode(Trim(request("addcode")))<>HTMLEncode(Trim(Session("GetCode"))) then 
error("验证码错误")
End If
End If


if Len(topic)<2 then message=message&"<li>文章主题不能小于 2 字符"
if Len(content)<2 then message=message&"<li>文章内容不能小于 2 字符"

if Request.Cookies("posttime")<>empty and UserPopedomPass<>1 then
if DateDiff("s",Request.Cookies("posttime"),Now()) < int(PostTime) then message=message&"<li>为防止有人用程序灌水，论坛限制一个人两次发帖间隔必须大于"&PostTime&"秒！"
end if


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


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

if rs("userlife")<3 then message=message&"<li>您的体力值 < <FONT color=red>3</FONT> 不能发表文章<li>每有效停留时间<FONT color=red> 10 </FONT>分钟：体力值：<FONT color=red>+10</FONT>"


StopPostTime=int(DateDiff("s",rs("regtime"),Now())/60)
if StopPostTime < int(Reg10) then message=message&"<li>新注册用户必须 "&Reg10&" 分钟后才能发帖，您必须再等待 "&Reg10-StopPostTime&" 分钟！"

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

if UserPopedomPass<>1 then rs("userlife")=rs("userlife")-3
rs("posttopic")=rs("posttopic")+1
rs("money")=rs("money")+newtopicMONadd
rs("experience")=rs("experience")+newtopicEXPadd
rs("magicpower")=rs("magicpower")+newtopicMAGadd
rs("power")=rs("power")+newtopicPOWadd
rs("landtime")=now()
rs.update
rs.close

if UserPopedomPass=1 and color<>"" then topic="<font color="&color&">"&topic&"</font>"

rs.Open "select top 1 * from forum",conn,1,3
rs.addnew
rs("username")=username
rs("lastname")=username
rs("forumid")=forumid
rs("topic")=topic
rs("content")=content
rs("postip")=Request.ServerVariables("REMOTE_ADDR")
rs("icon")=icon
rs("deltopic")=ActivationForum
rs("ReList")=ReForumName

'''''''''''''''''''''''''''''''''''
'投票处理程序
if Request("vote")<>"" then
vote=Request("vote")
if instr(vote,"|") > 0 then error("<li>投票选项中不能含有“|”字符")
polltopic=split(vote,chr(13)&chr(10))
j=0
for i = 0 to ubound(polltopic)
if not (polltopic(i)="" or polltopic(i)=" ") then
allpolltopic=""&allpolltopic&""&polltopic(i)&"|"
j=j+1
end if
next

for y = 1 to j
votenum=""&votenum&"0|"
next
rs("polltopic")=HTMLEncode(allpolltopic)
rs("pollresult")=votenum
rs("multiplicity")=Request("multiplicity")
end if
'''''''''''''''''''''''''''''''''''
rs.update
id=rs("id")
rs.close



conn.execute("update [bbsconfig] set lasttopic='<a href=ShowPost.asp?id="&id&">"&left(HTMLEncode(Request.Form("topic")),15)&"</a>',lastname='"&username&"',lasttime='"&now()&"',today=today+1,toltopic=toltopic+1,tolrestore=tolrestore+1 where id="&forumid&"")
conn.execute("update [clubconfig] set today=today+1")


Response.Cookies("posttime")=now
conn_pet.ExeCute("UPDATE mypetdata SET mypetexp= mypetexp+"&DEF_PET_newtopicexp&" WHERE username ='"&Request.Cookies("username")&"' and mypetdead <1")

Application.Lock
Application(CacheName&"CountForum") = Application(CacheName&"CountForum")+1
Application.UnLock



if ActivationForum=1 then
ActivationForum="由于论坛设有审核制度，您发表的帖子需要等待管理员激活才能显示于论坛。"
else
ActivationForum="<a href=ShowPost.asp?id="&id&">返回主题</a>"
end if

message="<li>新主题发表成功<li>"&ActivationForum&"<li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp>返回论坛首页</a>"

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend2")="<font color=#004aff>"&Request.Cookies("username")&"</font>发了一个贴子，喃喃道：哎哟，好过瘾呀"
rs.update
rs.close

succeed(""&message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?forumid="&forumid&">")

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



%>
<!-- #include file="inc/validate.asp" -->

	<table border="0" width="97%" align=center cellspacing="1" cellpadding="4" class=a2>
		<tr class=a3>
			<td height="25">&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> <a href=ShowForum.asp?forumid=<%=forumid%>><%=bbsname%></a> → 发表帖子</td>
		</tr>
	</table><br>

<%
if Request("preview")<>"" then
%>
<script src="inc/ybb.js"></script>
<SCRIPT>valigntop()</SCRIPT>
<TABLE cellSpacing=1 cellPadding=5 width=97% border=0 class=a2 align=center>
<TR>
<TD vAlign=left class=a1 height=13><b>预览帖子</b></TD></TR>
<TR>
<TD vAlign=left class=a3 height=12>
<script>
document.write(ybbcode("<%=content%>"));
</script>
</TD></TR>
</TABLE>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<%
end if
%>





<SCRIPT>valigntop()</SCRIPT>

<TABLE cellSpacing=1 cellPadding=6 width=97% border=0 class=a2 align=center>

<form method=post name=form onsubmit="return ValidateForm()">
<input type=hidden name=forumid value=<%=forumid%>>
<TBODY>
<TR>
<TD vAlign=left colSpan=2 height=25 class=a1><b>发表文章</b></TD></TR>
<TR>
<TD width=160 class=a4 height=25><B>用户名称</B></TD>
<TD width=570 class=a4 height=25><%=Request.Cookies("username")%>[<a href="login.asp?menu=out">退出登录</a>]</TD>
</TR>
<%if yanzhengma>1 then%>
<TR>
<TD width=160 class=a4><B>验 证 码 </B></TD><TD width=570 class=a4><input size="15" name="addcode" value name="addcode">&nbsp; &nbsp; <%=getcode1()%></TD>
</TR>
<%end if%>
<TR>
<TD width=160 class=a3 height=25><B>文章标题 </B> 
<SELECT onchange=DoTitle(this.options[this.selectedIndex].value)>
<OPTION value="" selected>&nbsp;类型</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=[下载]>[下载]</OPTION><OPTION value=[分享]>[分享]</OPTION> <OPTION
value=[投票]>[投票]</OPTION><OPTION value=[连载]>[连载]</OPTION></SELECT> </TD>
<TD width=570 class=a3 height=25>
<INPUT maxLength=50 size=60 name=topic value="<%=Request("topic")%>">
<%if UserPopedomPass=1 then %>
<SELECT name=color onchange="title_color(this.options[this.selectedIndex].value)">
<option value="">颜色</option>
<option style=background-color:Black;color:Black value=Black>黑色</option>
<option style=background-color:green;color:green value=green>绿色</option>
<option style=background-color:red;color:red value=red>红色</option>
<option style=background-color:blue;color:blue value=blue>蓝色</option>
<option style=background-color:Navy;color:Navy value=Navy>深蓝</option>
<option style=background-color:Teal;color:Teal value=Teal>青色</option>
<option style=background-color:Purple;color:Purple value=Purple>紫色</option>
<option style=background-color:Fuchsia;color:Fuchsia value=Fuchsia>紫红</option>
<option style=background-color:Gray;color:Gray value=Gray>灰色</option>
<option style=background-color:Olive;color:Olive value=Olive>橄榄</option>
</SELECT>
<%end if%>
</TD></TR>
<TR>
<TD vAlign=top align=left width=160 class=a4 height=23><B>您的表情</B></TD>
<TD width=570 class=a4>
<script>
index = Math.floor(Math.random() * 20+1);
for(i=1;i<=20;i=i+1) {
if (i==index) ii="checked";else ii=""
document.write("<INPUT type=radio value="+i+" name=icon "+ii+"><IMG src=images/brow/"+i+".gif>　")
if (i==10) document.write("<br>")
}
</script>

 </TD></TR>

<TR>
<TD vAlign=top class=a3 rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=left border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=100% class=a3><B>文章内容</B><BR>
(<a href="javascript:CheckLength();">查看内容长度</a>)<BR>
<BR></TD></TR>

<TR>
<TD align=center width=100%>

<TABLE
style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; BORDER-BOTTOM: 1px inset"
cellSpacing=1 cellPadding=3 border=0>
<TR align=middle>
<td>
<a href=zt.asp target=_blank><font color=red><b>转贴工具</b></font></a>
</td>
</TR>
</TABLE>
</TD></TR>


<TR>
<TD align=center width=100%>
<TABLE
style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; BORDER-BOTTOM: 1px inset"
cellSpacing=1 cellPadding=3 border=0>
<TR align=middle><td>
<INPUT id=advcheck name=advshow type=checkbox value=1 onclick=showadv()><label for=advcheck> 显示投票选项</label><br>
<INPUT id=bqcheck name=bqshow type=checkbox value=1 onclick=showbq()><label for=bqcheck> 表情帖图选项</label><br>
<INPUT id=bfcheck name=bfshow type=checkbox value=1 onclick=showbf()><label for=bfcheck> 动作帖图选项</label><br>
<INPUT id=flcheck name=flshow type=checkbox value=1 onclick=showfl()><label for=flcheck> 动画帖图选项</label><br>
<INPUT id=mfcheck name=mfshow type=checkbox value=1 onclick=showmf()><label for=mfcheck> 魔幻表情选项</label><br>
<INPUT id=wordcheck name=wordshow type=checkbox value=1 onclick=showword()><label for=wordcheck> 显示特效选项</label>
</td>
</TR>
</TABLE>
</TD></TR>



</TBODY></TABLE></TD>
<SCRIPT src="inc/postpc.js"></SCRIPT>
<SCRIPT src="inc/ybbcode.js"></SCRIPT>
<SCRIPT src="inc/flash.js"></SCRIPT>
<TD width=574 class=a3>
<img border=0 src=images\ybb\bold.gif onclick=YBBbold() alt="粗体">
<img border=0 src=images\ybb\italic.gif onclick=YBBitalic() alt="斜体">
<img border=0 src=images\ybb\underline.gif onclick=YBBunder() alt="下划线">
<img border=0 src=images\ybb\marquee.gif onclick=YBBmarquee() alt="移动">
<img border=0 src=images\ybb\strike.gif onclick=YBBstrike() alt="标注">
<img border=0 src=images\ybb\justifycenter.gif onclick=YBBcenter() alt="居中">
<img border=0 src=images\ybb\createLink.gif onclick=YBBurl() alt="插入超链接">
<img border=0 src=images\ybb\html.gif onclick=YBBHTML() alt="插入html代码">
<img border=0 src=images\ybb\glow.gif onclick=YBBglow() 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\sound.gif onclick=YBBsound() alt="插入背景音乐地址">
<img border=0 src=images\ybb\quote.gif onclick=YBBquote() alt="引用">
<img border=0 src=images\ybb\table.gif onclick=YBBtable() alt="表格">
<select onchange=ybbfont(this.options[this.selectedIndex].value)>
<option>字体</option>
<option value="Arial">Arial</option>
<option value="Arial Black">Arial Black</option>
<option value="Verdana">Verdana</option>
<option value="Times New Roman">Times N R</option>
<option value="Garamond">Garamond</option>
<option value="Courier New">Courier New</option>
<option value="Webdings">Webdings</option>
<option value="Wingdings">Wingdings</option>
<option value="隶书">隶书</option>
<option value="幼圆">幼圆</option>
<OPTION value="方正舒体">方正舒体</OPTION>
<OPTION value="方正姚体">方正姚体</OPTION>
<OPTION value="仿宋_GB2312">仿宋_GB2312</OPTION>
<OPTION value="黑体">黑体</OPTION>
<OPTION value="华文彩云">华文彩云</OPTION>
<OPTION value="华文细黑">华文细黑</OPTION>
<OPTION value="华文新魏">华文新魏</OPTION>
<OPTION value="华文行楷">华文行楷</OPTION>
<OPTION value="华文中宋">华文中宋</OPTION>
<OPTION value="楷体_GB2312">楷体_GB2312</OPTION>
<OPTION value="隶书">隶书</OPTION>
<OPTION value="宋体">宋体</OPTION>
<OPTION value="新宋体">新宋体</OPTION>
<OPTION value="幼圆">幼圆</OPTION>
</SELECT> <select onchange=ybbsize(this.options[this.selectedIndex].value)>
<OPTION>大小</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>
</SELECT>



<TABLE cellSpacing=0 cellPadding=0 align=left border=0 >
	<TBODY>
	<TR><TD id=ColorUsed onclick="if(this.bgColor.length > 0) insertTag(this.bgColor)" vAlign=center align=middle>
	<IMG height=10 width=20 border=1></TD></TD><SCRIPT>rgb(68,1,10)</SCRIPT></TR>
	</TBODY>
</TABLE>

</TD></TR>


<TR>
<TD width=570 class=a3>

<div id="sending" style="position:absolute;visibility:hidden;"><table width=520 height=173 border=0 cellspacing=2 cellpadding=0 class=a2><tr><td class=a3 align=center>内容正在发送, 请稍候...</td></tr></table></div>

<TEXTAREA onkeydown="presskey();" style="width:90%" id="TDcontent" name=content rows=10 cols=70><%=Request.Form("content")%></TEXTAREA>
<br>
　　　　　　　　　　　　　『 <a href="javascript:replac()">替换内容</a> 』 『  
<a href="javascript:HighlightAll('form.content')">复制到剪贴板</a> 』</TD></TR>


<tr id=bq style=DISPLAY:none><td colspan="4" class=a4><table width="680" align="center"  height="55" border="0" cellspacing="0" cellpadding="0"><TR align=middle>
<script>
ii=0
for(i=1;i<=80;i++) {
index = Math.floor(Math.random() * 80+1);
ii=ii+1
document.write("<TD><a href=javascript:emoticon('[em"+index+"]')><img border=0 src=images/Emotions/"+index+".gif></a></TD>")
if (ii==20){document.write("</TR><TR align=middle>");ii=0;}
}
</script>

</table></td></tr>

<tr id=bf style=DISPLAY:none><td colspan="4" class=a4><table  width=680><tr><td><table width="680" align="center"  height="55" border="0" cellspacing="0" cellpadding="0"><TR align=middle>
<tr><td class="a3"></td>
<td class="a3">
<A href="javascript:emoticon('[nc1]')"><img border=0 src=images/dongzuo/1.GIF alt="Oh my god!"></a>
<A href="javascript:emoticon('[nc2]')"><img border=0 src=images/dongzuo/2.GIF alt="开心"></a>
<A href="javascript:emoticon('[nc3]')"><img border=0 src=images/dongzuo/3.GIF alt="555~~"></a>
<A href="javascript:emoticon('[nc4]')"><img border=0 src=images/dongzuo/4.GIF alt="欠揍"></a>
<A href="javascript:emoticon('[nc5]')"><img border=0 src=images/dongzuo/5.GIF alt="必胜"></a>
<A href="javascript:emoticon('[nc6]')"><img border=0 src=images/dongzuo/6.GIF alt="支持"></a>
<A href="javascript:emoticon('[nc7]')"><img border=0 src=images/dongzuo/7.GIF alt="收到"></a>
<A href="javascript:emoticon('[nc8]')"><img border=0 src=images/dongzuo/8.GIF alt="讨厌"></a>
<A href="javascript:emoticon('[nc9]')"><img border=0 src=images/dongzuo/9.GIF alt="怕怕"></a>
<A href="javascript:emoticon('[nc10]')"><img border=0 src=images/dongzuo/10.GIF alt="不解"></a>
<A href="javascript:emoticon('[nc11]')"><img border=0 src=images/dongzuo/11.GIF alt="反对"></a>
<A href="javascript:emoticon('[nc12]')"><img border=0 src=images/dongzuo/12.GIF alt="傻了"></a>
<A href="javascript:emoticon('[nc13]')"><img border=0 src=images/dongzuo/13.GIF alt="大汗"></a>
<A href="javascript:emoticon('[nc14]')"><img border=0 src=images/dongzuo/14.GIF alt="砍"></a>
<A href="javascript:emoticon('[nc15]')"><img border=0 src=images/dongzuo/15.GIF alt="晕死"></a>
<A href="javascript:emoticon('[nc16]')"><img border=0 src=images/dongzuo/16.GIF alt="好酷"></a>
<A href="javascript:emoticon('[nc17]')"><img border=0 src=images/dongzuo/17.GIF alt="喜欢"></a>
<A href="javascript:emoticon('[nc18]')"><img border=0 src=images/dongzuo/18.GIF alt="漂亮"></a>
<A href="javascript:emoticon('[nc19]')"><img border=0 src=images/dongzuo/19.GIF alt="什么"></a>
<A href="javascript:emoticon('[nc20]')"><img border=0 src=images/dongzuo/20.GIF alt="想吐"></a>
<A href="javascript:emoticon('[nc21]')"><img border=0 src=images/dongzuo/21.GIF alt="垃圾"></a>
<A href="javascript:emoticon('[nc22]')"><img border=0 src=images/dongzuo/22.GIF alt="帅哥"></a>
<A href="javascript:emoticon('[nc23]')"><img border=0 src=images/dongzuo/23.GIF alt="美女"></a>
<A href="javascript:emoticon('[nc24]')"><img border=0 src=images/dongzuo/24.GIF alt="佩服"></a>
<A href="javascript:emoticon('[nc25]')"><img border=0 src=images/dongzuo/25.GIF alt="辛苦"></a>
<A href="javascript:emoticon('[nc26]')"><img border=0 src=images/dongzuo/26.GIF alt="灌水"></a>
<A href="javascript:emoticon('[nc27]')"><img border=0 src=images/dongzuo/27.GIF alt="痛苦"></a>
<A href="javascript:emoticon('[nc28]')"><img border=0 src=images/dongzuo/28.GIF alt="好惨"></a>
<A href="javascript:emoticon('[nc29]')"><img border=0 src=images/dongzuo/29.GIF alt="sorry"></a>
<A href="javascript:emoticon('[nc30]')"><img border=0 src=images/dongzuo/30.GIF alt="吹牛"></a>
<A href="javascript:emoticon('[nc31]')"><img border=0 src=images/dongzuo/31.GIF alt="不服"></a>
<A href="javascript:emoticon('[nc32]')"><img border=0 src=images/dongzuo/32.GIF alt="不说"></a>
<A href="javascript:emoticon('[nc33]')"><img border=0 src=images/dongzuo/33.GIF alt="哼！"></a>
<A href="javascript:emoticon('[nc34]')"><img border=0 src=images/dongzuo/34.GIF alt="没办法"></a>
<A href="javascript:emoticon('[nc35]')"><img border=0 src=images/dongzuo/35.GIF alt="经典"></a>
<A href="javascript:emoticon('[nc36]')"><img border=0 src=images/dongzuo/36.GIF alt="可惜"></a>
<A href="javascript:emoticon('[nc37]')"><img border=0 src=images/dongzuo/37.GIF alt="期盼"></a>
<A href="javascript:emoticon('[nc38]')"><img border=0 src=images/dongzuo/38.GIF alt="不说"></a>
<A href="javascript:emoticon('[nc39]')"><img border=0 src=images/dongzuo/39.GIF alt="好长"></a>
<A href="javascript:emoticon('[nc40]')"><img border=0 src=images/dongzuo/40.GIF alt="注意"></a>
<A href="javascript:emoticon('[nc41]')"><img border=0 src=images/dongzuo/41.GIF alt="恭喜"></a>
<A href="javascript:emoticon('[nc42]')"><img border=0 src=images/dongzuo/42.GIF alt="顶呀"></a>
<A href="javascript:emoticon('[nc43]')"><img border=0 src=images/dongzuo/43.GIF alt=""></a>
<A href="javascript:emoticon('[nc44]')"><img border=0 src=images/dongzuo/44.GIF alt="我踩"></a>
<A href="javascript:emoticon('[nc45]')"><img border=0 src=images/dongzuo/45.GIF alt="反对"></a>
<A href="javascript:emoticon('[nc46]')"><img border=0 src=images/dongzuo/46.GIF alt="呵呵"></a>
<A href="javascript:emoticon('[nc47]')"><img border=0 src=images/dongzuo/47.GIF alt="嘿嘿"></a>
<A href="javascript:emoticon('[nc48]')"><img border=0 src=images/dongzuo/48.GIF alt="好贴"></a>
<A href="javascript:emoticon('[nc49]')"><img border=0 src=images/dongzuo/49.GIF alt="好喜欢"></a>
<A href="javascript:emoticon('[nc50]')"><img border=0 src=images/dongzuo/50.GIF alt="欢迎"></a>
<A href="javascript:emoticon('[nc51]')"><img border=0 src=images/dongzuo/51.GIF alt="啪"></a>
<A href="javascript:emoticon('[nc52]')"><img border=0 src=images/dongzuo/52.GIF alt="我踢"></a>
<A href="javascript:emoticon('[nc53]')"><img border=0 src=images/dongzuo/53.GIF alt="耶！"></a>
<A href="javascript:emoticon('[nc54]')"><img border=0 src=images/dongzuo/54.GIF alt="郁闷"></a>
<A href="javascript:emoticon('[nc55]')"><img border=0 src=images/dongzuo/55.GIF alt="冤枉啊"></a>
<A href="javascript:emoticon('[nc56]')"><img border=0 src=images/dongzuo/56.GIF alt="嘻嘻"></a>
<A href="javascript:emoticon('[nc57]')"><img border=0 src=images/dongzuo/57.GIF alt="哈哈"></a>
<A href="javascript:emoticon('[nc58]')"><img border=0 src=images/dongzuo/58.GIF alt="啊？！"></a>
</td></tr>
</table></td></tr></table></td></tr>

<tr id=fl style=DISPLAY:none>
<td colspan="4" class=a4>
<table width="680" align="center"  height="55" border="0" cellspacing="0" cellpadding="0"><TR align=middle>
<td><font color=red>使用需要50金币/个</font><td></tr><tr><td>
<iframe src="images/swf/qiaozui.asp" height="51" width="551" scrolling="no" frameborder=0 marginwidth="1" marginheight="1" allowtransparency="true">浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架.</iframe>
</td></tr>
</table></td></tr>

<tr id=word style=DISPLAY:none><TD vAlign=top align=center width=160 class=a4>
<font color=red><b>特殊贴和特效字：</b></font>
</td>
<TD width=570 class=a4>
<img border=0 src=images\ybb\light.gif onclick=Ybblight() alt="发光字">
<img border=0 src=images\ybb\SHADOW.gif onclick=YbbSHADOW() alt="阴影字">
<img border=0 src=images\ybb\first.gif onclick=Ybbtext1() alt="效果字1">
<img border=0 src=images\ybb\second.gif onclick=Ybbtext2() alt="效果字2">
<img border=0 src=images\ybb\third.gif onclick=Ybbtext3() alt="效果字3">
<img border=0 src=images\ybb\forth.gif onclick=Ybbtext4() alt="效果字4">
<img border=0 src=images\ybb\fifth.gif onclick=Ybbtext5() alt="效果字5">
<img border=0 src=images\ybb\replyview.gif onclick=replyview() alt="限制需要回复才可以查看">
<img border=0 src=images\ybb\power.gif onclick=power() alt="限制威望数多少以下的用户不可查看">
<img border=0 src=images\ybb\glamour.gif onclick=magicpower() alt="限制魅力数多少以下的用户不可查看">
<img border=0 src=images\ybb\point.gif onclick=point() alt="限制经验数多少以下的用户不可查看">
<img border=0 src=images\ybb\money.gif onclick=money() alt="限制社区酷币多少以下的用户不可查看">
<img border=0 src=images\ybb\buy.gif onclick=buypost() alt="限制看贴者需要花钱购买本贴">
</td>
</tr>

<tr id=mf style=DISPLAY:none><td colspan="4" class=a4>
<TABLE cellSpacing=1 cellPadding=3 border=0 width=100%>
<tr vAlign=top width=100% class=a3 align=center><td>
<img src="Images/ybb/Previous.gif" onClick="Uemotion(-1)" title="上一页"></a> <a style="cursor:hand" onClick="Uemotion(0)" title='点击展开发贴表情'>打开表情</a><img src="Images/ybb/Next.gif" onClick="Uemotion(1)" title="下一页" ></TD></TR>
<TR>
<TD align=center width=100% height=120>
<div id="Emview" align="center" style="BORDER:1px;width:90%;height=100%;line-height:120%"></div>
<script defer>
var Ue=2;
function Uemotion(ue){
Emview.style.border="1px outset";
var  ue;
if (ue!=0){Ue=Ue+ue;}
if (Ue==4){Ue=1;}
if (Ue==0){Ue=4;}
var UEmview="";
for (index=(Ue-1)*48+1;index<=Ue*48&&index<=180;index++){
UEmview+="<a href=javascript:emoticon1('"+index+"')><span onmouseover=ShowQQ('"+index+"') style=cursor: hand><img border=0 src=images/QQMT/"+index+".gif></span></a>";
if (index%48==0){
UEmview+="<br>";
}
}
document.all.Emview.innerHTML="<br>"+UEmview;
}
</script>
</TD></TR>
</TABLE>
</td></tr>




<TR id=adv style=DISPLAY:none>
<TD vAlign=top align=left width=160 class=a4>


<FONT color=000000><B>投票项目</B><BR>
每行一个投票项目<BR><BR>
<INPUT type=radio CHECKED value=0 name=multiplicity id=multiplicity>
<label for=multiplicity>单选投票</label>
<BR><INPUT type=radio value=1 name=multiplicity id=multiplicity_1> <label for=multiplicity_1>多选投票</label></FONT>

</TD>
<TD width=570 class=a4>
<TEXTAREA name=vote rows=8 style="width:90%"></TEXTAREA>
</TD></TR>


<TR>
<TD align=left class=a4>
<IMG src=images/affix.gif><b>增加附件</b>
<%if membercode>filecode then%>
<TD align=left class=a4><font color="FFFFFF"><b><IFRAME src="upfile.asp" frameBorder=0 width="100%" scrolling=no height=21></IFRAME></b></font></TD></TR>
<%else%>
<TD align=left class=a4 width="300"><font color="#FF0000"><b>您没有上传附件的权限......加油哦......^_^</b></font></TD></TR>
<%end if%>

<TR>
<TD align=middle class=a3 colSpan=2 height=27>
<INPUT tabIndex=4 type=submit value=发表新主题 name=submit1> <input name=preview type="submit" value=" 预 览 "> <INPUT type=reset onclick="checkclick('该项操作要清除全部的内容，您确定要清除吗?');" value=" 重 写 "><br><script>
function admin_Size(num,objname)
{
    var obj=document.getElementById(objname)
    if (parseInt(obj.rows)+num>=3) {
        obj.rows = parseInt(obj.rows) + num;    
    }
    if (num>0)
    {
        obj.width="90%";
    }
}

</script>
                <a href="javascript:admin_Size(-5,'TDcontent')"><img src=images/ybb/minus.gif unselectable=on border=0 alt='缩小长度'></a><a href="javascript:admin_Size(5,'TDcontent')"><img src=images/ybb/plus.gif unselectable=on border=0 alt='增加长度'></a></TD></TR></TBODY></FORM>
</TABLE>
<SCRIPT>valignbottom()</SCRIPT>





<%
htmlend
%>
'#########################################################################
'插件编号:szhotdog_sppost
'插件名称:简单特殊贴(加强版)for BBSXP5.12,BBSXP5.1
'插件介绍:回复贴、购买贴、经验贴、帮派贴
'插件作者:szhotdog(MVP)修改作者：有熊氏新郑 QQ:414689875
'任何问题请登陆http://myl318.fangwen.cn
'##########################################################################
sub checkbuy(contentT)
if instr(lcase(contentT),"[buy=")>0 then
contentT1=split(contentT,"[buy=")
contentT2=replace(contentT,contentT1(0)&"[buy=","")
contentT2=split(contentT2,"]")
	if isnumeric(contentT2(0)) then
		if conn.execute("select [money] from [user] where username='"&Request.Cookies("username")&"'")(0)-(5*int(contentT2(0)))>0 and int(contentT2(0))>0 then
		'contentT=replace(replace(contentT,"[guy]","[￥sppost]"),"[$/sppost]","[￥/sppost]")
			if instr(lcase(contentT),"[/guy]")>0 then
			filtrate=split(content,"[/guy]")
			for i = 0 to ubound(filtrate)
			
			next
			if i>2 then error("<li>[guy]授权命令错误"&i)
			else
			contentT=contentT&"[guy][/guy]"
			end if
		conn.execute("update [user] set [money]=[money]-"&(5*int(contentT2(0)))&" where username='"&Request.Cookies("username")&"'")
		else
		contentT=replace(contentT,"[buy=","")
		end if
	else
	contentT=replace(contentT,"[buy=","")
	end if
end if
content=contentT
end sub
%>
'##########################################################################
<%
Function getcode1()
	Dim test
	On Error Resume Next
	Set test=Server.CreateObject("Adodb.Stream")
	Set test=Nothing
	If Err Then
		Dim zNum
		Randomize timer
		zNum = cint(8999*Rnd+1000)
		Session("GetCode") = zNum
		getcode1= Session("GetCode")		
	Else
		getcode1= "<img src=""nccode.asp"">"		
	End If
End Function
%>
