To aqui mais uma vez para pedir a ajuda dos profissionais que compreendem legal o ASP...
É o seguinte neste link abaixo eu disponibilizei um upload sem componente que eu baixei na net muito recomendado por não apresentar nenhuma falha ou dificuldade. Eu testei ele aqui e ele tá bem legal. Eu montei as páginas e o DB. Tá tudo no zip pra quem precisar desse upload sem componente. Segundo os sites que eu vi ele, ele é um dos melhores sistemas de upload sem componente.
Upload SEM Componente em ZIP (Envio de foto com DB)
Bem a ajuda que eu preciso é a seguinte...
Eu gostaria de utilizar este sistema de upload no zip nesta página... tipo no meu caso eu não preciso do DB que está no ZIP nem do formulário1, eu só preciso da mesma função de envio mas nessas mesmas estruturas como está o código abaixo. Eu não entendo legal de ASP, então não sei de que forma possa impregar o upload do ZIP nessa página...
Podem me ajudar?
<script language="JavaScript">
function video(URL)
{
opener.document.video.selurl.value=URL;
self.close();
}
</script>
<link rel=stylesheet href="images/styles.css" type="text/css">
<form method="POST" enctype="multipart/form-data" name="enviarfoto">
<p><input type="file" name="File1" size="20"><br>
<input type="submit" value="Enviar" name="action"></p>
</form>
<!---#INCLUDE FILE="upload.inc" --->
<%
Dim Obj,objpasta, num, pasta
pasta = Request.querystring("pasta")
Local = server.mappath("videos/")
Set Obj = Server.CreateObject("Scripting.FileSystemObject")
Set objpasta = Obj.GetFolder(Local)
num = objpasta.files.count
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set Fields = GetUpload()
FilePath = server.mappath("videos/video_" &num& Right(Fields("File1").FileName,4))
arquivo="video_"&num&Right(Fields("File1").FileName,4)
Fields("File1").Value.SaveAs FilePath
If Right(arquivo,3)="avi" OR Right(arquivo,3)="mpeg" OR Right(arquivo,3)="mpg" OR Right(arquivo,3)="wmv" then
%>
<META HTTP-EQUIV="refresh" CONTENT="0; URL=java script:%20video('videos/<%=arquivo%>');">
<%
else
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
objFS.DeleteFile(Server.MapPath("videos/"&arquivo))
Set objFS = Nothing
%>
<script language="JavaScript">
{
opener.document.video.selurl.value='Este formato não é válido';
self.close();
}
</script>
<%
end if
Set objFS = Nothing
%><%
end if
%>
