forum_newannounce.asp

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

              <a href="javascript:addcontent('[CODE]','[/CODE]');" title=代码><img src="images/ubb/code.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[QUOTE]','[/QUOTE]');" title=引用><img src="images/ubb/quote1.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[FLY]','[/FLY]');" title=飞行><img src="images/ubb/fly.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[MOVE]','[/MOVE]');" title=移动><img src="images/ubb/move.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[GLOW=255,RED,2]','[/GLOW]');" title=发光><img src="images/ubb/glow.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[SHADOW=255,RED,2]','[/SHADOW]');" title=阴影><img src="images/ubb/shadow.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[SIZE=3]','[/SIZE]');" title=3号字><img src="images/ubb/size3.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[COLOR=blue]','[/COLOR]');" title=蓝色字><img src="images/ubb/blue.gif" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[COLOR=red]','[/COLOR]');" title=红色字><img src="images/ubb/red.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[MP=320,240]','[/MP]');" title=插入Media文件><img src="images/ubb/media.gif" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[RM=320,240]','[/RM]');" title=插入RealPlay文件><img src="images/ubb/real.gif" width="20" height="20" align="absmiddle" border=0></a></td>
          </tr>
          <tr> 
            <td class="tar">插入表情,时间</td>
            <td height="22" class="content">&nbsp;&nbsp;<a href="javascript:addcontent('[em01]','');"><img src="images/UBBicon/em01.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em02]','');"><img src="images/UBBicon/em02.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em03]','');"><img src="images/UBBicon/em03.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em04]','');"><img src="images/UBBicon/em04.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em05]','');"><img src="images/UBBicon/em05.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em06]','');"><img src="images/UBBicon/em06.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em07]','');"><img src="images/UBBicon/em07.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em08]','');"><img src="images/UBBicon/em08.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em09]','');"><img src="images/UBBicon/em09.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em10]','');"><img src="images/UBBicon/em10.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em11]','');"><img src="images/UBBicon/em11.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em12]','');"><img src="images/UBBicon/em12.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em13]','');"><img src="images/UBBicon/em13.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:addcontent('[em14]','');"><img src="images/UBBicon/em14.GIF" width="20" height="20" align="absmiddle" border=0></a> 
              <a href="javascript:var d; d=new Date();addcontent(d.getYear()+'-'+rightStr('0'+(d.getMonth()+1),2)+'-'+rightStr('0'+d.getDate(),2)+' '+rightStr('0'+d.getHours(),2)+':'+rightStr('0'+d.getMinutes(),2)+':'+rightStr('0'+d.getSeconds(),2),'');" title="插入时间"><b>T</b></a> 
            </td>
          </tr>
          <tr> 
            <td class="tar"><span class="style1">注意：</span><br>
              帖子内容不要超过4000;<br>
              HTML标记 不支持；<br>
              UBB代码 支持； <br> <a href="ubbhelp.asp" target="_blank">内容支持插入UBB标签<br>
              使用方法请参考帮助<br>
              <span class="style2"> </span></a>&nbsp;&nbsp; <input type="checkbox" id="pollshow"  name="pollshow" value="1" onClick="showpollform(this)"> 
              <label for=pollshow><font color="#FF0000">显示投票选项</font></label> 
            </td>
            <td class="content"> <textarea name="Form_Content" cols="85" rows="9" id="Form_Content"></textarea> 
              <br> <div align="right" style="font-size:11px;color:#666666;padding-right:28px;">缩放输入框: 
                <font face="webdings" style="FONT-SIZE: 12px; CURSOR: hand" onclick="document.form1.Form_Content.rows+=4" title="放大输入框">6</font> 
                <font face="webdings" style="FONT-SIZE: 12px; CURSOR: hand"  onclick="if(document.form1.Form_Content.rows>=4)document.form1.Form_Content.rows-=4;else return false" title="缩小输入框">5</font></div></td>
          </tr>
          <tr bgcolor="#666666" id="poll_sh" style="display:none;" name="poll_sh"> 
            <td valign="middle" bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="20%"></td>
                  <td width="80%">投票项目<br>
                    每行一个投票项目<br> <input name="multiplicity" id="radio" type="radio" value="0" checked> 
                    <label for=radio>单选投票</label>
                    <br> <input type="radio" id="radio2" name="multiplicity" value="1"> 
                    <label for=radio2>多选投票</label> </p></td>
                </tr>
              </table></td>
            <td bgcolor="#FFFFFF" style="height:25px;"> &nbsp; <textarea name="pollcontent" cols="80" rows="8" id="pollcontent"></textarea></td>
          </tr>
          <tr> 
            <td height="40" colspan="2" align="center"> <span style="color:#FF0000;font-weight:bold;">(Ctrl+Enter提交) 
              <input type="submit" name="Submit" value="提　交" onClick="return check_Csk3000_form(this.form)">
              　 
              <input type="reset" name="Submit3" value="重　置">
              </span></td>
          </tr>
        </table> 
	  </form>
    </td>
  </tr>
