<!--#include file="../checkLogin.asp"-->
<html>

<head>

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" type="text/css" href="../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>
<title>发布帖子</title>

</head>
  
<link rel="stylesheet" href="../kindeditor3/themes/default/default.css" />
<script charset="utf-8" src="../kindeditor3/kindeditor.js"></script>
<script charset="utf-8" src="../kindeditor3/lang/zh_CN.js"></script>
<script>
		
			KindEditor.ready(function(K) {
			var editor = K.create('textarea[name="content"]', {
				cssPath : '../kindeditor3/plugins/code/prettify.css',
				uploadJson : '../kindeditor3/asp/upload_json.asp',
				fileManagerJson : '../kindeditor3/asp/file_manager_json.asp',
				allowFileManager : true,
				afterCreate : function() {
					var self = this;
					K.ctrl(document, 13, function() {
						self.sync();
						K('form[name=example]')[0].submit();
					});
					K.ctrl(self.edit.doc, 13, function() {
						self.sync();
						K('form[name=example]')[0].submit();
					});
				}
			});
		});
	</script>
		

 
<script Language="JavaScript">
 function form_check(){
   if(document.form3.btype.value.length<1){window.alert("请选择类别");document.form3.btype.focus();return (false);}
   if(document.form3.title.value.length<1){window.alert("请输入标题");document.form3.title.focus();return (false);}
   if(document.form3.author.value.length<1){window.alert("请输入发布人");document.form3.author.focus();return (false);}

                  }

</script>
<body><table  border="1" align="center" cellpadding="10" cellspacing="0" bgcolor="#F7FCFF" style="border-collapse:collapse">
		<tr>
		<td height="260"><p align="center">
<%

tname=request.cookies("tname")
 
'检查权限
       tname=request.cookies("tname") 
       Set MyOAASPObj= Server.CreateObject("YFSchoolOApro.YFSchoolDll")
           if MyOAASPObj.QuanXian(tname,"论坛管理")=0 then 
		    response.redirect  "../NoPower.asp"
           end if 
		   set MyOAASPObj=nothing

'检查权限结束



      Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
  call    MyOAASPObj.BBSaddZhuTi(tname)
     set MyOAASPObj=nothing
		   %>
	</p></td>
		</tr>
		</table>
</body>  
  
</html>  


