Galeria de Fotos

criacaoi7 · Maio 15, 2008

Oi pessoal, boa tarde.

preciso da seguinte ajuda.

O código abaixo permite que eu envie 10 fotos de uma só vez (em 10 campos) para o meu servidor, este código faz um upload das fotos. Eu quero acrescentar na frente de cada campo um novo campo chamado de "descrição", ou seja... no momento em que eu enviar as 10 fotos, quero também enviar as 10 descrições para as 10 fotos. Como eu consigo fazer isso, podem me ajudar a programar isso.

<% Server.ScriptTimeout = 500000
Dim  Form: Set Form = New ASPForm 
%>
<!--#INCLUDE FILE="_upload.asp"-->
<%
Server.ScriptTimeout = 10000
Form.SizeLimit = 10240*1024'10MB
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
Const fsCompletted  = 0
If Form.State = fsCompletted Then
'A linha a seguir é onde está setada a pasata para qual será upado os arquivos, se fores usar FSO, acrescente por aqui
Const VirtualFolder = ("fotos")
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + VirtualFolder + "/"
Dim RS: Set RS = OpenUploadRS
Dim FileField
For Each FileField in Form.Files.Items
if len(FileField.FileName)> 0 then 'File is specified.
Dim DestinationFileName
DestinationFileName = DestinationPath & FileField.FileName
FileField.SaveAs DestinationFileName
'Este comentário fiz questão de colocar, aqui é onde você acrecenta o nome dos campos que estão na sua tabela
RS.AddNew
RS("data") = Form("Desc-" & FileField.Name)
RS("codigo") = Form("Desc-" & FileField.Name)
RS("foto") = FileField.FileName
RS("DestFileName") = VirtualFolder
'...
RS.Update
end if
Next 
'fiz uma mudança aqui para retornar a pagina onde estavamos sem perder a querystring("data")
response.write "<meta http-equiv='refresh' content='0; url=java script:history.go(-1)'/>"
Dim Field: For Each Field in Form.Files.Items
'Response.write "<br> " & Field.FileName
Next
'{b}Save file to the destination
'{/b}
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write  "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Some form error.</Font><br>"
end Select
End If'Form.State = 0 then
Function OpenUploadRS()
Dim RS  : Set RS = CreateObject("ADODB.Recordset")
'Achei interessante comentar essa parte, pois é aqui que vai o nome da sua tabela, no meu caso era "fotos"
RS.Open "fotos", GetConnection, 2, 2
Set OpenUploadRS = RS
end Function 
Function GetConnection()
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("../dados/database.mdb") 
set GetConnection = Conn
end function
Function SplitFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case ":", "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
SplitFileName = PosF
End Function
Function GetPath(FullPath)
GetPath = left(FullPath, SplitFileName(FullPath)-1)
End Function
Dim UploadID, PostURL
UploadID = Form.NewUploadID
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
%>  

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
 <TITLE>Cido Silva - Sites, softwares e aplicações para web</TITLE>
 <STYLE TYPE="text/css"><!--TD  {font-family:Arial,Helvetica,sans-serif }TH  {font-family:Arial,Helvetica,sans-serif }TABLE  {font-size:10pt;font-family:Arial,Helvetica,sans-serif }--></STYLE>
 <meta name="robots" content="noindex,nofollow">
<meta name="generator" content="Namo WebEditor v5.0">
</HEAD>
<BODY BGColor="#ECE9D8" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<TABLE cellSpacing=2 cellPadding=1 width="780" bgColor=white border=0 align="center">
  
  <TR>
	<TD bgcolor="#2D83C0" width="386">
			<p align="center"><font face="Arial" color="white"><span style="font-size:14pt; background-color:rgb(45,131,192);"><b>Adicionar 
			Fotos</b></span></font></p>
  </TD>	<TD bgcolor="#2D83C0" width="386">
			<p align="center">  <a href="listargalerias.asp"><span style="font-size:14pt;"><b><font color="red" face="Arial">Sair</font></b></span></a></p>
  </TD></TR>  <TR>
	<TD colspan="2">
	  <P align="center">  <span style="font-size:14pt;">     O limite do upload é de  10Mb.</span>
	  </P>
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">

<Div ID=files>
<p align="center">
	 <input type="file" name="File1">  <input name="Desc-File1" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File2">  <input name="Desc-File2" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File3">  <input name="Desc-File3" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
	<input type="file" name="File4">  <input name="Desc-File4" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File5">  <input name="Desc-File5" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File6">  <input name="Desc-File6" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File7">  <input name="Desc-File7" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File8">  <input name="Desc-File8" type="hidden" id="ID" value='<%=request.querystring("data")%>'> <br><input type="file" name="File9">  <input name="Desc-File9" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
	<input type="file" name="File10"> <input name="Desc-File10" type="hidden" id="ID" value='<%=request.querystring("data")%>'></Div>

				<p align="center"><input Name=SubmitButton Value="Enviar fotos" Type=Submit><br>
