newannounce.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--#include file=INC/bbsfun.asp-->
<!--#include file=../INC/UbbCode.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
dim const_txl_HomeUrl,errstr,i,BoardID,BoardName,boardexist
errstr=""
boardexist=false
const_txl_HomeUrl="../"
BoardID=Request.QueryString("BoardID")
IF BoardID="" or (not isnumeric(BoardID)) Then
	Response.Redirect("index.asp")
	Response.End
End IF
call OpenDatabase
getBoardName
call txl_SiteHead(const_txlname&"-班级论坛-"&BoardName)
Response.Flush()
call online
if Request.QueryString("action")="addAnnounce" then
	call	addAnnounce
else
	call main
end if
Response.Flush()
call CloseDatabase
call SiteBottom
Response.Flush()
Sub main
	If const_bbs_login_limit=1	Then	'论坛登录查看限制
		If session("username")="" Then
			errstr="<li>当前同学录状态已经设置为<font color=red>班级论坛只有登录之后才能看到</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='../user/login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看班级论坛出错！",errstr,779)
			Exit Sub
		End If
	ElseIf const_bbs_login_limit=2 Then
		If session("username")="" Then
			errstr="<li>当前同学录状态已经设置为<font color=red>班级论坛只有班级成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='../user/login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看班级论坛出错！",errstr,779)
			Exit Sub
		End If
		If not (session("usertype")=3 or session("usertype")=4)  Then
			errstr="<li>当前同学录状态已经设置为<font color=red>班级论坛只有班级成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你目前的身份没有该权限！</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看班级论坛出错！",errstr,779)
			Exit Sub
		End If
	End	If
IF not  boardexist then
	dim errstr
	errstr="<li>不存在标号为"&BoardID&"的论坛版面,该版面可能已经被删除</li>"
	errstr=errstr&"<li>请选择<a href='index.asp'>班级论坛</a>重新进入论坛版面</li>"
	Call	printerror("读取论坛版面出错",errstr,779) 
	exit sub
end if

%>
<table width="779" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td background="" style="padding:5px;vertical-align:top; "> 
      <table width="100%"  border="0" cellspacing="5" cellpadding="0">
        <tr> 
          <td class="rig1"><strong> 当前位置： <a href="<%=const_homepageurl%>">首页</a> 
            &gt;&gt; <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> 
            &gt;&gt; <a href="index.asp">班级论坛</a> &gt;&gt;<span class="content"><strong><%=BoardName%> 
           </strong></td>
          <td height="25" bgcolor="#FFFFFF" class="small"> 
            <marquee direction="left" loop="-1" scrollamount="2" width="100%" onMouseOver="this.stop()" onmouseout="this.start()"><%Call  BBSNotic(BoardID)%></marquee>
          </td>
        </tr>
      </table>
      <!-- <table width="100%"  border="0" cellpadding="0" cellspacing="5" class="liu">
        <tr> 
          <td bgcolor="#FFFFFF"><img src="images/newanc.gif" width="60" height="17"></td>
          <td width="458" align="right" bgcolor="#FFFFFF">版主：<%Call showbbsmaster(boardid)%></td>
        </tr>
      </table> -->
	  <script>
	  var submitflag=false
	  function addcontent(str1,str2)
	{
		form1.Form_Content.focus();
		if ((document.selection)&&(document.selection.type== "Text"))
		{
			var range= document.selection.createRange();
			var ch_text=range.text;
			range.text= str1 + ch_text + str2;
		} 
		else
		{
			document.form1.Form_Content.value=document.form1.Form_Content.value+str1+str2;
			form1.Form_Content.focus();
		}
	}

	  function check_walkman_form(walkman_frm)
	  {
	  //walkman编写
	  if (walkman_frm.Form_Content.value==""){
	  	alert("请输入内容！");
		walkman_frm.Form_Content.focus();
		return false
	  }
	   var maxlength=4000
	  if (walkman_frm.Form_Content.value.length>maxlength){
	  	alert("内容不能大于"+maxlength+"！,当前长度"+walkman_frm.Form_Content.value.length);
		walkman_frm.Form_Content.focus();
		return false
	  }
		if(!submitflag){
			walkman_frm.submit();
			walkman_frm.Submit.disabled=true
			submitflag=true
		 return true
		}
		else
		{
			alert("请不要重复提交");
			return false;
		}
	  }
	  function  showpollform(po)
	{
		if(po.checked==true)
		{
			document.all("poll_sh").style.display=""
		}
		else
		{
		document.all("poll_sh").style.display="none"
		}
	}
	  </script>
      <form name="form1" method="post" action="?action=addAnnounce&BoardID=<%=BoardID%>" onkeydown="if(event.keyCode==13 && event.ctrlKey){if(check_walkman_form(this)){return true}}">
        <table width="769"  border="1" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF" bordercolor="#666666" style="border-collapse:collapse;">
          <tr> 
            <td colspan="2" class="title" height="28">发新帖子</td>
          </tr>
          <tr> 
            <td width="184" class="tar">新帖标题 
              <SELECT name=font onchange="document.form1.Form_Title.value=this.value+document.form1.Form_Title.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="583" class="content"> <input name="Form_Title" type="text" size="60" maxlength="225">
              (帖子标题，最长225字符) </td>
          </tr>
          <tr> 
            <td class="tar">插入UBB标签</td>
            <td height="22" class="content"><a href="javascript:addcontent('[B]','[/B]');" title=粗体><img src="../images/ubb/bold.GIF" width="20" height="20" align="absmiddle" border=0></a>