<%

' CONFIG
' Constantes de configuração
Server.ScriptTimeout = 1500
Session.LCID = 1046
O_MAX_WIDTH = 500
MAX_WIDTH = 140
O_MAX_HEIGHT = 60
path = "E:\inetpub\swingchat.com.br\httpdocs\hotlinks\banner\" 'path das imagem, precisa ser o endereço fisico
'path_thumb = "C:\Inetpub\vhosts\paraisobrasilia.com.br\httpdocs\galeria\thumb\" 'path das imagem, precisa ser o endereço fisico
'path = "C:\Inetpub\wwwroot\banner\banner\" 'path das imagem, precisa ser o endereço fisico
'path_thumb = "C:\Inetpub\wwwroot\galeria\thumb\" 'path das imagem, precisa ser o endereço fisico
strDataCompleta = CDate(NOW())
strData = CDate(Date())
MaxRegistros = 6 'Numero maximo de registros exibidos na página inical, use "ZERO" para mostrar todos

Public Function zero(variavel)
IF variavel <> "" THEN
zero = variavel
ELSE
zero = 0
END IF
End Function


' FUNÇÕES PADRÕES

Public Function Seguranca(var)
varofiginal = ""
If IsNull(var) Then
	var = ""
End If
var = Replace(var,"%20"," ")

