📄 managetype.asp
字号:
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<!--#include file="asp/top.asp"-->
<script language="JavaScript">
function cdel(id,username){
var id;
if (confirm("注意:删除会把所有该类型文件全部删除且不可恢复!你真的要删除 ''"+username+"'' 吗？")){
document.location.href="managetype.asp?action=del&id="+id+"&username="+username;
}
}
</script>
<script Language="JavaScript">
function form_check(){
if(document.form1.typename.value==""){window.alert("类别不能为空");document.form1.typename.focus();return (false);}
//if(document.form1.username.value==""){window.alert("允许发文单位不能为空");document.form1.username.focus();return (false);}
}
function form_checkmodify(){
if(document.form2.typename.value==""){window.alert("类别不能为空");document.form1.typename.focus();return (false);}
//if(document.form1.username.value==""){window.alert("允许发文单位不能为空");document.form1.username.focus();return (false);}
}
</script>
<%
On Error Resume Next
'Response.Write request("action")
set conn=opendb("oabusy","conn","accessdsn")
if request("action")="del" then
sql="delete from fbgtype where id="&request("id")
conn.execute sql
'sql="delete from filetye where reid="&request("id")
'conn.execute sql
'sql="delete from filewj where bgid="&request("id")
'conn.execute sql
end if
if request("action")="modify" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from fbgtype where id="&request("id")
rs.open sql,conn,1
%>
<form method="post" action="<%=href%>?action=modifyok" id=form2 name=form2>
<table width="90%" border="0" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0" bgcolor="#cccccc" cellpadding="0" cellspacing="1">
<tr bgcolor="#cccccc">
<td colspan="2"> </td>
</tr>
<tr bgcolor="#eeeeee">
<td width="24%">
<div align="center"><b><font color="#0000FF">输入文件类型</font></b></div>
</td>
<td width="76%">
<input type="text" name="typename" size="40" value="<%=rs("typename")%>" style="border:1 solid #000000;">
</td>
</tr>
<tr bgcolor="#eeeeee">
<td width="24%">
<div align="center"><b><font color="#0000FF">该类型备注</font></b></div>
</td>
<td width="76%">
<input type="text" name="content" size="40" value="<%=rs("content")%>" style="border:1 solid #000000;background:#ffffff">
<input type="submit" name="Submit" style="border:1 solid #000000;background:#ffffff" value="提交" onclick="return form_checkmodify();">
<input type="hidden" name="id" size="40" value="<%=rs("id")%>" style="border:1 solid #000000;background:#ffffff">
</td>
</tr>
<tr bgcolor="#eeeeee">
<td width="24%">
<div align="center"><b><font color="#0000FF">管理该类型用户</font></b></div>
</td>
<td width="76%">
<input type="text" name="username" size="40" value="<%=rs("username")%>" style="border:1 solid #000000;background:#ffffff">
<a href="#" onClick="MM_openBrWindow('typeuserlist.asp?action=modify&id=<%=request("id")%>','','left=330,top=100,scrollbars=yes,width=550,height=500')">有权管理人员列表</a>
</td>
</tr>
</table></table></table>
</form>
<%
rs.close
set rs=nothing
end if
if request("action")="modifyok" then
sql="update fbgtype set typename='"&trim(request("typename"))&"',content='"&trim(request("content"))&"',username='"&trim(request("username"))&"' where id="&request("id")
conn.execute sql
Response.Write "类型修改成功!!!"
end if
if request("action")="add" then
set rs=server.createobject("adodb.recordset")
sql="select * from fbgtype order by id desc"
rs.open sql,conn,1,3
if not rs.EOF and not rs.BOF then
do while not rs.EOF
if rs("typename")=trim(request("typename")) then
Response.Write "此类型已存在!!!"&"<br>"
Response.Write "<a href='managetype.asp'>返回</a>"
Response.End
end if
rs.movenext
loop
end if
rs.AddNew
rs("typename")=trim(request("typename"))
rs("content")=trim(request("content"))
rs("jointime")=now()
rs("username")=trim(request("username"))&"|"
rs.Update
rs.Close
set rs=nothing
end if
set rs=server.createobject("adodb.recordset")
sql="select * from fbgtype "
rs.open sql,conn,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title></title>
</head>
<body topmargin="5" leftmargin="0">
<center>
</center>
<form method="post" action="<%=href%>?action=add" id=form1 name=form1>
<table width="90%" border="0" bgcolor="#cccccc" cellpadding="0" cellspacing="1" align="center">
<% if request("action")<>"modify" then%>
<tr bgcolor="#cccccc">
<td colspan="2"> </td>
</tr>
<tr bgcolor="#eeeeee">
<td width="24%">
<div align="center"><b><font color="#0000FF">新文件类型</font></b></div>
</td>
<td width="76%">
<input type="text" name="typename" size="40" style='border:1 solid #000000;background:#ffffff'>
</td>
</tr>
<tr bgcolor="#eeeeee">
<td width="24%">
<div align="center"><b><font color="#0000FF">该类型备注</font></b></div>
</td>
<td width="76%">
<input type="text" name="content" size="40" style='border:1 solid #000000;background:#ffffff'>
<input type="submit" name="Submit" value="提交" style="border:1 solid #000000;background:#ffffff" onclick="return form_check();">
</td>
</tr>
<tr bgcolor="#eeeeee">
<td width="24%">
<div align="center"><b><font color="#0000FF">管理该类型用户</font></b></div>
</td>
<td width="76%">
<input type="text" name="username" size="40" style='border:1 solid #000000;background:#ffffff'>
<a href="#" onClick="MM_openBrWindow('typeuserlist.asp','','scrollbars=yes,width=450,height=600')">有权管理人员列表</a>
</td>
</tr>
<%end if%>
</table>
<hr size="1">
<div align="center"><font color="#0000FF"><b><br>
下面为数据库所存文件大类型</b></font> </div>
<div align="center">
<table width="90%" border="0" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0" bgcolor="#cccccc" cellpadding="1" cellspacing="1">
<tr>
<%if not rs.eof or not rs.bof then%>
<tr bgcolor="#cccccc">
<td width="28%">
<div align="center"><strong>名称</strong></div> </td>
<td width="24%">
<div align="center"><strong>备注</strong></div> </td>
<td width="28%">
<div align="center"><strong>管理该类型用户</strong></div> </td>
<td width="11%">
<div align="center"><strong>操作</strong></div> </td>
<td width="9%">
<div align="center"><strong>操作</strong></div> </td>
<% do while not rs.EOF
if color then
bg="#eeeeee"
else
bg="#ffffff"
end if
%>
</tr>
<tr bgcolor="<%=bg%>" height="20">
<td width="28%"><%=rs("typename")%></td>
<td width="24%"><%=rs("content")%></td>
<td width="28%">
<%
username=""
joinman=rs("username")
if joinman<>"" then
mysendto=split(joinman,"|",-1,1)
for each sendtoinf in mysendto
set rs1=server.createobject("ADODB.recordset")
if trim(sendtoinf)<>"" then
sql="select * from userinf where username='"&trim(sendtoinf)&"'"
rs1.Open sql,conn,1,1
if username="" then
username=rs1("name")
else
username=username&","&rs1("name")
end if
rs1.Close
set rs1=nothing
end if
next
end if
Response.write username%>
</td>
<td width="11%">
<div align="center"><a href='managetype.asp?action=modify&id=<%=rs("id")%>'>修改</a></div>
</td>
<td width="9%">
<div align="center"> <a href="javascript:cdel('<%=rs("id")%>','<%=rs("typeanme")%>')">删除</a></div>
</td>
</tr>
<%
color=not color
rs.MoveNext
loop
%>
</table>
</table></table>
</div>
<table border=0 width=550 align="center">
<tr>
<td align="center">
<%
response.write "<a href=" & href & "?page=1&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">第一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page-1) & "&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">上一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page+1) & "&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">下一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & rs.pagecount & "&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">最后一页</a>"
%>
</td>
<td align="center"> 去第
<input type=text name=page size=3 style='border:1 solid #000000;background:#ffffff'>
页</td>
<td align="center">第页</td>
</tr>
</table>
</form>
<br>
<%else %>
<br>
<br>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td width="400" align="center"><font size="4" color="red">对不起,没有相关纪录</font></td>
</tr>
</table>
</body>
</html>
<%
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing%><!--#include file="footer.htm"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -