grid en asp
acaamano
29 de Julio del 2003
hola quiero implementar un grid en asp, sé que con asp.net se puede hacer, pero no lo quiero utilizar
alguien me puede ayudar??
alguien me puede ayudar??
David
29 de Julio del 2003
Mi consejo es que uses una tabla y controles input para simularlo, porque el DBGrid no funciona bien en ASP.
David
29 de Julio del 2003
Soy el de antes. He encontrado un ejemplo que tenía con la base de datos Pubs de SQL Server 2000. Te pongo el código. Si lo ves mal mándame un e-mail y te envío el archivo asp.
<%@ Language=VBScript %>
<HTML>
<HEAD>
<script language="javascript">
<!--
var filas = new Array(); //Array para almacenar las filas de la tabla
var botones = new Array(); //Array para almacenar los botones de la tabla
var colores = new Array(); //Array para almacenar los colores de cada fila
var n = 0;
var j = 0;
var s = 0;
//FUNCIÓN PARA LLENAR EL ARRAY DE FILAS
function numFilas(fila){
filas[n] = fila;
n++;
}
//FUNCIÓN PARA LLENAR EL ARRAY DE BOTONES
function numBotones(boton){
botones[j] = boton;
j++;
}
//FUNCIÓN PARA LLENAR EL ARRAY DE COLORES
function numColores(col){
colores[s] = col;
s++;
}
//FUNCIÓN PARA SELECCIONAR LA FILA PULSADA
function selectedRow(r){
for(var i=0;i<filas.length;i++){
if (filas[i]==r){
document.all[filas[i]].style.background = 'darkblue';
document.all[filas[i]].style.color = 'white';
document.all[botones[i]].value = '*';
}else{
document.all[filas[i]].style.background = colores[i];
document.all[filas[i]].style.color = 'black';
document.all[botones[i]].value = '';
}
}
}
//-->
</script>
<style type="text/css">
*{font-family:Verdana;font-size:10;font-weight:bold}
</style>
</HEAD>
<BODY>
<%
set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=TATOOINE"
cn.Open
set rs = Server.CreateObject("ADODB.Recordset")
sSql = "select au_id, au_fname, au_lname "
sSql = sSql & " from authors "
rs.Open sSql, cn
%>
<center>
<table name="tabla1" id="tabla1" style="border:solid 1px black;width:75%" cellpadding="0" cellspacing="0">
<th bgcolor="black"></th>
<%for i=0 to rs.Fields.Count-1%>
<th style="background-color:black;color:white"><%=rs.Fields(i).Name%></th>
<%next%>
<%
'Variable contador que nos servirá para identificar la filas y los botones
n=0
while not rs.EOF
'Alternamos el color de las filas
if n = 0 or (n Mod 2) = 0 then
sColor = "#dedede"
else
sColor = "white"
end if
%>
<tr name="tr<%=n%>" id="tr<%=n%>" style="background-color:<%=sColor%>">
<td><input type="button" style="width=20" name="btn<%=n%>" id="btn<%=n%>" onclick="selectedRow('tr<%=n%>')"></td>
<td><label name="<%=rs.Fields(0).Value%>" id="<%=rs.Fields(0).Value%>" style="cursor:hand" onclick="selectedRow('tr<%=n%>', '<%=sColor%>')"><%=rs.Fields(0)%></label></td>
<%'Llamamos a las funcios de JavaScript para llenar los arrays
Response.Write "<script language=javascript>"
Response.Write "numFilas('tr" & n & "');"
Response.Write "numBotones('btn" & n & "');"
Response.Write "numColores('" & sColor & "');"
Response.Write "</script>"%>
<td><%=rs.Fields(1).Value%></td>
<td><%=rs.Fields(2).Value%></td>
</tr>
<%n = n+1
rs.MoveNext
wend%>
</table>
</center>
<%rs.Close
cn.Close
set rs=nothing
set cn=nothing
%>
</BODY>
</HTML>
<%@ Language=VBScript %>
<HTML>
<HEAD>
<script language="javascript">
<!--
var filas = new Array(); //Array para almacenar las filas de la tabla
var botones = new Array(); //Array para almacenar los botones de la tabla
var colores = new Array(); //Array para almacenar los colores de cada fila
var n = 0;
var j = 0;
var s = 0;
//FUNCIÓN PARA LLENAR EL ARRAY DE FILAS
function numFilas(fila){
filas[n] = fila;
n++;
}
//FUNCIÓN PARA LLENAR EL ARRAY DE BOTONES
function numBotones(boton){
botones[j] = boton;
j++;
}
//FUNCIÓN PARA LLENAR EL ARRAY DE COLORES
function numColores(col){
colores[s] = col;
s++;
}
//FUNCIÓN PARA SELECCIONAR LA FILA PULSADA
function selectedRow(r){
for(var i=0;i<filas.length;i++){
if (filas[i]==r){
document.all[filas[i]].style.background = 'darkblue';
document.all[filas[i]].style.color = 'white';
document.all[botones[i]].value = '*';
}else{
document.all[filas[i]].style.background = colores[i];
document.all[filas[i]].style.color = 'black';
document.all[botones[i]].value = '';
}
}
}
//-->
</script>
<style type="text/css">
*{font-family:Verdana;font-size:10;font-weight:bold}
</style>
</HEAD>
<BODY>
<%
set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=TATOOINE"
cn.Open
set rs = Server.CreateObject("ADODB.Recordset")
sSql = "select au_id, au_fname, au_lname "
sSql = sSql & " from authors "
rs.Open sSql, cn
%>
<center>
<table name="tabla1" id="tabla1" style="border:solid 1px black;width:75%" cellpadding="0" cellspacing="0">
<th bgcolor="black"></th>
<%for i=0 to rs.Fields.Count-1%>
<th style="background-color:black;color:white"><%=rs.Fields(i).Name%></th>
<%next%>
<%
'Variable contador que nos servirá para identificar la filas y los botones
n=0
while not rs.EOF
'Alternamos el color de las filas
if n = 0 or (n Mod 2) = 0 then
sColor = "#dedede"
else
sColor = "white"
end if
%>
<tr name="tr<%=n%>" id="tr<%=n%>" style="background-color:<%=sColor%>">
<td><input type="button" style="width=20" name="btn<%=n%>" id="btn<%=n%>" onclick="selectedRow('tr<%=n%>')"></td>
<td><label name="<%=rs.Fields(0).Value%>" id="<%=rs.Fields(0).Value%>" style="cursor:hand" onclick="selectedRow('tr<%=n%>', '<%=sColor%>')"><%=rs.Fields(0)%></label></td>
<%'Llamamos a las funcios de JavaScript para llenar los arrays
Response.Write "<script language=javascript>"
Response.Write "numFilas('tr" & n & "');"
Response.Write "numBotones('btn" & n & "');"
Response.Write "numColores('" & sColor & "');"
Response.Write "</script>"%>
<td><%=rs.Fields(1).Value%></td>
<td><%=rs.Fields(2).Value%></td>
</tr>
<%n = n+1
rs.MoveNext
wend%>
</table>
</center>
<%rs.Close
cn.Close
set rs=nothing
set cn=nothing
%>
</BODY>
</HTML>