Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Asp mas sqlserver 2000, necesito ayuda
 Foro Bloqueado  Tema Bloqueado


Autor Temas
travesuras
Starting Member

España
20 Posts
Mensajes - 15 Feb 2005 :  18:53:32  Ver Perfil  Enviar Email
Necesito hacer una aplicacioncilla con Asp donde el contenido dinamico son una serie de productos que los usuarios podran meter y mantener. El gestor de bases de datos va a ser SqlServer2000 si alguien hizo algo parecido le rogaría que me ayudase mandamdome algun ejemplo con la clase conexion y eso, pues no tengo ni idea de visual basic ni de c#, gracias


Migu

Carlitos
Moderator

Chile
881 Posts
Posted - 15 Feb 2005 :  21:03:26  Ver perfil  Enviar e-mail
Hola,
Disculpa...pero creo un poo cara dura,
ya que al menos deberías tratar de investigar un poco, así no dan ganas de ayudar a nadie!


Carlitos ayuda a sus amigos!!Inicio Pagina

travesuras
Starting Member

España
20 Posts
Posted - 15 Feb 2005 :  22:33:18  Ver perfil  Enviar e-mail
al mismo tiempo que me inscribo en el foro este y escribo este mensaje tengo un manual impreso de asp en la mesa y otro bajandose ademas de la ayuda de sqlserver2000 porque voy tener la necesidad de administrar la aplicación, además mi trabajo depende de esto y tengo 15 dias para darle algo al cliente, ya se que tengo la cara muy dura, lo siento si he ofendido la filosofía del foro pero no se si me entendeis un poco a mi tambien, de todas maneras perdon por las molestias.

MiguInicio Pagina

Carlitos
Moderator

Chile
881 Posts
Posted - 16 Feb 2005 :  13:51:15  Ver perfil  Enviar e-mail
Hola,
Mira todo está bien pero cuando se muestra que se ha investigado un poco respecto al tema.
Bien puedes emplicar un poco más de aplicación y así poder orientarte
Atte. Carlos

Carlitos ayuda a sus amigos!!Inicio Pagina

travesuras
Starting Member

España
20 Posts
Posted - 17 Feb 2005 :  20:18:05  Ver perfil  Enviar e-mail
Ya llevo 3 años programando en j2ee con lo cual lo que es html,estructuras,crear la bd y eso no problem, simplemente con saber como debo implementar la conexion para sql server2000 me conformo , como recorrer los recodset y eso pues creo que ya sabria...
Gracias por anticipado

MiguInicio Pagina

Carlitos
Moderator

Chile
881 Posts
Posted - 18 Feb 2005 :  15:09:46  Ver perfil  Enviar e-mail
Ejemplo:
<!--#include file="conecto.asp"-->
<%

if session("ad")<>1 then
response.redirect "vacio.asp"
end if
conec_drill
por=request.querystring("por")
Dim conn
Set conn = Session("conexion")
Set rs=Server.CreateObject("AdoDb.recordset")
sql="select * from drill_usuario "
if por=1 then
sql= sql & " order by apellidos "
end if
rs.Open sql, conn, 3, 3
%>

<html>
<head>
<title>Lista de usuarios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>

<body bgcolor="#CCCC99" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" >
<%
'response.write("ad:"&session("ad")&"<br>")
%>
<table width="96%" height="134" border="0">
<tr>
<td width="5%">&nbsp;</td>
<td width="95%">
<form action="" method="post" name="form" id="form">
<fieldset >
<legend align="left"><font color="#000066" size="3" face="Times New Roman, Times, serif"><strong>Usuarios</strong></font></legend>
<div align="center"><br>
&nbsp;&nbsp;<a href="usuario2.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image3','','imagenes/nuevo2.jpg',1)"><img src="imagenes/nuevo1.jpg" name="Image3" width="79" height="17" border="0"></a>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="vacio.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','imagenes/sal2.jpg',1)"><img src="imagenes/sal1.jpg" name="Image2" width="79" height="17" border="0"></a>
&nbsp;&nbsp;&nbsp;&nbsp;<a href="impi.asp">Imprimir </a><br>
<br>
<table width="666" height="71" border="0" bgcolor="#CCCCCC">
<!--DWLayoutTable-->
<tr bgcolor="#003366">
<td width="73" valign="middle"> <div align="center"><font color="#FFFFFF" size="2" face="Times New Roman, Times, serif"><strong><a href="usuario1.asp">C&oacute;digo</a></strong></font></div></td>
<td width="202" valign="middle"> <div align="center"><font color="#FFFFFF" size="2" face="Times New Roman, Times, serif"><strong><a href="usuario1.asp?por=1">Nombres</a></strong></font></div></td>
<td width="187" valign="middle"> <div align="center"><font color="#FFFFFF" size="2" face="Times New Roman, Times, serif"><strong>Email</strong></font></div></td>
<td width="63" valign="middle"> <div align="center"><font color="#FFFFFF" size="2" face="Times New Roman, Times, serif"><strong>Estado</strong></font></div></td>
<td width="54" valign="middle"> <div align="center"><font color="#FFFFFF"><strong><font size="2" face="Times New Roman, Times, serif">Editar</font></strong></font></div></td>
<td width="61" valign="middle"> <div align="center"><font color="#FFFFFF"><strong><font size="2" face="Times New Roman, Times, serif">Eliminar</font></strong></font></div></td>
</tr>
<%if rs.eof =True then%>
<tr valign="middle" bgcolor="#CCCCCC">
<td height="21" colspan="6" valign="top"><font color="#003366" size="2" face="Times New Roman, Times, serif"><strong>&nbsp;&nbsp;No
existen registros de Usuarios!!</strong></font></td>
</tr>
<% else %>
<%do while rs.eof=false %>
<tr bgcolor="#CCCCCC">
<td height="25" valign="middle"><font color="#FF0000" size="2" face="Times New Roman, Times, serif"><strong><font color="#CC0033">
&nbsp;&nbsp;<%= rs("cod_usuario") %>
<input name="cod_usuario" type="hidden" value="<%=rs("cod_usuario")%>">
</font></strong></font></td>
<%nombres=rs("apellidos")& " "& rs("nombre")%>
<td valign="middle"><strong><font color="#000000" size="2" face="Times New Roman, Times, serif">&nbsp;<font color="#cc0033">&nbsp;<font color="#003366"><%=nombres %></font></font></font></strong></td>
<td valign="middle"><strong><font color="#000000" size="2" face="Times New Roman, Times, serif">&nbsp;&nbsp;<font color="#003366"><%= rs("email") %>&nbsp;</font></font></strong></td>
<%if rs("activo")=1 then
mensa="Sí"
else
mensa="No"
end if %>
<td> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#003366" size="2" face="Times New Roman, Times, serif">
<strong><%=mensa%> </strong></font></td>
<td valign="middle">
<div align="center">&nbsp; <a href="usuario4.asp?cod_usuario=<%=rs("cod_usuario")%>" onMouseOver="window.status='[ contacta con el webmaster ]';return true" ><img src="imagenes/si.gif" alt="Modificar!" width="26" height="26" border="0"></a></div></td>
<td valign="middle">
<div align="center"><a href="usuario6.asp?cod_usuario=<%=rs("cod_usuario")%>&nombres=<%=nombres%>"><img src="imagenes/bomba.gif" alt="Eliminar!" width="26" height="26" border="0"></a></div></td>
</tr>
<% rs.movenext %>
<%loop%>
<%end if %>
</table>
<br>
&nbsp;<a href="usuario2.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image31','','imagenes/nuevo2.jpg',1)"><img src="imagenes/nuevo1.jpg" name="Image31" width="79" height="17" border="0" id="Image31"></a>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="vacio.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image21','','imagenes/sal2.jpg',1)"><img src="imagenes/sal1.jpg" name="Image21" width="79" height="17" border="0" id="Image21"></a>&nbsp;&nbsp;&nbsp;</div>
</fieldset>
</form></td>
</tr>
</table>
<div align="center"></div>
</body>
</html>

Bien la conexion al SQL Server la hace:
"conecto.asp"
Y Este es el archivo:
<%
sub conec_drill
if IsObject(Session("conexion")) Then
Set conn = Session("conexion")
Else
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=sqloledb;" & _
"Data Source=ip_server_sql" & _
"Initial Catalog=tu_base_de_datos;" & _
"User Id=tu_usuario_sqlserver;" & _
"Password=password_del_usuario"
Set Session("conexion") = conn
End If
end sub


El ejemplo NO utiliza procedimientos almacenados.

Saludos,Atte. Carlos
%>

Carlitos ayuda a sus amigos!!Inicio Pagina

travesuras
Starting Member

España
20 Posts
Posted - 21 Feb 2005 :  11:10:15  Ver perfil  Enviar e-mail
Todavía no lo he probado porque no he podido conseguir el sqlserver para mi xp crackeado pero muchas gracias por anticipado carlitos.

MiguInicio Pagina

travesuras
Starting Member

España
20 Posts
Posted - 15 Mar 2005 :  14:00:16  Ver perfil  Enviar e-mail
ya lo tengo devolviendo filas como un locoo muchas gracias


MiguInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar