forum_newannounce.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->
<!--#include file=INC/Forum_bbsfun.asp-->
<!--#include file=INC/UbbCode.asp-->

<%
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 web_end
Response.Flush()
Sub main
	If const_bbs_login_limit=1	Then	'论坛登录查看限制
		If session("username")="" Then
			errstr="<li>当前Wap影音状态已经设置为<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>当前Wap影音状态已经设置为<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>当前Wap影音状态已经设置为<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="forum.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_Csk3000_form(Csk3000_frm)
	  {
	  //Csk3000编写
	  if (Csk3000_frm.Form_Content.value==""){
	  	alert("请输入内容！");
		Csk3000_frm.Form_Content.focus();
		return false
	  }
	   var maxlength=4000
	  if (Csk3000_frm.Form_Content.value.length>maxlength){
	  	alert("内容不能大于"+maxlength+"！,当前长度"+Csk3000_frm.Form_Content.value.length);
		Csk3000_frm.Form_Content.focus();
		return false
	  }
		if(!submitflag){
			Csk3000_frm.submit();
			Csk3000_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_Csk3000_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> 
              <a href="javascript:addcontent('[I]','[/I]');" title=斜体><img src="images/ubb/italicize.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[U]','[/U]');" title=下划线><img src="images/ubb/underline.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[ALIGN=CENTER]','[/ALIGN]');" title=居中><img src="images/ubb/center.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[URL]','[/URL]');" title=链接><img src="images/ubb/url1.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[EMAIL]','[/EMAIL]');" title=邮件><img src="images/ubb/email1.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[IMGA]','[/IMGA]');" title=图片><img src="images/ubb/image.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[FLASH]','[/FLASH]');" title=Flash><img src="images/ubb/swf.GIF" width="20" height="20" align="absmiddle" border=0></a>