bbs_add.asp

强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。 开通会员注册和产品

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Inc/Design.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

	IF int(Web_Const(77))=0 or int(Loginuser_Flag(3))=0 THEN
        IF Loginuser_GroudId=0 THEN
            error_title="对不起，请先登陆，如果您不是我们的会员，请先注册！"
        Else
            error_title="对不起，论坛已禁止发表帖子！"
        End IF
        Call Page_check(3,0)
	End IF
IF instr(Web_Const(79),VisitorsIp) THEN
error_title="对不起，您的IP已被限制发表帖子！"
Call Page_check(3,0)
End IF
Dim Class_Content
ii=0
Table_List="Tx_Board"
FileName="bbs_class"
    Set Rs=server.createobject("adodb.recordset")
    Sql="Select * from " & Table_List & " where Class_Id=" & Id & " and Class_Flag=1"
    Rs.open Sql,Conn,1,1
        IF Rs.RecordCount=0 THEN Call Page_check(2,0)
        Class_Content=Rs("Class_Id") & "‖" & Rs("Class_Name") & "‖" & Rs("Class_Content")
        Class_Content=split(Class_Content,"‖")
    Rs.close
    Set Rs=Nothing
	Bbs_Add=Session("Loginuser")
	IF bId<>"" THEN
    Set Rs=server.createobject("adodb.recordset")
    Sql="Select * from Tx_Bbs where Bbs_Id=" & bId
    Rs.open Sql,Conn,1,1
        IF Rs.RecordCount=0 THEN Call Page_check(2,0)
		IF Action="Edit" THEN
	    Bbs_Content=Rs("Bbs_Id") & "‖" & Rs("Bbs_Title") & "‖" & Rs("Bbs_Content") & "‖" & Rs("Bbs_Add")
		Bbs_Content=split(Bbs_Content,"‖")
		Table_List1="Tx_Bbs"
        OldId="Bbs_Id"
        OldContent="Bbs_Content"
		Bbs_Add=Bbs_Content(3)
		End IF
    Rs.close
    Set Rs=Nothing
	End IF
    Page_Name="论坛 -- " & Class_Content(1) & " -- " & Web_Const(0)
    Class_Name="<A HREF='bbs_index.asp'>论 坛</A> > "
    Class_Id=Id
    Call Class_Namex()
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
	IF Action="Edit" THEN Id=Bbs_Content(0)
    %>
    <TABLE WIDTH="1000" BORDER="0" CEllPADDING="0" CELLSPACING="0">
        <TR>
        <TD VALIGN="top" CLASS="TABLE-Main">
            <DIV CLASS="bbs-top1"><IMG SRC="Skins/Blue/Tx_Ar5.gif"> <%=Class_Content(2)%></DIV>
            <DIV CLASS="bbs-indextalbe3"></DIV>
			<%
            Response.write "<DIV CLASS='bbs-listTABLE4'><SPAN CLASS='bbs-listTABLE6'>"
			IF Action="re" THEN
			    Response.write "回复帖子"
			End IF
			IF Action="" THEN
			    Response.write "发表帖子"
			End IF
			IF Action="Edit" THEN
			    Response.write "编辑帖子"
			End IF
			Response.write "</SPAN></DIV>"
			%>
		    <TABLE WIDTH="100%"  BORDER="0" CELLSPACING="1" cellpadding="0" CLASS="bbs-addTABLE1">
              <Form NAME=Form method=post action="bbs_sadd.asp?<%IF Action="Edit" THEN%>Action=editsave&Id=<%=Bbs_Content(0)%><%Else%>Action=addsave&Id=<%=Id%><%End IF%>" onSubmit="return checkdata()">
			  <TR>
                <TD CLASS="bbs-addTABLE2">用 户 名：</TD><TD CLASS="bbs-addTABLE3"><INPUT NAME="B_Add" TYPE="text" CLASS="INPUTimage" id="B_Add" VALUE="<%=Bbs_Add%>" size="20" maxlength="25"></TD>
              </TR>
              <TR>
                <TD CLASS="bbs-addTABLE2">帖子主题：</TD><TD CLASS="bbs-addTABLE3"><INPUT NAME="B_Title" TYPE="text" CLASS="INPUTimage" id="B_Title" VALUE="<%=Bbs_Content(1)%>" size="40" maxlength="50"> 不超过50个字</TD>
              </TR>
              <TR>
                <TD CLASS="bbs-addTABLE2">发帖表情：</TD><TD CLASS="bbs-addTABLE3"><DIV CLASS="bbs-addface1"><%Call bbs_Face()%></DIV></TD>
              </TR>
              <TR>
                <TD WIDTH="150" CLASS="bbs-addTABLE2">帖子内容：</TD><TD><%Call Page_ubb(2)%></TD>
              </TR>
              <TR>
                <TD CLASS="bbs-addTABLE2">签　　名：</TD><TD CLASS="bbs-addTABLE3">
				<INPUT NAME="B_Signs" TYPE="radio" VALUE="1" checked> 显示　<INPUT TYPE="radio" NAME="B_Signs" VALUE="0"> 不显示　<INPUT TYPE="image" src="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle"  onClick="document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;"> <INPUT TYPE="image" src="Skins/Blue/cl.gif"  NAME="Ok" ALIGN="absmiddle" onClick="vbscript:location.reload"><INPUT TYPE=hidden NAME=Content VALUE=""><INPUT TYPE=hidden NAME=PicUrl VALUE="">
				<%IF Action="re" THEN
				     Response.write "<INPUT NAME='B_ClassId' TYPE='hidden' VALUE='" & bId & "'><INPUT NAME='B_re' TYPE='hidden' VALUE='re'>"
				Else
				     Response.write "<INPUT NAME='B_ClassId' TYPE='hidden' VALUE='0'><INPUT NAME='B_re' TYPE='hidden' VALUE=''>"
				End IF%></TD>
              </TR>
			  </Form>
            </TABLE></TD>
    </TR>
</TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>