</table>
<%End Sub%>
<%sub addAnnounce
	dim studentid,content,pubtime,id,title
	dim errstr,sqlstr
	Dim rs,str_succ

	if outsitesubmit then
		printerror "发布影音论坛帖子出错","<li>请不要外部提交数据！</li>",779
		exit sub
	end if

	If not boardexist then
		errstr="<li>不存在标号为"&BoardID&"的论坛版面,该版面可能已经被删除</li>"
		errstr=errstr&"<li>请选择<a href='index.asp'>影音论坛</a>重新进入论坛版面</li>"
		Call	printerror("读取论坛版面出错",errstr,779) 
		exit sub
	End if

	If session("username")="" then
		printerror "发布影音论坛帖子出错","<li>您还没有登录，请先<a href='"&const_txl_HomeUrl&"user_login.asp'>登录</a>再发布留言！</li>",779
		exit sub
	end if

	title=htmlEncode(Trim(Request.Form("Form_Title")))
	studentid=Session("username")
	pubtime=now()
	content=Trim(Request.Form("Form_Content"))

	if title="" or isnull(title) Then
		printerror "发布影音论坛帖子出错","<li>请输入帖子标题！</li>",779
		exit sub
	end if
	if content="" or isnull(content) Then
		printerror "发布影音论坛帖子出错","<li>请输入帖子内容！</li>",779
		exit sub
	end if
	
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select top 1 * from Announce order by id desc",conn,1,3
	if rs.eof  then
		id=1
	else
		id=rs("id")+1
	end if

	rs.addnew()
		rs("id")=id
		rs("parentID")=0
		rs("boardid")=boardid
		rs("childnum")=0
		rs("title")=title
		rs("content")=content
		rs("printcontent")=UBBCode(content,1)
		rs("ndatetime")=pubtime
		rs("lasttime")=now()
		rs("hits")=0
		rs("username")=studentid
		rs("lastuser")=studentid
		rs("lastinfo")="主题内容："&left(content,20)
		rs("goodflag")=0
		rs("topflag")=3
		' 投票帖处理
		
		if Request("pollshow")<>"" then
			Dim vote,polltopic,j,i,allpolltopic,y,votenum
			vote=Request("pollcontent")
			if instr(vote,"|") > 0 then
				printerror "发布影音论坛帖子出错","<li>投票选项中不能含有“|”字符！</li>",779
				exit sub
			end if
			polltopic=split(vote,chr(13)&chr(10))
			j=0
			for i = 0 to ubound(polltopic)
				if not (polltopic(i)="" or Trim(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
	rs.close
	set rs=nothing
	if	Len(title)>30 then title=left(title,28)&"……"
	sqlstr="update boards set lastwriter='"&studentid&"',lastwritetime='"&now()&"',topicnum=topicnum+1,AnnounceNum=AnnounceNum+1,lastAnnounceID="&id&",lastboardid="&boardid&",lasttopicname='"&title&"' where boardid="&boardid
	conn.execute sqlstr
	Call	Stat__announce_num(boardid)	'统计新帖
	str_succ="<li>恭喜你，发布帖子成功！你刚才发布的帖子标题是"&title&"</li>"&Vbcrlf
	str_succ=str_succ&"<li><a href='Announce.asp?boardid="&boardid&"&announceid="&id&"' title='浏览你刚才发布的帖子'>点这里浏览你刚才发布的帖子</a>，系统5秒转到新帖！</li>"&Vbcrlf
	Call printsuc("发布影音帖子成功",str_succ,779)
	Response.write "<meta http-equiv=""refresh"" content='5;URL=Announce.asp?boardid="&boardid&"&announceid="&id&"'>"
  end sub
 %>