forum_write.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_forum.asp" -->
<!-- #include file="include/config_poll.asp" -->
<% if not(isnumeric(forumid)) then call cookies_type("forum_id") %>
<!-- #include file="include/config_frm.asp" -->
<!-- #include file="include/config_upload.asp" -->
<!-- #include file="include/conn.asp" -->
<%
call forum_first()
call forum_word()
tit=forumname&"（发表新贴）"
call web_head(2,0,2,0,0)

if int(popedom_format(login_popedom,41)) then call close_conn():call cookies_type("locked")
if forumreadonly<>0 then
if format_power(login_mode,0)<>"admin" then
call cookies_type("post_readonly")
end if
end if
'-----------------------------------center---------------------------------
response.write forum_top("发表新贴") & kong

'论坛主题加色和加粗开始
dim pintegral,btkf:btkf=int(web_var(web_num,43))
sql="select integral from user_data where username='"&login_username&"'"
set rs=conn.execute(sql)
if not(rs.eof and rs.bof) then
 pintegral=rs("integral")
end if
'论坛主题加色和加粗结束

dim fssb:fssb=int(web_var(web_num,27))
if trim(request.form("write"))="ok" then
  response.write "<table border=0><tr><td align=center height=200>"
  if post_chk()="no" then
    response.write post_error
  else
dim rs9,sql9,tim9
sql9="select top 1 username,tim from bbs_data where username='"&login_username&"' order by id desc"
  set rs9=server.createobject("adodb.recordset")
  rs9.open sql9,conn,1,1
  if rs9.eof then
  rs9.close:set rs9=nothing
    response.write write_chk()
  else
  tim9=now()-rs9("tim")
  rs9.close:set rs9=nothing
  if tim9<fssb*0.000011574 then        '大约 0.000011574 为 1 秒
  response.write VbCrLf & "<table border=0 width=300>" & _
            VbCrLf & "<tr><td align=center height=30><font class=red_3><b>对不起，两次发贴之间必须间隔 <font class=blue>"&fssb&"</font> 秒！</b></font></td></tr>" & _
            VbCrLf & "<tr><td height=30>您现在可以选择以下操作：</td></tr>" & _
            VbCrLf & "<tr><td>　　●  <a href='javascript:history.back(1)'>返回上一页</a>" & _
            VbCrLf & "<tr><td>　　●  <a href='forum_list.asp?forum_id=" & forumid & "'>返回 <b>" & forumname & "</b></a></td></tr>" & _
            VbCrLf & "<tr><td>　　●  返回 <a href='forum.asp'>论坛首页</a></td></tr>" & _
            VbCrLf & "</table>"
  else
    response.write write_chk()
  end if 
  end if
  end if
  response.write "</td></tr></table>"
else
  response.write write_type()
end if


'---------------------------------center end-------------------------------
call web_end(0)

function write_type()
%>
<script language=javascript><!--
function check(write_frm)
{
  if(write_frm.topic.value=="" || write_frm.topic.value.length>50)
  {
   alert("你还没完全留下所需信息！\r\n\n贴子的 主题 是必须要的；\n且长度不能超过50个字符。");
   return false;
  }
  if(write_frm.jk_word.value=="" || write_frm.jk_word.value.length><%response.write word_size*1024%>)
  {
   alert("你还没完全留下所需信息！\r\n\n贴子的 内容 是必须要的；\n且大小不能超过<%response.write word_size%>KB。");
   return false;
  }
}
--></script>
<script language=javascript src='style/em_type.js'></script>
<script language=javascript src='style/form_ok.js'></script>
<%response.write forum_table1%>
<form name=write_frm action='forum_write.asp?forum_id=<%response.write forumid%>' method=post onsubmit="frm_submitonce(this);">
<input name="Poll" type="hidden" value="<% =LCase(strPollPost) %>">
<input type=hidden name=write value='ok'>
<input type=hidden name=upid value=''>
<tr height=30<%response.write forum_table3%>>
<td width='20%' align=center>用户信息：</td>
<td width='80%'>&nbsp;&nbsp;用户名：<input type=username name=username value='<%response.write login_username%>' size=18 maxlength=20>&nbsp;&nbsp;
密码：<input type=password name=password value='<%response.write login_password%>' size=18 maxlength=20>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<font class=gray>[ <a href='user_main.asp?username=<%response.write server.htmlencode(login_username)%>'>用户中心</a> ]</font>&nbsp;&nbsp;&nbsp;&nbsp;
<font class=gray>[ <a href='login.asp?action=logout'>退出登陆</a> ]</font></td>
</tr>
<tr height=30<%response.write format_table(3,1)%>>
<td align=center>贴子主题：</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0><tr>
  <td>&nbsp;&nbsp;<%call frm_topic("write_frm","topic")%></td>
  <td>&nbsp;<input type=text name=topic size=60 maxlength=50><%response.write redx%>长度不能超过50</td>
  </tr></table>
</td>
</tr>

<!--论坛主题加色和加粗开始 -->
<tr height=30<%response.write format_table(3,1)%>>
<td align=center>主题加色：</td>
<td>&nbsp;&nbsp;<input type=checkbox name=tc value='yes'>&nbsp;选择加色功能后将扣取你 <font class=red><%response.write btkf%></font> 积分
&nbsp;&nbsp;&nbsp;&nbsp;颜色：#&nbsp;<input type=text name=tcolor value='' size=10 maxlength=6>&nbsp;&nbsp;<%call frm_tcolor("write_frm","tcolor")%>&nbsp;请正确填写 <font class=red_3>6</font> 位颜色代码</td>
</tr>
<tr height=30<%response.write format_table(3,1)%>>
<td align=center>主题加粗：</td>
<td>&nbsp;&nbsp;<input type=checkbox name=tbb value='yes'>&nbsp;选择加粗功能后将扣取你 <font class=red><%response.write btkf%></font> 积分
&nbsp;&nbsp;&nbsp;&nbsp;您的现有积分为：<font class=red><%response.write pintegral%></font> 分</td>
</tr>
<!--论坛主题加色和加粗结束 -->

<tr height=30<%response.write forum_table3%>>
<td align=center>当前心情：</td>
<td>&nbsp;&nbsp;<% response.write icon_type(9,3) %>
</td>
</tr>
<tr height=35<%response.write format_table(3,1)%>>
<td align=center><%call frm_ubb_type()%></td>
<td><%call frm_ubb("write_frm","jk_word","&nbsp;&nbsp;")%></td>
</tr>
<%	If strPollPost = "yes" Then %>
 <Tr align=center<%response.write forum_table3%>>
   <td><table border=0><tr><td class=htd>投票项目：<br><li>每行一个投票项目，最多<FONT color=red><B><% =strPollTotals %></B></FONT> 项<BR><li>超过自动作废，空行自动过滤<BR><li>如果投票需要多选，请在选择中打钩</tr></table></td>
   <td><table border=0><tr><td>
     <%if strPollTotals=0 then%>
       <script language=javascript>
        history.back()
        alert("论坛投票已暂时被管理员关闭！")
        </script>
     <%else%>
<TEXTAREA cols=93 name=liangu_poll rows=8></TEXTAREA><BR><select name=votetimeout size=1>
<option value=0>过期时间</option>
<option value=0>永不过期</option>
<option value=1>一天</option>
<option value=3>三天</option>
<option value=7>一周</option>
<option value=15>半月</option>
<option value=30>一月</option>
<option value=90>三月</option>
<option value=180>半年</option>
</select>&nbsp;&nbsp;<input type=checkbox name="MoreItem" id="MoreItem" value="yes" ><LABEL for=MoreItem style="CURSOR: HAND;">此投票是否允许多选？</LABEL>&nbsp;<input type=checkbox id=HidePoll name=HidePoll value="yes"><LABEL for=HidePoll style="CURSOR: HAND;">是否必须投票后才可查看结果？</LABEL>
     <%end If%>
</td></tr></table></td>
 </tr>
<%	End If %>
<tr align=center<%response.write forum_table3%>>
<td><table border=0><tr><td class=htd><b>贴子内容：</b><br><%call frm_word_size("write_frm","jk_word",word_size,"贴子内容")%><br><%response.write word_remark%><br>
</td></tr></table></td>
<td><table border=0><tr><td><textarea name=jk_word rows=17 cols=93 title='按 Ctrl+Enter 可直接发送' onkeydown="javascript:frm_quicksubmit();"></textarea></td></tr></table></td>
</tr>
<tr<%response.write format_table(3,1)%>><td align=center><b>上传文件 </b><select name="upload_type" size=1>
<option value="">允许类型</option><%
dim iupload
iupload=split(web_var(web_upload,2),",")
for i=0 to ubound(iupload)
response.write "<option value="&iupload(i)&">"&iupload(i)&"</option>"
next
%>
</select></td><td> <iframe frameborder=0 name=upload_frame width='99%' height=30 scrolling=no src='upload.asp?uppath=forum&upname=&uptext=jk_word'></iframe></td></tr>

<tr height=30>
            <td  valign=top colspan=2 bgcolor=#ffffff>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="22" colspan="20"> <script>function New(para_URL){var URL=new String(para_URL);window.open(URL,'','resizable,scrollbars')}</script> 
                    <b>点击动作即可在帖子中加入（<a href=JavaScript:New('images/dongz/index.htm') title=查看所有动作明细>相应的动作</a>）</B><br></td>
                </tr>
                <tr> 
                  <td width="5%" height="20"><div align="center"><a onClick="jk_insert_em('/招呼')" style="CURSOR: hand">招呼</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/欢迎')" style="CURSOR: hand">欢迎</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/灌水')" style="CURSOR: hand">灌水</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/无聊')" style="CURSOR: hand">无聊</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/负责')" style="CURSOR: hand">负责</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/生气')" style="CURSOR: hand">生气</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/高兴')" style="CURSOR: hand">高兴</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/鼓掌')" style="CURSOR: hand">鼓掌</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/等待')" style="CURSOR: hand">等待</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/反对')" style="CURSOR: hand">反对</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/浪漫')" style="CURSOR: hand">浪漫</a></div></td>
                  <td width="5%"><div align="center"><a onClick="jk_insert_em('/不要')" style="CURSOR: hand">不要</a></div></td>