Galera tenho um script abaixo ele insere produtos com asp Smart Upload, agora como fa�o pra fazer um form de upload para atualizar e um p�gina com script de atualizar? N�o sei como fazer upload com o AspSmartUpload, abaixo segue o sript de incluir para ver se algu�m pode me ajudar a fazer o de upload
*****************
Formul�rio para Incluir
******************
<%@ Language=VBScript %>
<!--#include
file="conexao.asp"-->
<%
'abre a conexao
Set Conexao =
Server.CreateObject("ADODB.Connection")
Conexao.Open StrConn
SQL = "SELECT * FROM Categorias ORDER BY Categoria"
Set rsCategoria =
Conexao.Execute(SQL)
SQL = "SELECT cod_nome_opcao,nome FROM nome_opcoes ORDER BY nome"
Set
rsNomeOpcoes = Conexao.Execute(SQL)
%>
<HTML>
<HEAD>
<META NAME="GENERATOR"
Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY
bgcolor="#FFFFFF" text="#000000">
<!--#INCLUDE
FILE="barra.asp"-->
<p> </p>
<FORM
action="" method=post enctype="multipart/form-data"
name=form1>
<table width="100%" border="0">
<tr>
<td width="17%"> </td>
<td width="83%">
<table border=0 align="center">
<tr>
<td><font face="Arial, Helvetica, sans-serif">
Produto:</font></td>
<td>
<input size=20 class=
"form" name=Produto >
</td>
</tr>
<td><font face="Arial, Helvetica, sans-serif">
Foto:</font></td>
<td>
<input type="file"
class="form" size=20 name=foto >
</td>
</tr>
<tr>
<td><font size="3" face="Arial, Helvetica,
sans-serif">Peço
Real: <font size="1">(Ex:De
R$10,00)</font></font></td>
<td>
<input
size=20 class= "form"name="precod">
<font size="1"><br>
<font face="Arial, Helvetica, sans-serif"
color="#000000">não
colocar R$
e,00</font></font> </td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif">Pre�o
Promocional:<font size="1">(Ex:
Por R$
5,00)</font></font></td>
<td>
<input
size=20 class= "form"name="preco">
<br>
<font
size="1"><font face="Arial, Helvetica, sans-serif"
color="#000000">não
colocar R$
e,00</font></font> </td>
</tr>
<tr>
<td><font face="Arial, Helvetica,
sans-serif">Descri��o:</font></td>
<td>
<textarea size=20 class="form" name=descricao></textarea>
</td>
</tr>
<tr>
<td><font
face="Arial, Helvetica, sans-serif">Fabricante:</font></td>
<td>
<input size=20 class="form" name=fabricante >
</td>
</tr>
<td><font face="Arial,
Helvetica, sans-serif">Pa�s de Origem :</font></td>
<td>
<input size=20 class="form" name=pais>
</td>
</tr>
<tr>
<td><font
face="Arial, Helvetica, sans-serif">Detalhes :</font></td>
<td>
<textarea size=20 class="form"
name=detalhes></textarea>
</td>
</tr>
<tr>
<td><font face="Arial, Helvetica,
sans-serif">Garantia :</font></td>
<td>
<input class="form" size=20 name=garantia>
</td>
</tr>
<td><font face="Arial, Helvetica,
sans-serif">Formas de Pagamento: </font></td>
<td>
<input size=20 class="form" name=pagamento>
</td>
</tr>
<tr>
<td><font face="Arial,
Helvetica, sans-serif" size="3">op��o 1</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="3">
<%response.write "<select name=opcao1>"
response.write
"<option value=''></option>"
while not rsNomeOpcoes.eof
response.write "<option value=""" & rsNomeOpcoes("nome") &
""">" & rsNomeOpcoes("nome") & "</option>"
rsNomeOpcoes.movenext
wend
response.write "</select>"
%>
</font></td>
</tr>
<tr>
<td><font face="Arial,
Helvetica, sans-serif" size="3">detalhe op��o 1</font></td>
<td>
<input class="form" size=20 name=detalhe1>
</td>
</tr>
<tr>
<%
'SQL = "SELECT
cod_nome_opcao,nome FROM nome_opcoes ORDER BY nome"
'Set rsNomeOpcoes =
Conexao.Execute(SQL)
rsnomeopcoes.movefirst
%>
<td><font face="Arial, Helvetica, sans-serif" size="3">op��o
2</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="3">
<%response.write "<select name=opcao2>"
response.write
"<option value=''></option>"
while not rsNomeOpcoes.eof
response.write "<option value=""" & rsNomeOpcoes("nome") &
""">" & rsNomeOpcoes("nome") & "</option>"
rsNomeOpcoes.movenext
wend
response.write "</select>"
rsNomeOpcoes.close
set rsNomeOpcoes = nothing
%>
</font></td>
</tr>
<tr>
<td><font face="Arial,
Helvetica, sans-serif" size="3">detalhe op��o 2</font></td>
<td>
<input class="form" size=20 name=detalhe2>
</td>
</tr>
<tr>
<td><font face="Arial, Helvetica,
sans-serif">Categoria:</font></td>
<td>
<select class="form" name=categoria size=1>
<% while not
rscategoria.eof%>
<option class="form"
value="<%=rscategoria("cod_categoria")%>"
selected><%=rscategoria("categoria")%>
</option>
<%
rscategoria.movenext
wend
%>
</select>
</td>
</tr>
<tr>
<td><font
face="Arial, Helvetica, sans-serif"
size="3">Promocao</font></td>
<td>
<select
class="form" name="promocao">
<option class="form"
value="0">N�o
<option class= "form" value="1">Sim
</select>
</td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif"
size="3">Destaque</font></td>
<td>
<select
class="form" name="destaques">
<option class="form"
value="0">N�o
<option class="form"value="1">Sim
</select>
</td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif"
size="3">Oferta</font></td>
<td>
<select
class="form" name="ofertas">
<option class="form" value="0">N�o
<option class="form"value="1">Sim
</select>
</td>
</tr>
<tr>
<td>
<input
type="submit" class="Form"value="Incluir" id=submit1 name=submit1>
<td>
<input id=reset1 Class="form" name=reset1 type=reset
value=Limpar>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p> </p>
</FORM>
</BODY>
</HTML>
*************
Incluir2.asp
*************
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor="#FFFFFF">
<%
set
CMD=Server.CreateObject("ADODB.COMMAND")
CMD.ActiveConnection =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="&Server.MapPath("lojavirtual.MDB")
CMD.CommandText="INSERT
INTO produtos
(produto,preco,precod,descricao,fabricante,detalhes,garantia,cod_categoria,url_imagem,pais,pagamento,promocao,ofertas,nomeopcao1,nomeopcao2,descricaoopcao1,descricaoopcao2)
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
set aspsmartupload =
server.CreateObject("aspsmartupload.smartupload")
aspsmartupload.upload
aspsmartupload.save(server.MapPath("./image"))
Produto = aspSmartUpload.Form("produto").values
Preco =
aspSmartUpload.Form("preco").values
Precod =
aspSmartUpload.Form("precod").values
Descricao =
aspSmartUpload.Form("descricao").values
Fabricante =
aspSmartUpload.Form("fabricante").values
Detalhes=
aspSmartUpload.Form("detalhes").values
Garantia =
aspSmartUpload.Form("garantia").values
Categoria =
aspSmartUpload.Form("categoria").values
foto=
aspSmartUpload.Files("foto").FileName
Pais =
aspSmartUpload.Form("pais").values
pagamento =
aspSmartUpload.Form("pagamento").values
Promocao =
aspSmartUpload.Form("promocao").values
ofertas =
aspSmartUpload.Form("ofertas").values
opcao1 =
aspSmartUpload.Form("opcao1").values
opcao2 =
aspSmartUpload.Form("opcao2").values
detalhe1 =
aspSmartUpload.Form("detalhe1").values
detalhe2 =
aspSmartUpload.Form("detalhe2").values
CMD.Execute
X,ARRAY(produto,preco,precod,descricao,fabricante,detalhes,garantia,categoria,foto,pais,pagamento,promocao,ofertas,opcao1,opcao2,detalhe1,detalhe2)
set CMD=nothing
E agora como fa�o o form e a p�gina de update?
Valeu Galera!
:: http://www.asp10.net
==================================================
:: Solu��es simples para problemas complexos
:: Sistemas de Links, Not�cias, Faq, Loja,
:: Estat�sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o hist�rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================
Voc� se interessa por programa��o, hardware, sistemas operacionais, tecnologia e redes? Ent�o clique aqui e conhe�a mais grupos sobre esses assuntos. Tire d�vidas, envie dicas, troque informa��es com pessoas que gostam do que voc� gosta.
|
|
