este es mi codigo:
Código:
Muchas gracias por la ayuda que me puedan brindar. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
set conn=server.CreateObject ("ADODB.connection")
set Rs=server.CreateObject ("ADODB.Recordset")
set Rspadre=server.CreateObject ("ADODB.Recordset")
set Rssalva=server.CreateObject ("ADODB.Recordset")
set RsUsu=server.CreateObject ("ADODB.Recordset")
set Rscodmod=server.CreateObject ("ADODB.Recordset")
set Rscomp=server.CreateObject ("ADODB.Recordset")
conn.Open ("Driver={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=proyectos;UID=root;PWD=4116734")
sql="select * from modulos where padre=''"
set rs=conn.execute(sql)
''VALIDACIÓN DE SI EL USUARIO EXISTE PARA PODER PROSEGUIR
sqlusu="select * from administracion where cod='"&request("codigo")&"'"
set rsusu=conn.execute(sqlusu)
if rsusu.eof then
response.Write("<script language='JavaScript'>alert('El codigo de usuario no existe'); self.close();</script>")
else
'DETERMINA SI EL USUARIO TIENE MODULOS ASIGNADOS
sqlcodmod="select codmodulo from modasg where cod='"&request("codigo")&"' order by codmodulo asc"
'response.Write(sqlcodmod)
set rscodmod=conn.execute(sqlcodmod)
end if
'response.Write("el valor de codigo es: "+request("cod")+"<br>")
'response.Write("el valor de nombre es: "+request("nombre")+"<br>")
'response.Write("el valor de userid es: "+request("userid")+"<br>")
'response.Write("el valor de pwd es: "+request("pwd")+"<br>")
%>
<html>
<head>
<title>Modulos del Sistema</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
function cerrar(){
window.close();
}
function salvaregistro(){
//VALIDA PRIMERO SI NO HAY CHECKBOX ASIGNADOS
var sw=0;
for(i=0; i<document.frmmod.caja.length; i++){
if (document.frmmod.caja[i].checked==true){
sw=1;
}
}
if (sw==0){
alert("Por favor, antes de salvar, seleccione por lo menos un modulo");
}
else{
frmmod.submit();
}
}
function recargar(){
window.location.href="Ing_modulos.asp?codigo="+document.frmmod.codigo.value+"&nombre="+document.frmmod.Nombre.value+"&userid="+document.frmmod.UserId.value+"&pwd="+document.frmmod.Pwd.value+"&perfil="+document.frmmod.perfil.value;
var enlace="admon.asp?codigo="+document.frmmod.codigo.value+"&nombre="+document.frmmod.Nombre.value+"&userid="+document.frmmod.UserId.value+"&pwd="+document.frmmod.Pwd.value+"&perfil="+document.frmmod.perfil.value+"&pp=T";
window.opener.location.href=enlace;
}
//-->
</script>
<link href="MiCSS.css" rel="stylesheet" type="text/css">
</head>
<body>
<div id="Layer1" style="position:absolute; left:150px; top:6px; width:67px; height:26px; z-index:1;"><img src="Images/Btns_guardar.gif" alt="Salvar el registro" width="21" height="21" style="cursor:hand" onClick="salvaregistro();"><img src="Images/Btns_cerrar.gif" alt="Cerrar la ventana" width="21" height="21" onClick="cerrar();" style="cursor:hand" ></div>
<table width="75%" border="0" cellspacing="0">
<tr>
<td><img src="Images/Barra_Sup.jpg" width="250" height="10"></td>
</tr>
</table>
<form method="post" action="" name="frmmod" id="frmmod">
<table width="75%" border="0" align="center" cellspacing="0" id="TablaCon_Usuarios" >
<%while not rs.eof%>
<tr>
<td colspan="2" bgcolor="#ffcb7d"><strong><%=rs("modulo")%></strong></td>
</tr>
<%sqlh="select * from modulos where padre='"&rs("cod")&"'"
set rspadre=conn.execute (sqlh)
while not rspadre.eof%>
<tr>
<td><input type="checkbox" name="caja" id="caja" value="<%=rspadre("cod")%>" <%if not rscodmod.eof then%> <%if rscodmod("codmodulo")=rspadre("cod") then%> checked disabled<%rscodmod.movenext%><%end if%><%end if%> ></td>
<td> <%=rspadre("modulo")%></td>
</tr>
<%rspadre.movenext
wend%>
<%rs.movenext
wend
%>
</table>
<input name="validamod" type="hidden" id="validamod" value="T">
<input name="codigo" type="hidden" id="codigo" value="<%=request("codigo")%>">
<input name="Nombre" type="hidden" id="Nombre" value="<%=request("nombre")%>">
<input name="UserId" type="hidden" id="UserId" value="<%=request("userid")%>">
<input name="Pwd" type="hidden" id="Pwd" value="<%=request("pwd")%>">
<input name="perfil" type="hidden" id="perfil" value="<%=request("perfil")%>">
</form>
<table width="75%" border="0" cellspacing="0">
<tr>
<td><img src="Images/Barra_Inf.jpg" width="250" height="10"></td>
</tr>
</table>
<br>
</body>
</html>
<%'response.Write(request("caja"))
if request("validamod")="T" then
sqlcomp="select codmodulo from modasg where cod='"&request("codigo")&"'"
set rscomp=conn.execute(sqlcomp)
mcaja=split(request("caja"),",")
'response.Write(request("caja"))
sw=0
for i=0 to ubound(mcaja)
if mcaja(i)<>"" then
while not rscomp.eof
if cint(mcaja(i))=cint(rscomp("codmodulo")) then
sw=1
end if
rscomp.movenext
wend
end if
if not rscomp.eof then
rscomp.movefirst
end if
if sw=0 then
sqlmax= "insert into modasg(cod, codmodulo) values('"&request("codigo")&"','"&trim(mcaja(i))&"')"
set rssalva=conn.execute(sqlmax)
else
sw=0
end if
next
codjs="<script language='JavaScript'>"
codjs=codjs+"recargar();"
codjs=codjs+"</script>"
response.Write(codjs)
end if%>
