<!--#include file="inc/js_.inc"-->
<!--#include file="inc/ConnectDatabase.inc"-->
<%
dim ReID
ReID = trim(request("UserID"))
if ReID="" then
CloseConnection()
Alert_Error("非法进入!")
response.End
end if
ReID = int(ReID)
%>
<%="<script>"%>
<%
sql2="select * from SubModule"
set rsSubModule=server.CreateObject("adodb.recordset")
rsSubModule.Open sql2,objconn,1,1
%>
var onecount;
onecount=0;
Related = new Array();
<%
count = 0
do while not rsSubModule.eof
%>
Related[<%=count%>] = new Array("<%= trim(rsSubModule("SubModuleName"))%>","<%=trim(rsSubModule("id"))%>","<%=trim(rsSubModule("ParentID"))%>");
<%
count = count + 1
rsSubModule.movenext
loop
%>
onecount=<%=count%>;function changelocation(upid)
{
document.form1.SubModule.length = 0; var upid=upid;
var i;
document.form1.SubModule.options[0] = new Option('------','SubModuleDefault');
for (i=0;i < onecount; i++)
{
if (Related[i][2] == upid)
{
document.form1.SubModule.options[document.form1.SubModule.length] = new Option(Related[i][0], Related[i][1]);
}
}
} <%
rsSubModule.Close
set rsSubModule=nothing
%>
</script>
<%="<script language=javascript>"%> function ShowIFrame(id){
var j;
j = document.body.getElementsByTagName("DIV");
j(0).style.display="block";
document.all.myFrame.src="ShowIFrame_.asp?id="+id + "&PersonID=" + <%=ReID%>;
}
</script>
<style type="text/css">
.Menu_Items {
filter:alpha(opacity=100);
padding: 10;
width: 180;
display: none;
}
</style>
<title>配置用户权限</title>
<form name=form1 id=form2>
<TABLE WIDTH="700" BORDER="1" CELLSPACING="1" CELLPADDING="1">
<TR>
<TD>
<select name=AllModule onchange="changelocation(document.form1.AllModule.options[document.form1.AllModule.selectedIndex].value);">
<option selected value="AllModuleDefault">--------</option>
<%
dim sql
sql_AllModule = "select * from AllModule"
set rs_AllModule = server.CreateObject("adodb.recordset")
rs_AllModule.Open sql_AllModule,objconn,1,1
while not rs_AllModule.EOF
response.Write "<option value="&rs_AllModule("id")&">"&rs_AllModule("ModuleName")&"</option>"
rs_AllModule.MoveNext
wend
rs_AllModule.Close
%>
</select></TD>
<TD></TD>
<TD><select name=SubModule onchange="ShowIFrame(document.form1.SubModule.options[document.form1.SubModule.selectedIndex].value)">
</select></TD>
</TR>
<TR>
<TD><div id=div1 style="display:none;"><Iframe name="myFrame" width=100% height=100%></Iframe></div></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
</TABLE>
</form>
<!--#include file="inc/ConnectDatabase.inc"-->
<%
dim ReID
ReID = trim(request("UserID"))
if ReID="" then
CloseConnection()
Alert_Error("非法进入!")
response.End
end if
ReID = int(ReID)
%>
<%="<script>"%>
<%
sql2="select * from SubModule"
set rsSubModule=server.CreateObject("adodb.recordset")
rsSubModule.Open sql2,objconn,1,1
%>
var onecount;
onecount=0;
Related = new Array();
<%
count = 0
do while not rsSubModule.eof
%>
Related[<%=count%>] = new Array("<%= trim(rsSubModule("SubModuleName"))%>","<%=trim(rsSubModule("id"))%>","<%=trim(rsSubModule("ParentID"))%>");
<%
count = count + 1
rsSubModule.movenext
loop
%>
onecount=<%=count%>;function changelocation(upid)
{
document.form1.SubModule.length = 0; var upid=upid;
var i;
document.form1.SubModule.options[0] = new Option('------','SubModuleDefault');
for (i=0;i < onecount; i++)
{
if (Related[i][2] == upid)
{
document.form1.SubModule.options[document.form1.SubModule.length] = new Option(Related[i][0], Related[i][1]);
}
}
} <%
rsSubModule.Close
set rsSubModule=nothing
%>
</script>
<%="<script language=javascript>"%> function ShowIFrame(id){
var j;
j = document.body.getElementsByTagName("DIV");
j(0).style.display="block";
document.all.myFrame.src="ShowIFrame_.asp?id="+id + "&PersonID=" + <%=ReID%>;
}
</script>
<style type="text/css">
.Menu_Items {
filter:alpha(opacity=100);
padding: 10;
width: 180;
display: none;
}
</style>
<title>配置用户权限</title>
<form name=form1 id=form2>
<TABLE WIDTH="700" BORDER="1" CELLSPACING="1" CELLPADDING="1">
<TR>
<TD>
<select name=AllModule onchange="changelocation(document.form1.AllModule.options[document.form1.AllModule.selectedIndex].value);">
<option selected value="AllModuleDefault">--------</option>
<%
dim sql
sql_AllModule = "select * from AllModule"
set rs_AllModule = server.CreateObject("adodb.recordset")
rs_AllModule.Open sql_AllModule,objconn,1,1
while not rs_AllModule.EOF
response.Write "<option value="&rs_AllModule("id")&">"&rs_AllModule("ModuleName")&"</option>"
rs_AllModule.MoveNext
wend
rs_AllModule.Close
%>
</select></TD>
<TD></TD>
<TD><select name=SubModule onchange="ShowIFrame(document.form1.SubModule.options[document.form1.SubModule.selectedIndex].value)">
</select></TD>
</TR>
<TR>
<TD><div id=div1 style="display:none;"><Iframe name="myFrame" width=100% height=100%></Iframe></div></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
</TABLE>
</form>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货