Código:
Y el script que lo analiza es el siguiente:<!--#include file="lenguaje.asp" --> <html> <head> <title><% = Titulo %></title> <!--#include file="meta_tangs.asp" --> <link rel="stylesheet" type"text/css" href="../estilo1.css"> </head> <body> <p align="center"><font size="6" color="#FF0000">Agregar tablaturas a la base de datos</font></p> <form method="post" action="add_tab.asp"> Canción: <input type="text" name="cancion"><br> Descripción: <input type="text" name="descripcion"><br> Formato: <input type="text" name="formato"><br> URL: <input type="text" name="url"><br> Midi: <input type="text" name="midi"><br> Tamaño: <input type="text" name="tamano"><br> <input type="submit" value="Insertar"> </form> </body> </html>
Código:
Pero mi idea es que al formulario se le agregue uno de estos tipicos campos de formulario que tienen un boton de examinar al lado de tal manera que el usuario busque en su disco durao el archivo y lo seleccione y dar las caracteristicas en el resto del formulario y una vez hecho todo eso un script que analice los datos y lso almacene en la BD (que ya lo tengo) y que ademas suba el archivo a una carpeta determinada... se puede hacer eso???.... bueno espero sus respuestas... de antemano muchas gracias <%@ Language="VBScript" %>
<% Option Explicit %>
<!--#include file="lenguaje.asp" -->
<html>
<head>
<title><% = Titulo %></title>
<!--#include file="meta_tangs.asp" -->
<link rel="stylesheet" type"text/css" href="../estilo1.css">
</head>
<body>
<%
Dim Conn
Dim SQL
Dim RS
Dim cancion
Dim descripcion
Dim formato
Dim url
Dim midi
Dim tamano
'Recogemos los valores del formulario
cancion=Request.Form("cancion")
descripcion=Request.Form("descripcion")
formato=Request.Form("formato")
url=Request.Form("url")
midi=Request.Form("midi")
tamano=Request.Form("tamano")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../" & DB & "tablaturas.mdb"))
'Ahora creamos la sentencia SQL
SQL="Insert Into tablaturas (cancion,descripcion,formato,url,midi,tamano) values ('" & cancion & "','" & descripcion & "','" & formato & "','" & url & "','" & midi & "','" & tamano & "')"
'Ejecutamos la orden
set RS = Conn.Execute(SQL)
%>
<p align="center"><font size="6" color="#FF0000">Agregar tablaturas a la base de datos</font></p>
<div align="center"class="text">Tablatura Ingresada</div>
<div align="center"><a href="tab.asp">Ingresar otra tablatura</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</body>
</html>