IF IsNull(var) = False and IsEmpty(var) = False THEN
varofiginal = var
	var = Replace(var, Chr(39), """")
	var = Replace(var,"%20", " ")
	'var = Replace(var, "'", "''")
	';
	strProibidas = Array("select max ", "select ", "drop ", "update ", "--", "insert ", "delete ", "xp_", "sp_", "/*", "*/", "rollback", "commit","create ","union","union all", "union%20all", "sysobjects", "select top ","syscolumns","having","--"," or ") 

	For i = 0 to UBOUND(strProibidas) 
		IF instr(lcase(var), strProibidas(I)) <> 0 THEN
			For ckl = 1 to 20
				IF instr(lcase(var), strProibidas(I)) <> 0 THEN
					caracterei = instr(lcase(var), strProibidas(I))
					caracteref = Len(strProibidas(I))
					'Response.write "<br>"
					'Response.write "Total Proibida: " & Len(strProibidas(I)) & "<br>"
					'Response.write "Total da Var: " & Len(var) & "<br>"
					
					'Response.write "I: " & caracterei & "<br>"
					'Response.write "F: " & caracteref & "<br>"
					var = tirarpalavra(var,  caracterei,caracteref)
					'Response.write "<br>" & var & "<br><br>"
	 			else
					Exit for
				End If
			Next
		End if
	Next
	Seguranca = var
ELSE
	Seguranca = var
END IF
End Function


Function LimparVariavel(StrMensagem)
	Dim IntCont
	Dim StrLetra
	Dim StrSaida

	For IntCont = 1 To Len(StrMensagem)
	   StrLetra = Mid(StrMensagem, IntCont, 1)
	   If Asc(StrLetra) = 34 Then 
	      StrLetra = "&#34;"
	   ElseIf Asc(StrLetra) = 13 or Asc(StrLetra) = 10 Then
	      StrLetra = " "
	   End if
	   StrSaida = StrSaida & StrLetra
	Next
	LimparVariavel = StrSaida
End Function


Public Function login(variavel)
IF variavel <> "" THEN
variavel = Replace(variavel,chr(39),"''") 
login = variavel
ELSE
login = variavel
END IF
End Function


Public Function Codificar(variavel)
IF variavel <> "" THEN
variavel = Replace(variavel, Chr(10), "<br>")
variavel = Replace(variavel, """", "&#34;")
variavel = Replace(variavel, "'", "&#39;")
variavel = Replace(variavel, "," , "&#44;")
variavel = Replace(variavel, "'" , "&#39;")
variavel = Replace(variavel, "-" , "&#45;")
variavel = Replace(variavel, "`" , "&#96;")
Codificar = variavel
ELSE
Codificar = variavel
END IF
End Function


Public Function Decodificar(variavel)
IF variavel <> "" THEN
variavel = Replace(variavel, "<BR>", Chr(10))
variavel = Replace(variavel, "&#34;", """")
variavel = Replace(variavel, "&#39;", "'")
variavel = Replace(variavel, "&#44;", ",")
variavel = Replace(variavel, "&#39;", "'")
variavel = Replace(variavel, "&#45;", "-")
variavel = Replace(variavel, "&#96;", "`")
Descodificar = variavel
ELSE
Descodificar = variavel
END IF
End Function

Public Function decod(variavel)
IF variavel <> "" THEN
variavel = Replace(variavel, "&#34;", """")
variavel = Replace(variavel, "&#39;", "'")
variavel = Replace(variavel, "&#44;", ",")
variavel = Replace(variavel, "&#39;", "'")
variavel = Replace(variavel, "&#45;", "-")
variavel = Replace(variavel, "&#96;", "`")
decod = variavel
ELSE
decod = variavel
END IF
End Function


Public Function ConverterData(variavel)
IF variavel <> "" THEN

strDia = day(variavel)
strMes = month(variavel)
strAno = year(variavel)
ConverterData = strMes & "/" & strDia & "/" & strAno
ELSE
ConverterData = month(NOW) & "/" & day(NOW) & "/" & year(NOW)
END IF
End Function


Public Function DataMYSQL(variavel)
IF variavel <> "" THEN

strDia = day(variavel)
strMes = month(variavel)
strAno = year(variavel)

IF hour(variavel) = "0" THEN
strHora = (hour(NOW))
ELSE
strHora = (hour(variavel))
END IF

IF minute(variavel) = "0" THEN
strMinuto = (minute(NOW))
ELSE
strMinuto = (minute(variavel))
END IF

IF second(variavel) = "0" THEN
strSegundo = (second(NOW))
ELSE
strSegundo = (second(variavel))
END IF


DataMYSQL = strAno & "/" & strMes & "/" & strDia & " " & strHora & ":" & strMinuto & ":" & strSegundo
ELSE
DataMYSQL = year(NOW) & "/" & month(NOW) & "/" & day(NOW) & " " & strHora & ":" & strMinuto & ":" & strSegundo
END IF
End Function


Public Function ponto(variavel)
IF variavel <> "" THEN
ponto = Replace(variavel, ",", ".")
ELSE
ponto = variavel
END IF
End Function


Public Function bit(variavel)
IF variavel <> "" THEN
bit = variavel
ELSE
bit = 0
END IF
End Function


Public Function DataMy(variavel)
IF variavel <> "" THEN

strDia = day(variavel)
strMes = month(variavel)
strAno = year(variavel)
DataMy = strAno & "/" & strMes & "/" & strDia
ELSE
DataMy = year(NOW) & "/" &  month(NOW) & "/" & day(NOW)
END IF
End Function


Function formatadigitos(variavel)
IF Len(variavel) = 1 THEN
formatadigitos = "0" & variavel
ELSE
formatadigitos = variavel
END IF
End Function


Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem,formato)
formato = UCase(formato)
Componente = UCase(Componente)
	
	' 	on error resume next

Select Case Componente
Case "ASPMAIL"
	    Set eObjMail = Server.CreateObject("SMTPsvg.Mailer")
	    eObjMail.FromName = NomeEmail
	    eObjMail.FromAddress = Email
	    eObjMail.RemoteHost = Host
	    eObjMail.AddRecipient "", ParaEmail
	    eObjMail.Subject = Assunto
					
			IF UCase(formato) = "HTML" THEN
		eObjMail.ContentType = "text/html"
			END IF
		eObjMail.ContentType = "text/html"
	    eObjMail.BodyText = Mensagem	    
	    eObjMail.SendMail
	 	Set eObjMail = nothing

Case "ASPEMAIL"
	    Set eObjMail = Server.CreateObject("Persits.MailSender")
	    eObjMail.Host = host
	 	eObjMail.From = Email
	 	eObjMail.FromName = NomeEmail
	 	eObjMail.AddReplyTo Email
	 	eObjMail.AddAddress ParaEmail
	    eObjMail.Subject = Assunto
			IF UCase(formato) = "HTML" THEN
				eObjMail.isHTML = true
			ELSE
				eObjMail.isHTML = false
			END IF
		eObjMail.Body = Mensagem	 	
	 	eObjMail.Send
	 	Set eObjMail = nothing

Case "ASPQMAIL"
		Set eObjMail = Server.CreateObject("SMTPsvg.Mailer")
		eObjMail.QMessage = 1
		eObjMail.FromName = NomeEmail
		eObjMail.FromAddress = Email
		eObjMail.RemoteHost = Host
		eObjMail.AddRecipient "", ParaEmail
		eObjMail.Subject = Assunto
		eObjMail.BodyText = Mensagem
			IF UCase(formato) = "HTML" THEN
				eObjMail.ContentType = "text/html"
			END IF
		
		objNewMail.SendMail
		Set eObjMail = nothing
		
Case "CDONTS"
	 	Set eObjMail = Server.CreateObject("CDONTS.NewMail")
	 	eObjMail.to = ParaEmail
		eObjMail.from = NomeEmail & "<" & Email & ">"
		eObjMail.subject = Assunto
		eObjMail.Importance = 1
			IF UCase(formato) = "HTML" THEN
				eObjMail.BodyFormat = 0
				eObjMail.MailFormat = 0
			END IF
		eObjMail.body = Mensagem		
		eObjMail.send
		Set eObjMail = nothing
Case "JMAIL"
			Set objJMail = Server.CreateObject("JMail.SMTPMail")
			objJMail.ServerAddress = host
      		objJMail.Sender = Email
      		objJMail.SenderName = NomeEmail
			objJMail.AddRecipient ParaEmail
			objJMail.Subject = Assunto
			objJMail.HTMLBody = Mensagem
			objJMail.Priority = 3 
			objJMail.Execute				
			Set objJMail = Nothing

Case Else
	 		
		Set eObjMail = Server.CreateObject("CDONTS.NewMail")
	 	eObjMail.to = ParaEmail
		eObjMail.from = NomeEmail & "<" & Email & ">"
		eObjMail.subject = Assunto
		eObjMail.Importance = 1
			IF UCase(formato) = "HTML" THEN
				eObjMail.BodyFormat = 0
				eObjMail.MailFormat = 0
			END IF
		eObjMail.body = Mensagem		
		eObjMail.send
		Set eObjMail = nothing	
End Select


'On Error Resume Next
'Err.Clear
'If Err.Number <> 0 Then
'EnviaEmail = "Email: " & ParaEmail & " <b><font color=ee0000>Não Enviado</font></b><br>"
'ELSE
'EnviaEmail = "Email: " & ParaEmail & " Enviado<br>"

'END IF
'On Error Goto 0
'EnviaEmail = "E-mail Enviado <br>Componente: <b>" & componente & "</b><br>Formato: <b>" & formato & "</b><br>De: <b>" & email & "</b><br>Para: <b>" & paraemail & "</b><br>SMTP: <b>" & host & "</b><br>"
End Function


Function fazerupload(componente,caminho)
' on error resume next
Select Case UCase(Componente)
Case "SMARTUPLOAD"
		Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")  
		mySmartUpload.Upload
		intCount = mySmartUpload.Save(caminho)
		Set mySmartUpload = Nothing			
Case "ASPUPLOAD"
		Set Upload = Server.CreateObject("Persits.Upload.1")
		Upload.OverwriteFiles = True
		Upload.SetMaxSize 1048576
		Count = Upload.Save(caminho)
		Set Upload = Nothing			
Case "DUNDAS"
		Set objUpload = Server.CreateObject ("Dundas.Upload.2")
		objUpload.MaxFileSize = 1048576
		objUpload.Save caminho
		Set objUpload = Nothing			
Case "FILEUP"
	Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")
	oFileUp.Path = caminho
	If Not oFileUp.Form("FILE1").IsEmpty Then
		oFileUp.Form("FILE1").Save
	End If
	If Not oFileUp.Form("FILE2").IsEmpty Then
		oFileUp.Form("FILE2").Save
	End If
	If Not oFileUp.Form("FILE3").IsEmpty Then
		oFileUp.Form("FILE3").Save
	End If
	Set oFileUp = Nothing		
End Select
End Function


Public Function ConverterDataCompleta(variavel)
IF variavel <> "" THEN

strDia = day(variavel)
strMes = month(variavel)
strAno = year(variavel)


IF hour(variavel) = "0" THEN
strHora = (hour(NOW))
ELSE
strHora = (hour(variavel))
END IF

IF minute(variavel) = "0" THEN
strMinuto = (minute(NOW))
ELSE
strMinuto = (minute(variavel))
END IF

IF second(variavel) = "0" THEN
strSegundos = (second(NOW))
ELSE
strSegundos = (second(variavel))
END IF


ConverterDataCompleta = strDia & "/" & strMes & "/" & strAno & " " & strHora & ":" & strMinuto & ":" & strSegundos
'ConverterDataCompleta = strDia & "/" & strMes & "/" & strAno & " " & strHora & ":" & strMinuto
ELSE
ConverterDataCompleta = day(NOW) & "/" & month(NOW) & "/" & year(NOW) & " " & strHora & ":" & strMinuto & ":" & strSegundos
'ConverterDataCompleta = day(NOW) & "/" & month(NOW) & "/" & year(NOW) & " " & strHora & ":" & strMinuto
END IF
End Function


Public Function dataEUA(variavel)
IF variavel <> "" THEN

strDia = day(variavel)
strMes = month(variavel)
strAno = year(variavel)


IF hour(variavel) = "0" THEN
strHora = (hour(NOW))
ELSE
strHora = (hour(variavel))
END IF

IF minute(variavel) = "0" THEN
strMinuto = (minute(NOW))
ELSE
strMinuto = (minute(variavel))
END IF

IF second(variavel) = "0" THEN
strSegundos = (second(NOW))
ELSE
strSegundos = (second(variavel))
END IF


dataEUA = strMes & "/" & strDia & "/" & strAno & " " & strHora & ":" & strMinuto & ":" & strSegundos
'ConverterDataCompleta = strDia & "/" & strMes & "/" & strAno & " " & strHora & ":" & strMinuto
ELSE
dataEUA = Month(NOW) & "/" & day(NOW) & "/" & year(NOW) & " " & strHora & ":" & strMinuto & ":" & strSegundos
'ConverterDataCompleta = day(NOW) & "/" & month(NOW) & "/" & year(NOW) & " " & strHora & ":" & strMinuto
END IF
End Function


%>