📄 setqx.asp
字号:
<!--#include file="filetou.asp"-->
<%
sql="select USER from USER1 where 身份='管理员' or 身份='栏目管理员' "
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,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="index.CSS" Type="text/css">
<title>设置网站权限</title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#C8E3FF">
<div align="center">
<center> <form method="POST" name="DOWNFORM">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="450">
<tr>
<td width="100%" height="392" colspan="3">
<IFRAME name="TREE" frameBorder=0 height=100% marginHeight=1 marginWidth=1 scrolling=YES
width=100% BORDERCOLOR="#CCCCFF" src="setqx1.asp"></iframe>
</td>
</tr>
<tr>
<td width="77%" bgcolor="#C8E3FF" valign="top">
<p> 设置<input type="text" name="T1" size="22" readOnly style="background-color: #C8E3FF; border-left: 1 solid #C8E3FF; border-right: 1 solid #C8E3FF; border-top: 1 solid #C8E3FF; border-bottom: 1 solid #356286">栏目的管理员为:
<input type="text" name="T2" size="27" readOnly style="background-color: #C8E3FF; border-left: 1 solid #C8E3FF; border-right: 1 solid #C8E3FF; border-top: 1 solid #C8E3FF; border-bottom: 1 solid #356286"></p>
</td>
<td width="6%" bgcolor="#C8E3FF" valign="top" align="right"><input onclick="renname()" type="button" value="<<" name="B1"> </td>
<td width="17%" bgcolor="#C8E3FF" valign="top"><select size="3" name="D1">
<%DO WHILE NOT RS.EOF
Response.Write " <option value='"&rs("user")&"'>"&RS("USER")&"</option>"
RS.MOVENEXT
LOOP
RS.CLOSE
SET CONN=NOTHING
%>
</select><input type="text" name="T3" size="1" style="visibility: hidden"></td>
</tr>
</table> </form>
</center>
</div>
<!--#include file="filetouLR.asp"-->
<%
sql="select ID from MENU where MENUNAME<>'' "
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
<script language="javascript">
function renname() {
vrr1=document.DOWNFORM.T3.value
document.DOWNFORM.T2.value=document.DOWNFORM.D1.value+","+document.DOWNFORM.T2.value;
<%do while not rs.eof%>
if (vrr1=="<%=rs("id")%>"){
document.TREE.UPFORM.T<%=rs("id")%>.value=DOWNFORM.T2.value;}
<%RS.MOVENEXT
loop
RS.CLOSE
SET CONN=NOTHING
%>
}
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -