b_post.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
' File: g_post.asp
 ' Date: 2006-04-06
' Script Written by Leibo
'=========================================================
' Copyright (C) 2002,2008 Mathren.com. All rights reserved.
' Web: http://www.hrbyydz.com
' Email: [e-mail]
'=========================================================

if not founduser then
  	errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
if Cint(GroupSetting(11))=1 then
	Errmsg=Errmsg+"<br>"+"<li>您没有在班级论坛发表帖子的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	founderr=true
end if
if founderr then
	call head()
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	call txl_error()
else
	stats="发布新话题"
	call head()
	call head_var("班级论坛","b_index.asp")
	call main()
	if founderr then call txl_error()
end if
call foot()

sub main()
	if Cint(txl_set(14))=1 then
		Errmsg=Errmsg+"<br>"+"<li>班级论坛已经被管理员限制了不允许发表新话题。"
		founderr=true
		exit sub
	end if
%>
<script src="inc/ubbcode.js"></script>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">
<form action="b_Savepost.asp" method=POST onSubmit=submitonce(this) name=frmAnnounce>  
<tr> 
<td  bgcolor=<%=txl_body(10)%>><br>
<table cellpadding=3 cellspacing=1 align=center class=tableBorder1 width=<%=txl_body(19)%>>
<tr>
<th height=25 align=left colspan=2> 发表新话题</th>
</tr>
<tr>
<td width=20% class=tablebody2><b>用户名</b></td>
<td width=80% class=tablebody2><input name=realname value=<%=membername%>>&nbsp;&nbsp;<font color=#ce0000>* </font><a href=register.asp>您没有注册？</a></td>
</tr>
<tr>
<td width=20% class=tablebody1><b>密&nbsp;&nbsp;码</b></td>
<td width=80% class=tablebody1><input name=password type=password value=<%=htmlencode(memberword)%>><font color=#ce0000>&nbsp;&nbsp;* </font><a href=lostpass.asp>忘记密码？</a></td>
</tr>
<tr>
<td width=20% class=tablebody2><b>主题标题</b>
              <SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
              <OPTION selected 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=80% class=tablebody2><input name=subject size=60 maxlength=80>&nbsp;&nbsp;<font color=#ce0000><strong>*</strong></font>不得超过 25 个汉字或50个英文字符</td>	
</tr>
<tr>
<td width=20% valign=top class=tablebody1><b>当前心情</b><br><li>将放在帖子的前面</td>
<td width=80% class=tablebody1>
<%for i=0 to txl_PostFaceNum%>
<input type="radio" value="<%=txl_PostFace(i)%>" name="Expression" <%if i=0 then response.write "checked"%>><img src="<%=txl_info(8)&txl_PostFace(i)%>" >&nbsp;&nbsp;
<%if i>0 and ((i+1) mod 9=0) then response.write "<br>"%>
<%next%>
 </td>
</tr>
<tr>
<td width=20% valign=top class=tablebody1>
<b>内容</b><br>
<li>HTML标签： 
<li>UBB标签： 
<li>贴图标签： 
<li>多媒体标签：
<li>表情字符转换：
<li>上传图片：
<li>最多<BR><BR>
</td>
<td width=80% class=tablebody1>
<%if Cint(txl_set(19))=0 then%><!--#include file="inc/getubb.asp"--><%end if%>
<textarea class=smallarea cols=95 name=Content rows=12 wrap=VIRTUAL title="可以使用Ctrl+Enter直接提交贴子" class=FormClass onkeydown=ctlent()></textarea>
</td>
</tr>
<tr>
<td class=tablebody1 valign=top colspan=2 style="table-layout:fixed; word-break:break-all"><b>点击表情图即可在帖子中加入相应的表情</B><br>&nbsp;
<%
dim ii
for i=0 to 12
	if len(i)=1 then ii="0" & i else ii=i
	response.write "<img src="""&txl_info(9)&txl_emot(i)&""" border=0 onclick=""insertsmilie('[em"&ii&"]')"" style=""CURSOR: hand"">&nbsp;"
next
%>
</td>
</tr>
<tr>
<td valign=top class=tablebody1><b>选项</b></td>
<td valign=middle class=tablebody1><input type=checkbox name=signflag value=yes checked>是否显示您的签名？<br>
                <input type=checkbox name=emailflag value=yes>有回复时使用邮件通知您？</font>
<BR><BR></td>
</tr>
<tr>
<td align=center class=tablebody2 height=30 colspan=2><input type=submit name=Submit value="发 表">