Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Por Favor Componente Persits.upload

Guest - grazielle -

Perguntado por Guest - grazielle -,

 Share

Pergunta

Guest - grazielle -

Guest - grazielle -

Postado
Postado

olá galera preciso muito de ajuda tenho um código e preciso mudá-lo para persits.upload alguém poderia me ajudar dêem uma olhada no código

<%

Option Explicit

Response.Expires = 0

dim rsff, conff, rsffx, conffx, rsffy, conffy, rsffxy, conffxy, strQuery, ObjRs, objConn, vusa, vcli

dim stringSQL, vnome, vtexto, vimg, nImg_img, fsys, nome, varUpload, vrec, vdel, op, Upl, nome_del

dim teste

vusa = 0

session.LCID = 1046

vcli = Request.querystring("cli")

vrec = Request.querystring("rec")

if vrec = "rec" then

vdel = Request.querystring("del")

op = Request.querystring("op")

vtexto = Request.querystring("texto")

end if

%>

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

<%rsff.open "SELECT * FROM administradores where cod="&cint(session("vcod")), conff%>

<% If (cint(session("vok")) = 1) and cbool(rsff.fields ("rel") = "True") = True Then %>

<%if vdel = "Sim" then%>

<!--#include file="grt_record_del.asp"-->

<%end if%>

<html>

<head>

<title>:: inserir ::</title>

<%if vrec <> "rec" then%>

<%On error Resume Next

Set fsys = CreateObject("Scripting.FileSystemObject")

set varUpload = Server.CreateObject("Persits.Upload")

if err = 0 Then

set vtexto = varUpload.Form("texto")

set vimg = varUpload.Form("img")

nImg_img = vimg.FileName

nome = nImg_img

if vimg = "" then

vimg = "teste"

else

vimg = nome

end if

response.Write(vimg)

response.End

nImg_img = vimg.FileName

nome = nImg_img

end if%>

<!--#include file="up_load.asp"-->

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

<%strQuery = "INSERT INTO textofoto (nome,texto) VALUES ('"&nome&"','"&vtexto&"')"

On error Resume Next

Set ObjRs = objConn.Execute(strQuery)

objConn.close

Set objRs = Nothing

Set objConn = Nothing

if err = 0 Then%>

<%else%>

<%response.Redirect("erro_dados.asp")%>

<%end if%>

<meta http-equiv="REFRESH" content="0;URL=grt_record_inserir.asp?rec=rec&texto=<%=vtexto%>&cli=<%=vcli%>;text/html; charset=iso-8859-1">

<%else%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="../estilos_adm.css" rel="stylesheet" type="text/css">

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

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

<%On error Resume Next%>

<%rsffx.open "SELECT * FROM textofoto where texto = "&cint(vtexto)&" order by cod desc", conffx%>

<%if err = 0 Then%>

<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="#cccccc">

<tr>

<td>

<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5">

<%while not rsffx.eof%>

<tr>

<td height="18" valign="middle">

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

<%rsffy.open "SELECT clientecad.alterar FROM clientecad where cliente="&cint(vcli), conffy%>

<%if rsffy.fields("alterar") = "True" then%>

<a href="grt_record_deletar.asp?op=<%=rsffx.fields("cod")%>&texto=<%=vtexto%>&cli=<%=vcli%>">

<img src="../../icones/ico_excluir1.gif" width="15" height="16" border="0"></a>

<%else%>

&nbsp;&nbsp;

<%end if%>

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

<a href="mostra_img.asp?op=<%=rsffx.fields("cod")%>" target="_blank"><%=left(rsffx.fields("nome").value,40)%>...</a></td>

</tr>

<tr>

<td height="1" bgcolor="#CCCCCC"></td>

</tr>

<%vusa = 1%>

<%

rsffx.movenext

wend

%>

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

</table>

</td>

</tr>

</table>

<%end if%>

<%if vusa <> 1 then%>

<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="#CCCCCC">

<tr>

<td>

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5">

<tr>

<td height="18">

<div align="center">não há imagens para este texto</div></td>

</tr>

<tr>

<td height="1" bgcolor="#CCCCCC"></td>

</tr>

</table>

</td>

</tr>

</table>

<%end if%>

</body>

</html>

<%end if%>

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

<% If session("vok") = 0 Then %>

<%response.Redirect("erro_log_adm.asp")%>

<%end if%>

<%end if%>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Developer

Developer

Postado
Postado
Nesta linha estava o componente w3.upload e preciso mudar o código para o componente abaixo, então me ajuda por favor.

set varUpload = Server.CreateObject("Persits.Upload")

Estou perdida me ajuda!!!!!

Brigadinho

Não vai ser facil... Demora muito... não vai ter que trocar só isso, vai ter que mudar tudo!!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...