Ir para conteúdo

POWERED BY:

Arquivado

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

squalltriguer

Novo problema

Por , em ASP Clássico

Recommended Posts

squalltriguer    0

squalltriguer
Postado

Tenho um Arquivo chamado arquivos_prancha.asp e um adiciona_arquivo.asp!

 

ele funciona bem mas na hora de ver o arquivo em pdf ele não abre.

 

Arquivos_prancha.asp

<html>

<head>
<title></title>
<style type="text/css">
p,table,li{font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;	font-size: 12px; color: #000000; white-space: nowrap;}
</style>
 
</head>

<body bgcolor="#DDF2FF">

<!-- #include file="./funcoes.asp" -->

<% 
numero_prancha=request("numero_prancha")
%>

<%conn.open%>

<%
rs.open("select * from arquivos_pranchas where tipo='documento' and numero_prancha="&numero_prancha&""),conn
documentos=""
while not rs.eof
 documentos=documentos+"<a href=./pranchas/"&rs("arquivo")&">"&rs("arquivo")&"</a><a href=./exclui_arquivo_prancha.asp?numero_arquivo="&rs("numero_arquivo")&"><img src=./imagens/delete.gif border=0></a><br>"
 
 rs.movenext
wend
rs.close

%>


 <table width="500" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#CCCCCC">
  <tr>
	<td bgcolor="#EEEEEE"><div align="center"><strong>Arquivos da Prancha </strong></div></td>
  </tr>
  <tr>
	<td><table width="500" border="0" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
	  
	  <form action="./adiciona_arquivo.asp" method="post" enctype="multipart/form-data">
		
	  <tr>
		<td colspan="3"><div align="center">Arquivo:
		  <input name="ARQUIVO" type="file" id="ARQUIVO">
		  <input type="submit" name="Submit" value="Adiciona">
		  <input name="numero_prancha" type="hidden" id="numero_prancha" value="<%=numero_prancha%>">
		</div></td>
		</tr>
		</form>
	  <tr>
		<td width="56"> </td>
		<td width="212"> </td>
		<td width="218"> </td>
	  </tr>
	  <tr>
		<td colspan="3" bgcolor="#EEEEEE"><strong>Documentos:</strong></td>
		</tr>
	  <tr>
		<td> </td>
		<td colspan="2"><%=documentos%></td>
	  </tr>
	  <tr>
		<td> </td>
		<td colspan="2"> </td>
		</tr>
	  <tr>
		<td colspan="3" bgcolor="#EEEEEE"><strong>Fotos:</strong></td>
		</tr>
	  <tr>
		<td colspan="3">  
		  <div align="center">
			<%
		i=0
		rs.open("select * from arquivos_pranchas where tipo='foto' and numero_prancha="&numero_prancha&""),conn
		response.write("<table width=300><tr>")
		while not rs.eof
		i=i+1
		
		if 100 mod i=0 and i<>1 then
		 response.write("<td>")
		else
		 response.write("<tr><td>")
		end if
		%>		  
			<a href="./pranchas/<%=rs("arquivo")%>" target="_blank"><img width="100" src="./pranchas/<%=rs("arquivo")%>" border="0"></a><a href="./exclui_arquivo_prancha.asp?numero_arquivo=<%=rs("numero_arquivo")%>"><img src=./imagens/delete.gif border="0"></a>
			<br>
			<%		
		if 100 mod i=0 and i<>1 then
		 response.write("</td>")
		end if
		rs.movenext
		wend
		response.write("</tr></table>")
		
		 %>
		  </div></td>
		</tr>
	  <tr>
		<td> </td>
		<td> </td>
		<td> </td>
	  </tr>
	</table></td>
  </tr>
</table>
<p>
</body>

<%conn.close%>

</html>

Adiciona_arquivo.asp

<html>

<head>
<title></title>
<style type="text/css">
p,table,li{font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;	font-size: 12px; color: #000000; white-space: nowrap;}
</style>
<!-- #include file="./funcoes.asp" --> 
</head>

<body bgcolor="<%=pega_cor()%>">

<div align="center">
  <p><b>Aguarde...</b></p>
</div>

<%
 Dim objUpload

 Set objUpload=Server.CreateObject("Persits.Upload")
 objUpload.OverwriteFiles=False
 destino=server.MapPath("./pranchas/")
 objUpload.Save(destino)
 ErrorNum = Err.Number
 Descr = Err.Description
 On Error Goto 0
 If ErrorNum <> 0 Then
  Response.Write ("O seguinte ERRO ocorreu: " & Descr)
  response.End()
 end if
 numero_prancha=objUpload.form("numero_prancha")
 arquivo=objUpload.Files("ARQUIVO").filename
 tipo=objUpload.Files("ARQUIVO").ImageType
 Set objUpload=nothing
%> 

<%
conn.open

if tipo="UNKNOWN" then
 'sql="update pranchas set planta='"&arquivo&"' where numero_prancha="&numero_prancha&"" 
 sql="insert into arquivos_pranchas (numero_prancha,arquivo,tipo) values ("&numero_prancha&",'"&arquivo&"','documento')" 
else
  sql="insert into arquivos_pranchas (numero_prancha,arquivo,tipo) values ("&numero_prancha&",'"&arquivo&"','foto')" 
end if
conn.execute(sql)

conn.close
%> 

 
 
 
<form action="./arquivos_prancha.asp" method="post" name="form1">
 <input name="numero_prancha" type="hidden" value="<%=numero_prancha%>">
 
</form>

<% a="onload=java script:form1.submit()" %>
<body bgcolor="#F5F5F5" text="#000000" <%=a%>>   

</body>

</html>
Alguem sabe por que?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

apresenta algum erro?

de repente você precise foirçar o download do arquivo, a um tempo atras um usuario do forum disse que tinha problemas em abrir PDF no IE7, mesmo forçando o download ele não abria

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

é, tbm acho que terá que forçar...

 

caso queira olha o link ai!!!

 

http://www.roccofroes.com/materia_descrica...eria_codigo=170

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