<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.CodePage = 65001
Response.CharSet = "utf-8"
response.Buffer=TRUE
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Metodologia Asincronica (AJAX)</title>
<script language="javascript" type="text/javascript">
/* NO BORRAR ESTA SECCION*/
var enProceso = false; // lo usamos para ver si hay un proceso activo
var http = getHTTPObject(); // Creamos el objeto XMLHttpRequest
function getHTTPObject() {
var xmlhttp;
/*@cc_on
@if (@_jscript_version >= 5)
try {xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (E) { xmlhttp = false; } }
@else
xmlhttp = false;
@end @*/
if (!xmlhttp && typeof XMLHttpRequest != 'undefined') {
try {xmlhttp = new XMLHttpRequest();
} catch (e) { xmlhttp = false; }}
return xmlhttp;}
/* ESTA FUNCION MANEJARA LA RESPUESTA */
function handleHttpResponse() {
if (http.readyState == 4) {
if (http.status == 200) {
if (http.responseText.indexOf('invalid') == -1){
results = http.responseText.split(",");
document.getElementById(results[0]).innerHTML = results[1];
enProceso = false;}
}
else
{
results = http.responseText.split(",");
document.getElementById(results[0]).innerHTML = results[1];
enProceso = false;
}
}
}
/* ESTA FUNCION ENVIARA LA RESPUESTA*/
function Privilegios(UserID,UserStatus,Mostrar) {
var UID, UST;
if (!enProceso && http) {
UID = document.getElementById(UserID).value;
UST = document.getElementById(UserStatus).value;
var url = "Otorgar_Permiso_AJAX.asp?UI="+ Mostrar + "_" + UID + "*" + UST + "&UID="+ Math.random();
http.open("GET", url, true);
http.onreadystatechange = handleHttpResponse;
enProceso = true;
http.send(null);}}
</script>
</head>
<%response.Flush()%>
<body>
<form>
<table>
<tr><th>#</th>
<th>Nombre</th>
<th>Privilegio</th>
<th>Grabar</th>
<th>Mensaje</th></tr>
<%
response.Flush()
on error resume next
strcon="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Data Source="&server.MapPath("./database.mdb")&";"
set conexion = Server.CreateObject("ADODB.Connection")
conexion.open strcon
BuscarSQL="select * from Usuarios;"
set Buscar=conexion.execute(BuscarSQL)
if Err=0 then
if Buscar.EOF=FALSE then
i=1
while Buscar.EOF=FALSE%>
<tr><th><%=i%></th>
<td>Nombre<%=i%> --> <%=Buscar.Fields("nombre")%>
<input type="hidden" name="nom<%=i%>" id="nom<%=i%>" value="<%=Buscar.Fields.Item("id").value%>" /></td>
<td><select name="id<%=i%>" id="id<%=i%>" >
<%
select case Buscar.fields.item("privilegio").value
case "D" %>
<option value="-">-</option>
<option value="D" selected="selected">Denny</option>
<option value="A">Allow</option><%
case "A" %>
<option value="-">-</option>
<option value="D">Denny</option>
<option value="A" selected="selected">Allow</option><%
case else%>
<option value="-" selected="selected">-</option>
<option value="D">Denny</option>
<option value="A">Allow</option><%
end select%>
</select></td>
<td>
<input type="button" onclick="Privilegios('nom<%=i%>','id<%=i%>','msj<%=i%>');" value="Asignar" />
</td><th id="msj<%=i%>"></th></tr>
<% i=i+1
Buscar.MoveNext
wend
response.Flush()
else
respuesta="Erro. No se encontro parametro a consultar"
end if
else
respuesta="Error. No se puede realizar"
end if%>
<tr><td id="msjerror" colspan="5"></td></tr>
</table>
</form>
</body>
</html>
<%response.End()%>