</Form>

			<p align="center"><script>
//Open window with progress bar.
function ProgressBar(){
  var ProgressURL
  ProgressURL = 'progress.asp?UploadID=<%=UploadID%>'

  var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=yes,width=350,height=200')
  
  return true;
}
</SCRIPT> 

<script>
//Expand form with a new File fields if needed.
var nfiles = 3;
function Expand(){
  nfiles++
  var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'"> Description '+nfiles+' : <Input Name="Desc-File'+nfiles+'" Size=50>';
  files.insertAdjacentHTML('BeforeEnd',adh);
  return false;
}
</Script><CENTER>
 </CENTER>  </TD></TR></TABLE>




<p> </p>


</BODY></HTML>

criacaoi7 · Maio 16, 2008

Oi pessoal, tudo bem.

Já postei este tópico antes mas alguns moderadores ficam apagando os tópicos... então to postando mais uma vez.

É o seguinte, tenho uma página que permite que eu envie 10 fotos para a minha galeria, tem 10 campos para adicionar as fotos. Eu quero criar na frente de cada campo pra adicionar fotos campos para adicionar descrição de cada foto (texto). Como eu faço isso, como eu envio essas informações para o DB?

<% Server.ScriptTimeout = 500000
Dim  Form: Set Form = New ASPForm 
%>
<!--#INCLUDE FILE="_upload.asp"-->
<%
Server.ScriptTimeout = 10000
Form.SizeLimit = 10240*1024'10MB
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
Const fsCompletted  = 0
If Form.State = fsCompletted Then
'A linha a seguir é onde está setada a pasata para qual será upado os arquivos, se fores usar FSO, acrescente por aqui
Const VirtualFolder = ("fotos")
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + VirtualFolder + "/"
Dim RS: Set RS = OpenUploadRS
Dim FileField
For Each FileField in Form.Files.Items
if len(FileField.FileName)> 0 then 'File is specified.
Dim DestinationFileName
DestinationFileName = DestinationPath & FileField.FileName
FileField.SaveAs DestinationFileName
'Este comentário fiz questão de colocar, aqui é onde você acrecenta o nome dos campos que estão na sua tabela
RS.AddNew
RS("data") = Form("Desc-" & FileField.Name)
RS("codigo") = Form("Desc-" & FileField.Name)
RS("foto") = FileField.FileName
RS("DestFileName") = VirtualFolder
'...
RS.Update
end if
Next 
'fiz uma mudança aqui para retornar a pagina onde estavamos sem perder a querystring("data")
response.write "<meta http-equiv='refresh' content='0; url=java script:history.go(-1)'/>"
Dim Field: For Each Field in Form.Files.Items
'Response.write "<br> " & Field.FileName
Next
'{b}Save file to the destination
'{/b}
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write  "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Some form error.</Font><br>"
end Select
End If'Form.State = 0 then
Function OpenUploadRS()
Dim RS  : Set RS = CreateObject("ADODB.Recordset")
'Achei interessante comentar essa parte, pois é aqui que vai o nome da sua tabela, no meu caso era "fotos"
RS.Open "fotos", GetConnection, 2, 2
Set OpenUploadRS = RS
end Function 
Function GetConnection()
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("../dados/database.mdb") 
set GetConnection = Conn
end function
Function SplitFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case ":", "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
SplitFileName = PosF
End Function
Function GetPath(FullPath)
GetPath = left(FullPath, SplitFileName(FullPath)-1)
End Function
Dim UploadID, PostURL
UploadID = Form.NewUploadID
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
%>  

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
 <TITLE>Cido Silva - Sites, softwares e aplicações para web</TITLE>
 <STYLE TYPE="text/css"><!--TD  {font-family:Arial,Helvetica,sans-serif }TH  {font-family:Arial,Helvetica,sans-serif }TABLE  {font-size:10pt;font-family:Arial,Helvetica,sans-serif }--></STYLE>
 <meta name="robots" content="noindex,nofollow">
