Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Kguedes

Upload com inserção no bd

Por , em ASP Clássico

Recommended Posts

Kguedes    0

Kguedes
Postado

Fala galera, como eu faço pra este formulário gravar os dados no banco e fazer o upload gravando o nome do arquivo em um dos campos do bd.

 

o código tá grande mas segue aí:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/admin.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)End If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "form1") Then  MM_editConnection = MM_admin_STRING  MM_editTable = "destaque"  MM_editRedirectUrl = "destaqueenviar.asp"  MM_fieldsStr  = "titulo|value|texto|value|File1|value|foto|value"  MM_columnsStr = "titulo|',none,''|texto|',none,''|fotoarquivo|',none,''|foto|none,Yes,No"  ' create the MM_fields and MM_columns arrays  MM_fields = Split(MM_fieldsStr, "|")  MM_columns = Split(MM_columnsStr, "|")    ' set the form values  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2	MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))  Next  ' append the query string to the redirect URL  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then	If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then	  MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString	Else	  MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString	End If  End IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then  ' create the sql insert statement  MM_tableValues = ""  MM_dbValues = ""  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2	MM_formVal = MM_fields(MM_i+1)	MM_typeArray = Split(MM_columns(MM_i+1),",")	MM_delim = MM_typeArray(0)	If (MM_delim = "none") Then MM_delim = ""	MM_altVal = MM_typeArray(1)	If (MM_altVal = "none") Then MM_altVal = ""	MM_emptyVal = MM_typeArray(2)	If (MM_emptyVal = "none") Then MM_emptyVal = ""	If (MM_formVal = "") Then	  MM_formVal = MM_emptyVal	Else	  If (MM_altVal <> "") Then		MM_formVal = MM_altVal	  ElseIf (MM_delim = "'") Then  ' escape quotes		MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"	  Else		MM_formVal = MM_delim + MM_formVal + MM_delim	  End If	End If	If (MM_i <> LBound(MM_fields)) Then	  MM_tableValues = MM_tableValues & ","	  MM_dbValues = MM_dbValues & ","	End If	MM_tableValues = MM_tableValues & MM_columns(MM_i)	MM_dbValues = MM_dbValues & MM_formVal  Next  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"  If (Not MM_abortEdit) Then	' execute the insert	Set MM_editCmd = Server.CreateObject("ADODB.Command")	MM_editCmd.ActiveConnection = MM_editConnection	MM_editCmd.CommandText = MM_editQuery	MM_editCmd.Execute	MM_editCmd.ActiveConnection.Close	If (MM_editRedirectUrl <> "") Then	  Response.Redirect(MM_editRedirectUrl)	End If  End IfEnd If%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><form action="<%=MM_editAction%>" method="POST" enctype="multipart/form-data" name="form1" id="form1">     <label></label>  <label></label>  <input type="hidden" name="MM_insert" value="form1"><table width="600" border="1">	<tr>	  <td>Título:</td>	  <td><label>		<input name="titulo" type="text" id="titulo" />	  </label></td>	</tr>	<tr>	  <td valign="top">Conteúdo:</td>	  <td><label>		<textarea name="texto" rows="5" id="texto"></textarea>	  </label></td>	</tr>	<tr>	  <td>Foto:</td>	  <td><input type="file" name="File1" size="30" /></td>	</tr>	<tr>	  <td>Com foto: </td>	  <td><label>		<input name="foto" type="checkbox" id="foto" value="checkbox" />	  </label></td>	</tr>	<tr>	  <td height="36"><input type="submit" name="Submit" value="Submit" /></td>	  <td> </td>	</tr>  </table>  <%  Dim upl, NewFileName     Set upl = Server.CreateObject("ASPSimpleUpload.Upload")    If Len(upl.Form("File1")) > 0 Then 	 NewFileName = "/images/" & upl.ExtractFileName(upl.Form("File1")) 	 If upl.SaveToWeb("File1", NewFileName) Then 		 Response.Write("Arquivo gravado no servidor.")  	 Else 		 Response.Write("Houve um erro no carregamento do arquivo.") 	 End If  End If  %></form></body></html>

Abraços,

Thiago Guedes

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Olha eu aconselho você a fazer o script na mao e não pelo drew ..

 

fica bem mais facil.. se é um campo so de upload.

 

ai vai um scritp bem facil

 

<%Dim mySmartUploadDim intCountDim objUploadSet objUpload = Server.CreateObject("Persits.Upload.1")objUpload.SetMaxSize 150000, Truex = objUpload.SaveVirtual("foto")categoria	 = objUpload.Form("categoria")area		  = objUpload.Form("area")endereco	  = objUpload.Form("endereco")Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")strSQL = "INSERT INTO imoveis ( categoria, area, endereco, destaque, FileName)"strSQL = strSQL & "values ('" & categoria & "','" & area  & "','" & endereco & "','"& destaque &"','" & FileName & "')"'Response.Write "Upload efetuado com sucesso"Set objUpload = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito