📄 mftype.asp
字号:
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/top.asp"-->
<!--#include file="asp/checkuser.asp"-->
<script language="JavaScript">
function cdel(id,username){
var id;
if (confirm("注意:删除会把允许发布该类型用户删除且不可恢复!你真的要删除 ''"+username+"''的发布用户吗？")){
document.location.href="mftype.asp?action=del&id="+id;
}
}
function form_check(){
if(document.form.username.value==""){window.alert("允许发文单位不能为空");document.form.username.focus();return (false);}
}
</script>
<%
set conn=opendb("oabusy","conn","accessdsn")
if request("action")="del" then
sql="select fbuser from fbgtype where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("fbuser")=" "
rs.update
rs.close
set rs=nothing
end if
if request("action")="manuser" then
id=request("id")
%>
<form method="post" action="<%=href%>?action=manuserok" id=form1 name=form>
<table width="90%" border="0" bgcolor="#cccccc" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0" bgcolor="#eeeeee" cellpadding="1" cellspacing="1">
<tr>
<td>
<table width="100%" border="0" bgcolor="#eeeeee" cellpadding="1" cellspacing="1">
<tr>
<td width="22%">
<div align="left"><b><font color="#0000FF">允许发布<b><font color=#ff0000><%=request("typename")%></font></b>用户</font></b></div>
</td>
<td width="78%">
<input type="text" name="username" size="40" style="border:1 solid #000000;background:#ffffff">
<input type="submit" name="Submit" style="border:1 solid #000000;background:#ffffff" value="提交" >
<input type="hidden" name="id" size="40" value="<%=id%>">
<a href="#" onClick="MM_openBrWindow('typeuserlist.asp?action=manuser&id=<%=id%>','','scrollbars=yes,width=550,height=500')">有权管理人员列表</a>
</td>
</tr>
</table> </table> </table>
</form>
<hr size=1>
<%
end if
if request("action")="manuserok" then
fbuser=""
set rs=server.createobject("adodb.recordset")
sql="select fbuser from fbgtype where id="&request("id")
rs.open sql,conn,1
username=request("username")
if username<>"" then
username=username&"|"
if rs("fbuser")<>"" then
if instr(1,rs("fbuser"),username)>0 then
Response.Write "此用户已存在!!!"&"<br>"
Response.Write "<a href='mftype.asp'>返回</a>"
Response.End
end if
end if
fbuser=rs("fbuser")
else
username=" "
end if
rs.close
set rs=nothing
fbuser=fbuser&username
sql="update fbgtype set fbuser='"&fbuser&"' where id="&request("id")
conn.execute sql
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css.css">
<title></title></head>
<body topmargin="0" leftmargin="0">
<center>
</center>
<%
set rs=server.createobject("adodb.recordset")
'sql="select filetype.reid,fbgtype.typename,filetype.id,filetype.filename,filetype.username"
'sql=sql&" from fbgtype inner join filetype on fbgtype.id=filetype.reid"
sql="select * from fbgtype order by id asc"
rs.open sql,conn,1
if not rs.eof and not rs.bof then
%>
<td colspan="2">
<div align="center">
<p><font color="#0000FF"><b>数据库所存文件类型</b></font></p>
</div>
</td></tr>
<tr>
<td colspan="2">
<table width="90%" border="0" bgcolor="#cccccc" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0" bgcolor="#ffffff" cellpadding="1" cellspacing="1">
<tr bgcolor="#cccccc" height="25">
<td width="30%">
<div align="center">类型名称</div>
</td>
<td width="47%">
<div align="center">允许发布该类型的用户</div>
</td>
<td width="20%" width="11%">
<div align="center">删除允许发布用户</div>
</td>
</tr>
<% do while not rs.EOF
if color then
bg="#eeeeee"
else
bg="#ffffff"
end if
%>
<tr bgcolor="<%=bg%>" height="20">
<td width="38%"><b><%=rs("typename")%></b>
<%
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then%>
[<a href="managetype.asp">管理</a>]
<%End if
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 or instr(1,"||"&rs("username"),oabusyusername)>1 then%>
[<a href="mftype.asp?id=<%=rs("id")%>&action=manuser&typename=<%=rs("typename")%>">管理发布用户</a>]
<%end if%>
</td>
<td width="47%">
<div align="center">
<%
username=""
joinman=rs("fbuser")
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,3
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
%>
</div>
</td>
<td width="11%">
<div align="center">
<%
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then%>
<a href="javascript:cdel('<%=rs("id")%>','<%=rs("typename")%>')">删除</a>
<%end if%></div>
</td>
</tr>
<%
color=not color
rs.MoveNext
loop%>
</table></table></table>
</td>
</tr></table>
<div align="center"></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>
页</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
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then Response.Write " <a href='managetype.asp'>发布新类别</a>"
rs.Close
set rs=nothing
conn.close
set conn=nothing
%><!--#include file="footer.htm"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -