Sotfartisans para Persits

[Alessandro weine 0]

Pessoal estou com a maior dificuldade em customizar esse script para rodar com persits ou sem uso de componentes sera que alguem poderia me ajudar ?

<%

'****************************************************************************

*****

'LIMITA O TAMANHO MÁXIMO DO ARQUIVO ACEITO PARA UPLOAD

'****************************************************************************

*****

var1 = 90

var1 = var1*1024*1024

'****************************************************************************

*****

 

Dim Upload

Set Upload = Server.CreateObject("SoftArtisans.FileUp")

Upload.OverwriteFiles = False

 

 

If Upload.TotalBytes < var1 Then

 

'****************************************************************************

*****

'VERIFICA SE A PASTA EXISTE E CRIA CASO PRECISO

'****************************************************************************

*****

Dim strFolder

strFolder = minhas_imagens & "\imagens\produtos\"

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

If Not objFS.FolderExists(strFolder) Then

objFS.CreateFolder(strFolder)

End if

Set objFS = Nothing

Upload.Path = strFolder

'****************************************************************************

*****

 

'****************************************************************************

*****

'VERIFICA E SALVA A FOTO

'****************************************************************************

*****

Dim foto1

foto1 = Trim(Upload.form("foto1").ShortFileName & " ")

If foto1 <> "" Then

foto1 = SetFileName(Upload.Path, foto1)

Upload.form("foto1").SaveAs foto1

End If

'****************************************************************************

*****

 

'****************************************************************************

*****

'REDIMENSIONA A FOTO

'****************************************************************************

*****

If InStr(LCase(foto1), ".jpg") > 0 Then

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Jpeg.Open Upload.Path & foto1

Dim Width, Height, x0, y0, x1, y1

Width = 82

Height = 62

If Jpeg.OriginalWidth < Jpeg.OriginalHeight Then

Jpeg.Width = Width

Jpeg.Height = ( Jpeg.OriginalHeight * ((Jpeg.Width * 100) / Jpeg.OriginalWidth)) / 100

Else

Jpeg.Height = Height

Jpeg.Width = ( Jpeg.OriginalWidth * ((Jpeg.Height * 100) / Jpeg.OriginalHeight)) / 100

End If

Jpeg.Sharpen 1, 120

x0 = Fix((Jpeg.OriginalWidth/2)-(Width/2))

y0 = Fix((Jpeg.OriginalHeight/2)-(Height/2))

x1 = Fix((Jpeg.OriginalWidth/2)+(Width/2))

y1 = Fix((Jpeg.OriginalHeight/2)+(Height/2))

Jpeg.Crop x0, y0, x1, y1

Jpeg.Save Upload.Path & foto1

End If

'***********************************************************************

 

Else

Response.Redirect "produtos_incluir.asp?msg=" & Server.URLEncode("A foto de apresentação deve ter no máximo " & formata_bytes(max))

Response.End()

End If

 

Set objCon = Server.CreateObject("ADODB.Connection")

objCon.Open minha_conexao

 

Dim id

id = Trim(Upload.Form("id") & " ")

If IsNumeric(id) Then

ComandoSQL = "UPDATE produtos SET "

If foto1 <> "" Then

var1 = Trim(Upload.Form("imagem_atualizada") & " ")

If var1 <> "" AND var1 <> foto1 Then

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

If objFS.FileExists( Upload.Path & var1 ) Then

objFS.DeleteFile( Upload.Path & var1 )

Set objFS = Nothing

End If

ComandoSQL = ComandoSQL & "foto_apresentacao=" & verifica_campo("'" & Prepara_palavra(foto1) & "'", "", "Null") & ", "

End If

End If

ComandoSQL = ComandoSQL & "nome=" & verifica_campo("'" & Prepara_palavra(Upload.Form("nome")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & "descricao=" & verifica_campo("'" & Prepara_palavra(Upload.Form("descricao")) & "'", "", "Null") & ", "

var1 = Trim(Upload.Form("departamento") & " ")

var1 = Replace(var1, ",", "|")

var1 = Replace(var1, " ", "")

var1 = "|" & var1 & "|"

var1 = Replace(var1, "||", "|")

If var1 = "|" Then var1 = ""

ComandoSQL = ComandoSQL & "departamento=" & verifica_campo("'" & Prepara_palavra(var1) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & "detalhes=" & verifica_campo("'" & Prepara_palavra(Upload.Form("detalhes")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & "descricao=" & verifica_campo("'" & Prepara_palavra(Upload.Form("descricao")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & "banner=" & verifica_campo("'" & Prepara_palavra(Upload.Form("banner")) & "'", "", "Null") & ", "

var1 = Now()

ComandoSQL = ComandoSQL & "data_alteracao='" & FormataDataAmericano(FormataData(var1)) & " " & FormataHoraAmericano(var1) & "', "

ComandoSQL = ComandoSQL & "banners_grupo=" & verifica_campo("'" & Prepara_palavra(Upload.Form("banners_grupo")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & "exibir=" & verifica_campo("'" & Prepara_palavra(Upload.Form("exibir")) & "'", "", "0") & " "

ComandoSQL = ComandoSQL & " WHERE id=" & id

Set objRS = objCon.Execute(ComandoSQL)

%>

 

<blockquote>

<br><br>

<img src="imagens/awm.gif" width="14" height="14" align="absmiddle"> <strong>CADASTRO ALTERADO </strong>

<br>

<br>

O cadastro foi alterado com sucesso!

<br>

<br>

<input type="button" value="Continuar ››" class="botao" onClick="window.open('produtos_consultar.asp','_self')">

<br>

</blockquote>

 

<%

Else

ComandoSQL = "INSERT INTO produtos (foto_apresentacao, nome, descricao, departamento, detalhes, descricao, banner, banner_exibicoes, banner_cliques, data_cadastro, data_alteracao, banners_grupo, exibir) "

ComandoSQL = ComandoSQL & " VALUES("

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(foto1) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(Upload.Form("nome")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(Upload.Form("descricao")) & "'", "", "Null") & ", "

var1 = Trim(Upload.Form("departamento") & " ")

var1 = Replace(var1, ",", "|")

var1 = Replace(var1, " ", "")

var1 = "|" & var1 & "|"

var1 = Replace(var1, "||", "|")

If var1 = "|" Then var1 = ""

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(var1) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(Upload.Form("detalhes")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(Upload.Form("descricao")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(Upload.Form("banner")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & "0, "

ComandoSQL = ComandoSQL & "0, "

var1 = Now()

ComandoSQL = ComandoSQL & "'" & FormataDataAmericano(FormataData(var1)) & " " & FormataHoraAmericano(var1) & "', "

ComandoSQL = ComandoSQL & "Null, "

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(Upload.Form("banners_grupo")) & "'", "", "Null") & ", "

ComandoSQL = ComandoSQL & verifica_campo("'" & Prepara_palavra(Upload.Form("exibir")) & "'", "", "0") & " "

ComandoSQL = ComandoSQL & ")"

 

Set objRS = objCon.Execute(ComandoSQL)

%>

 

<blockquote>

<br><br>

<img src="imagens/awm.gif" width="14" height="14" align="absmiddle"> <strong>CADASTRO ADICIONADO </strong>

<br>

<br>

O cadastro foi adicionado com sucesso!

<br>

<br>

<input type="button" value="Continuar ››" class="botao" onClick="window.open('produtos_consultar.asp','_self')">

<br>

</blockquote>

 

<%

End If

%>

[jrcardozo 4]

já deu uma olhada nos demos do componente

http://www.aspupload.com/livedemo.html