<meta name="generator" content="Namo WebEditor v5.0">
</HEAD>
<BODY BGColor="#ECE9D8" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<TABLE cellSpacing=2 cellPadding=1 width="780" bgColor=white border=0 align="center">
  
  <TR>
	<TD bgcolor="#2D83C0" width="386">
			<p align="center"><font face="Arial" color="white"><span style="font-size:14pt; background-color:rgb(45,131,192);"><b>Adicionar 
			Fotos</b></span></font></p>
  </TD>	<TD bgcolor="#2D83C0" width="386">
			<p align="center">  <a href="listargalerias.asp"><span style="font-size:14pt;"><b><font color="red" face="Arial">Sair</font></b></span></a></p>
  </TD></TR>  <TR>
	<TD colspan="2">
	  <P align="center">  <span style="font-size:14pt;">     O limite do upload é de  10Mb.</span>
	  </P>
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">

<Div ID=files>
<p align="center">
	 <input type="file" name="File1">  <input name="Desc-File1" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File2">  <input name="Desc-File2" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File3">  <input name="Desc-File3" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
	<input type="file" name="File4">  <input name="Desc-File4" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File5">  <input name="Desc-File5" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File6">  <input name="Desc-File6" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File7">  <input name="Desc-File7" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
   <input type="file" name="File8">  <input name="Desc-File8" type="hidden" id="ID" value='<%=request.querystring("data")%>'> <br><input type="file" name="File9">  <input name="Desc-File9" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
	<input type="file" name="File10"> <input name="Desc-File10" type="hidden" id="ID" value='<%=request.querystring("data")%>'></Div>

				<p align="center"><input Name=SubmitButton Value="Enviar fotos" Type=Submit><br>
</Form>

			<p align="center"><script>
//Open window with progress bar.
function ProgressBar(){
  var ProgressURL
  ProgressURL = 'progress.asp?UploadID=<%=UploadID%>'

  var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=yes,width=350,height=200')
  
  return true;
}
</SCRIPT> 

<script>
//Expand form with a new File fields if needed.
var nfiles = 3;
function Expand(){
  nfiles++
  var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'"> Description '+nfiles+' : <Input Name="Desc-File'+nfiles+'" Size=50>';
  files.insertAdjacentHTML('BeforeEnd',adh);
  return false;
}
</Script><CENTER>
 </CENTER>  </TD></TR></TABLE>




<p> </p>


</BODY></HTML>

hargon · Maio 16, 2008

Eu não analisei linha por linha, mas pelo que pude ver, ele já está configurado para que as fotos tenham descrição. Será necessário apenas você alterar a propriedade type no formulário.

Ex:

Está type="hidden"

Você deve alterar para type="text"

Antes de fazer essa alteração, verifique no banco de dados se o tipo de dados do campo data é texto ou é data mesmo. Caso seja texto, pode fazer as alterações. Caso não seja, poste aqui informando.

criacaoi7 · Maio 16, 2008

Hargon, não entendi o que você quiz dizer, mas é o seguinte, essa página que eu te postei ele não tem nenhum campo pra que eu digite a descrição de cada foto, então eu inseri os campos na frente dos campos em que eu envio as fotos, os campos de formulário chama-se descricao1, descricao2 etc... até 10, isso eu criei agora...

Eu não sei como enviar os textos desses campos caos eu preencha para a tabela descricao do banco de dados... pra cada foto uma descrição caso eu envie algo qd fizer o envio da foto.

É nisso que preciso de ajuda, vou postar a página nova que eu mechi, aonde já tem o campo pra digitar a descrição na frente do campo que envia a foto.

<% Server.ScriptTimeout = 500000
Dim  Form: Set Form = New ASPForm 
%>
<!--#INCLUDE FILE="_upload.asp"-->
<%
Server.ScriptTimeout = 10000
Form.SizeLimit = 10240*1024'10MB
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
Const fsCompletted  = 0
If Form.State = fsCompletted Then
'A linha a seguir é onde está setada a pasata para qual será upado os arquivos, se fores usar FSO, acrescente por aqui
Const VirtualFolder = ("fotos")
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + VirtualFolder + "/"
Dim RS: Set RS = OpenUploadRS
Dim FileField
For Each FileField in Form.Files.Items
if len(FileField.FileName)> 0 then 'File is specified.
Dim DestinationFileName
DestinationFileName = DestinationPath & FileField.FileName
FileField.SaveAs DestinationFileName
'Este comentário fiz questão de colocar, aqui é onde você acrecenta o nome dos campos que estão na sua tabela
RS.AddNew
RS("data") = Form("Desc-" & FileField.Name)
RS("codigo") = Form("Desc-" & FileField.Name)
RS("foto") = FileField.FileName
RS("DestFileName") = VirtualFolder
'...
RS.Update
end if
Next 
'fiz uma mudança aqui para retornar a pagina onde estavamos sem perder a querystring("data")
response.write "<meta http-equiv='refresh' content='0; url=java script:history.go(-1)'/>"
Dim Field: For Each Field in Form.Files.Items
'Response.write "<br> " & Field.FileName
Next
'{b}Save file to the destination
'{/b}
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write  "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Some form error.</Font><br>"
end Select
End If'Form.State = 0 then
Function OpenUploadRS()
Dim RS  : Set RS = CreateObject("ADODB.Recordset")
'Achei interessante comentar essa parte, pois é aqui que vai o nome da sua tabela, no meu caso era "fotos"
RS.Open "fotos", GetConnection, 2, 2
Set OpenUploadRS = RS
end Function 
Function GetConnection()
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("../dados/database.mdb") 
set GetConnection = Conn
end function
Function SplitFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case ":", "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
SplitFileName = PosF
End Function
Function GetPath(FullPath)
GetPath = left(FullPath, SplitFileName(FullPath)-1)
End Function
Dim UploadID, PostURL
UploadID = Form.NewUploadID
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
%>  

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
 <TITLE>Cido Silva - Sites, softwares e aplicações para web</TITLE>
 <STYLE TYPE="text/css"><!--TD  {font-family:Arial,Helvetica,sans-serif }TH  {font-family:Arial,Helvetica,sans-serif }TABLE  {font-size:10pt;font-family:Arial,Helvetica,sans-serif }--></STYLE>
 <meta name="robots" content="noindex,nofollow">
<meta name="generator" content="Namo WebEditor v5.0">
</HEAD>
<BODY BGColor="#ECE9D8" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<TABLE cellSpacing=2 cellPadding=1 width="780" bgColor=white border=0 align="center">
  
  <TR>
	<TD bgcolor="#2D83C0" width="386">
			<p align="center"><font face="Arial" color="white"><span style="font-size:14pt; background-color:rgb(45,131,192);"><b>Adicionar 
			Fotos</b></span></font></p>
  </TD>	<TD bgcolor="#2D83C0" width="386">
			<p align="center">  <a href="listargalerias.asp"><span style="font-size:14pt;"><b><font color="red" face="Arial">Sair</font></b></span></a></p>
  </TD></TR>  <TR>
	<TD colspan="2">
	  <P align="center">  <span style="font-size:14pt;">     O limite do upload é de  10Mb.</span>
	  </P>
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">

		<Div ID=files> 
		  <p align="center"> 
			<input type="file" name="File1">
			<input name="Desc-File1" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao1" type="text" id="descricao1">
			<br>
			<input type="file" name="File2">
			<input name="Desc-File2" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao2" type="text" id="descricao2">
			<br>
			<input type="file" name="File3">
			<input name="Desc-File3" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao3" type="text" id="descricao3">
			<br>
			<input type="file" name="File4">
			<input name="Desc-File4" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao4" type="text" id="descricao4">
			<br>
			<input type="file" name="File5">
			<input name="Desc-File5" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao5" type="text" id="descricao5">
			<br>
			<input type="file" name="File6">
			<input name="Desc-File6" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao6" type="text" id="descricao6">
			<br>
			<input type="file" name="File7">
			<input name="Desc-File7" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao7" type="text" id="descricao7">
			<br>
			<input type="file" name="File8">
			<input name="Desc-File8" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao8" type="text" id="descricao8">
			<br>
			<input type="file" name="File9">
			<input name="Desc-File9" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao9" type="text" id="descricao9">
			<br>
			<input type="file" name="File10">
			<input name="Desc-File10" type="hidden" id="ID" value='<%=request.querystring("data")%>'>
			descrição da foto: 
			<input name="descricao10" type="text" id="descricao10">
		  
		</Div>

				<p align="center"><input Name=SubmitButton Value="Enviar fotos" Type=Submit><br>
</Form>

			<p align="center"><script>
//Open window with progress bar.
function ProgressBar(){
  var ProgressURL
  ProgressURL = 'progress.asp?UploadID=<%=UploadID%>'

  var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=yes,width=350,height=200')
  
  return true;
}
</SCRIPT> 

<script>
//Expand form with a new File fields if needed.
var nfiles = 3;
function Expand(){
  nfiles++
  var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'"> Description '+nfiles+' : <Input Name="Desc-File'+nfiles+'" Size=50>';
  files.insertAdjacentHTML('BeforeEnd',adh);
  return false;
}
</Script><CENTER>
 </CENTER>  </TD></TR></TABLE>




<p> </p>


</BODY></HTML>

hargon · Maio 16, 2008

Preciso que você me informe a estrutura da tabela onde será gravado a descrição.

Entrar

Arquivado

Galeria de Fotos

Recommended Posts

criacaoi7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

criacaoi7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

criacaoi7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

comando like (Mysql) no php

mostrar quanto tempo foi postado um conteudo

lendo RSS com PHP mostrando a imagem de preview

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante