Varias y gracias

Sandman · #1 (**permalink**) 29/01/2004, 09:04

Hola a todos, me acabo de montar un iis y ataco a MySql.
Acabo de empezar con ASP, pero en otros lenguages ya tengo experiencia.

Mis preguntas son:

1.- Cómo creo una función que me inicie el objeto de acceso a la base de datos pasándole como parámetro el nombre de la base de datos (ya definida en DNS de ususario de ODBC) y que me devuelva el objeto con el que poder lanzar colsultas a la base de datos.
Yo intento devolver el valor y se lo asigno en la llamada pero no me lo acepta, inclusive no me funciona pasando el propio objeto como parámetro a la función.
Esto lo quiero saber porque me gusta tener algún archivo de biblioteca de funciones

2.- Cómo hago para que una función me devuelva un array

3.- Existen más opciones distintas a #include

4.- Qué método de autenticación creeis más correcto

Muchas gracias a todos.

Sandman

Exit ligth enter night

mikenian · #2 (**permalink**) 02/02/2004, 14:57

mmmh,

, tengo un archivo que hace esas conexiones tal vez te sirva.

conectbd.asp
/////////////
<%

' Declaramos el objeto de conexión a la base de datos
dim ConexionBD, rs,sql,table

' inicializamos objetos
sub inic()
Set ConexionBD = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset") ' Abrimos el objeto con el driver específico
' ConexionBD.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.Mappath("bd/datos_cursos.mdb")
ConexionBD.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.Mappath("bd/datos_cursos.mdb")
end sub

' abrimos la conexion con la base de datos
sub conexion(table, sql)
rs.Open table, ConexionBD ' indicamos el nombre de la tabla y la base de datos
Set rs = ConexionBD.Execute(sql)
end sub

' cerramos la conexion con la base de datos
sub closecon()
ConexionBD.close
set rs = nothing
set ConexionBD = nothing
end sub

%> ' el bd/dato_cursos.mdb, es la ruta de la base de datos en el server
////////////////////////////
y la llamas asi

////////////////////
<%@ LANGUAGE="VBScript" %>
<HTML>
<BODY>

<%

dim sql1,re,re1

if request.form("usuario") <> "" and request.form("contraseña") <> "" then

' checa que los datos de entrada no sean nulos, no esta cerrado el if por motivos de flojera, lo debes cerrar

inic()
' esta es la rutina en el otro archivo que llama a la BD

sql1 = "select * from personal where usuario= '"&request.form("usuario")&"' and password = '"&request.form("contraseña")&"'"

'hago un string con la instruccion SQL

call conexion("personal",sql1)

'llamo a la subrutina conexion en el otro archivo

if not(rs.EOF) then
re = rs("nivel") 'checo que no sea vacia la tabla y le asigno el campo nivel de la tabla a una variable

if re = 1 then
response.write("<center> Hola "&rs("nombre"))
%>

aqui irían fragmentos en html

<%
'aqui deberías cerrar los ifs y eso
%>
</BODY>
</HTML>
///////////////
ojala te sirva, trata de entenderlo para que le compongas a tu conveniencia