add_news_catalog.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%@language="VBscript"%>
<%Response.Expires=0%>
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")

function opendb(DBPath,sessionname,dbsort)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set opendb=session(sessionname)
end function

	set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username='" & oabusyusername&"'"
rs.open sql,conn,1
cook_allow_control_note=rs("allow_control_note")     
conn.close
set conn=nothing
set rs=nothing
if cook_allow_control_note="no" then
	response.write("<script language=""javascript"">")
	response.write("alert(""对不起，你没有进行此项操作的权限！"");")
	response.write("</script>")
	response.end
	end if
%>
<!--#include file="../include/checkadmin.asp"-->
<!--#include file="../include/conn.asp"-->
<style>
	td{font-size:13px;}
</style>
<table border="0" cellspacing="1" width="600" >
  <tr>
    <td height="23"><img src="images/spacer.gif" width="10" height="1"><font style="font-size:13px;" ><b>新闻目录</b></font></td>
  </tr>
  <tr>
    <td height="23" bgcolor="#FFFFFF">
	<br>
	<table border="0" width="100%">
	  <tr>
		<td width="50%" valign="top">
		<!--tree start-->
		<table border="0" cellspacing="1" cellpadding="1" width="90%" align="center" bgcolor="#D6DFF7">
		  <tr>
			<td height="23">现有目录列表</td>
		  </tr>
		  <tr>
			<td bgcolor="#FFFFFF">
			<br>
			<!--#include file="../include/news_tree.asp"-->
			<br>
			</td>
		  </tr>
		</table>
		<!--tree end-->
		</td>
		<td width="50%"  valign="top">
		<!--add start-->
		<script language="javascript">
			function doAdd(){
				if(document.frmadd.columnname.value==""){
					alert("请输入目录名称！");
					document.frmadd.columnname.focus();
					return false;
				}
			}
		</script>
		<form name="frmadd" method="post" action="add_news_catalog_ok.asp" onsubmit="javascript:return doAdd();">
		<input type="hidden" name="action" value="addnew">
		<table border="0" cellspacing="1" cellpadding="1" width="90%" align="center" bgcolor="#D6DFF7">
		  <tr>
			<td height="23">增加目录</td>
		  </tr>
		  <tr bgcolor="#FFFFFF">
			<td>
			<table border="0" width="100%">
			  <tr>
				<td height="28" width="60">&nbsp; 目录：</td>
				<td><input type="text" name="columnname"></td>
			  </tr>
			  <tr>
				<td height="28" width="60">&nbsp; 属于：</td>
				<td>
				<select name="columnid">
				<option value="0">新增目录</option>
				<%
				set rs_root=conn.execute("select columnid,columnname from tbl_news_column where columnparentid=0 order by columnid desc")
				do while not rs_root.eof
					response.write("<option value="&rs_root("columnid")&">"&rs_root("columnname")&"</option>")
					rs_root.movenext
				loop
				set rs_root=nothing
				%>
				</select>
				</td>
			  </tr>
			  <tr>
				<td height="28"></td>
				<td>
				<input type="submit" name="btnSubmit" value="增加" style="width:60px;">
				<input type="reset" name="btnReset" value="取消" style="width:60px;">
				</td>
			  </tr>
			</table>
			</td>
		  </tr>
		</table>
		</form>
		<!--add end-->
		<br>
		<!--edit start-->
		<script language="javascript">
			function doEdit(){
				if(document.frmedit.columnid.value==""){
					alert("请选择您要修改的目录！");
					return false;
				}
				if(document.frmedit.columnname.value==""){
					alert("请输入新的目录名称！");
					document.frmedit.columnname.focus();
					return false;
				}
			}
		</script>
		<form name="frmedit" action="add_news_catalog_ok.asp" method="post" onsubmit="javascript:return doEdit();">
		<input type="hidden" name="action" value="edit">
		<input type="hidden" name="columnid" value="">
		<table border="0" cellspacing="1" cellpadding="1" width="90%" align="center" bgcolor="#D6DFF7">
		  <tr>
			<td height="23">修改目录</td>
		  </tr>
		  <tr bgcolor="#FFFFFF">
			<td>
			<table border="0" width="100%">
			  <tr>
				<td height="28" width="60">&nbsp; 原名：</td>
				<td><input type="text" readonly name="old_columnname"></td>
			  </tr>
			  <tr>
				<td height="28">&nbsp; 新名：</td>
				<td><input type="text" name="columnname"></td>
			  </tr>
			  <tr>
				<td height="28"></td>
				<td>
				<input type="submit" name="btnSubmit" value="确定" style="width:60px;">
				<input type="reset" name="btnReset" value="取消" style="width:60px;">
				</td>
			  </tr>
			</table>
			</td>
		  </tr>
		</table>
		</form>
		<!--edit end-->
		</td>
	  </tr>
	</table>
	<br>
	</td>
  </tr>
  <tr>
    <td colspan="2" height="23" align="center"></td>
  </tr>
</table>