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??

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 tena con la base de datos Pubs de SQL Server 2000. Te pongo el cdigo. Si lo ves mal mndame un e-mail y te envo 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;

//FUNCIN PARA LLENAR EL ARRAY DE FILAS
function numFilas(fila){
filas[n] = fila;
n++;
}

//FUNCIN PARA LLENAR EL ARRAY DE BOTONES
function numBotones(boton){
botones[j] = boton;
j++;
}

//FUNCIN PARA LLENAR EL ARRAY DE COLORES
function numColores(col){
colores[s] = col;
s++;
}

//FUNCIN 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>