Ir para conteúdo

POWERED BY:

Arquivado

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

kania

[Resolvido] VBSCRIPT x JSCRIPT

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Ola pessoal, estou com um baita probelma nas mão, estou na fase de desenvolvimento da pagina de pagamento de um site, o problema é que o cliente comprou um serviço de boletos e este serviço utiliza a linguagem JSCRIPT e minha paginas estão todas em VBSCRIPT e na geração do código do boleto esta dandoc onflito nos códigos alguém pode me auxiliar na montagem do código, não entendo nada de JSCRIPT.

 

pagina que gera o recibo baseado na pagina anterior que já cadasrou os dados no Banco de dados

 

gera_boleto.asp

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--'#include file="conexao/conexao.asp"-->
<%

email = request.QueryString("email")

Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from associados where email='"&email&"'"
RS.Open SQL,Conn,3,3
IF RS.EOF then

response.write "<script>location = ""default.asp"";alert(""ASSOCIADO NÃO ENCOTRADO NO SISTEMA, FAVOR ENTRAR EM CONTATO COM NOSSO SUPORTE CASO TENHA ALGUMA DÚVIDA suporte@topsucesso.com.br"")</script>"
else


plano = request.QueryString("plano") 

if plano = "mensal" then

valor_boleto = "13,90"
end if

if plano = "semestral" then

valor_boleto = "53,50"
end if

if plano = "anual" then

valor_boleto = "103,00"
end if


if plano = "mensal" then

validade = "1 mês"
end if

if plano = "semestral" then

validade = "6 meses"
end if

if plano = "anual" then

validade = "12 meses"
end if


if plano = "mensal" then

plano_extenco = "Plano Mensal"
end if

if plano = "semestral" then

plano_extenco = "Plano Semestral"
end if

if plano = "anual" then

plano_extenco = "Plano Anual"
end if

id = Rs("id")
'dia_vencimento = Rs("data_cadastro")
dia = cDate (Rs("data_cadastro"))
dia_vencimento = dia+7
nome = Rs("nome")
endereco = Rs("endereco")
bairro = Rs("bairro")
cep = Rs("cep")
cidade = Rs("cidade")
estado = Rs("estado")
plano = Rs("plano")
telefone_res = Rs("telefone_res")
forma_pagamento = Rs("forma_pagamento")


'AQUI INICIA O CÓDIGO DO SISTEMA QUE GERA O BOLETO


/*
--------------------------------------------------------------------------
- NOME: PadL() - Rotina auxiliar
--------------------------------------------------------------------------
- PARAMETROS:
-   strSt (str):
-	 String a formatar.
-
-   intLen (int):
-	 Comprimento da string resultante.
-
-   chrPadChar (char):
-	 Caracter a utilizar, para atingir o comprimento desejado.
--------------------------------------------------------------------------
- FUNCAO:
-   Se string fornecida tiver comprimento inferior a Len, acrescenta
- caracteres PadChar, até que o comprimento desejado seja obtido.
--------------------------------------------------------------------------
- AUTORES:
-   Neo Interativa (V1.00)						  25/11/02
--------------------------------------------------------------------------*/
function PadL( strSt, intLen, chrPadChar)
{
  strSt = strSt + "";

  if ( strSt.length < intLen )  {
	while( strSt.length < intLen )
	  strSt = chrPadChar + strSt;
  }

  return( strSt );
}


/*
--------------------------------------------------------------------------
- NOME: CalcCd - Rotina auxiliar
--------------------------------------------------------------------------
- PARAMETROS:
-   astrTexto (string):
-	 String cujo código de proteção deseja-se cal-
-   cular.
--------------------------------------------------------------------------
- FUNCAO:
-   Retorna os cinco dígitos do código de proteção
- para a string fornecida como parâmetro.
--------------------------------------------------------------------------
- AUTORES:
-   Neo Interativa (V1.00)						  25/11/02
--------------------------------------------------------------------------*/
function CalcCd(astrTexto)
{
  var intTmp;
  var intI;


  if (astrTexto=='')
	return('');

  intTmp = 0;


  for (intI=0; intI<astrTexto.length; intI++)
	 intTmp += (intI+1)*2412*((astrTexto.charCodeAt(intI)*23187) % 4850);
  intTmp = intTmp % 21980;

  return(PadL(''+intTmp, 5, '0'));
}


/*
--------------------------------------------------------------------------
- NOME: AddCode
--------------------------------------------------------------------------
- PARAMETROS:
-   astrTexto (string):
-	 String a qual se deseja acrescentar o código
-  de proteção.
--------------------------------------------------------------------------
- FUNCAO:
-   Acrescenta o código de proteção à string
- fornecida como parâmetro.
--------------------------------------------------------------------------
- AUTORES:
-   Neo Interativa (V1.00)						  25/11/02
--------------------------------------------------------------------------*/
function AddCode(astrTexto)
{
  return(CalcCd(astrTexto)+astrTexto);
}


/*
--------------------------------------------------------------------------
- NOME: Main
--------------------------------------------------------------------------
- FUNCAO:
-   Código principal do exemplo. Gera formulário para
- chamada a boleto bancário on-line.
--------------------------------------------------------------------------
- AUTORES:
-   Neo Interativa (V1.00)						  25/11/02
--------------------------------------------------------------------------*/
var sstrBoletoType;	// Tipo de boleto
var sstrCodCedente;	// Código do cedente no sistema
var sstrDataVenc;	// Data de vencimento
var sstrDataDoc;	// Data do documento
var sstrNumDoc;	// Número do documento
var sstrEspDoc;		// Espécie de documento
var sstrDataProc;	// Data de processamento
var sstrNNum;		// Número do documento
var sstrValor;		// Valor do boleto
var sstrIT1;		// Linha 1 do campo informações do boleto
var sstrIT3;		// Linha 3 do campo informações do boleto
var sstrSC1;		// Linha 1 do campo sacado
var sstrSC2;		// Linha 2 do campo sacado



			// ATENÇÃO: é feita atribuição direta de valores para as variáveis, mas você poderia as estar lendo,
			// por exemplo, de um servidor de banco de dados. Para isso, seria uma mera questão de acrescentar
			// algumas linhas de código

sstrCodCedente = '20783';					// Código de usuário, usando código de proteção por campo
sstrBoletoType 	= '0';
sstrDataVenc 	= data_vencimento
sstrEspDoc	= 'RC';
sstrNNum	= id
sstrValor	 	= valor_boleto
sstrIT1		= 'Não receber após o vencimento.';
sstrIT3 		= 'Referente a mensalidade do site Top Sucesso. www.topsucesso.com.br';
sstrSC1 	= nome
sstrSC2 	= endereco
%>

<link href="estilo.css" rel="stylesheet" type="text/css">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
	<tr>
	<td><form method="POST" action="http://www.neointerativa.com.br/_home/Asp/BoletoPg.asp">
					<!-- ******************************************************************* -->
					<!-- * Colocar a seguir dados para gerar o boleto, valor de cada campo * -->
					<!-- ******************************************************************* -->
					<!-- Tipo de boleto -->
					<input type="hidden" name="BT" value="<%=AddCode(sstrBoletoType)%>">
					
					<!-- Codigo de usuario no servico boleto on-line -->
					<input type="hidden" name="CD" value="<%=sstrCodCedente%>">
					
					<!-- Data de vencimento -->
					<input type="hidden" name="você" value="<%=AddCode(sstrDataVenc)%>">
					
					<!-- Especie de documento -->
					<input type="hidden" name="ED" value="<%=AddCode(sstrEspDoc)%>">
					
					<!-- Nosso Numero -->
					<!-- OBS: nao fornecer este campo, caso queira que o servido o gere automaticamente-->
					<input type="hidden" name="NN" value="<%=AddCode(sstrNNum)%>">
					
					<!-- Valor do boleto -->
					<input type="hidden" name="VD" value="<%=AddCode(sstrValor)%>">
					
					<!-- Linha 1 do campo instrucoes do boleto -->
					<input type="hidden" name="IT1" value="<%=AddCode(sstrIT1)%>">
					
					<!-- Linha 3 do campo instrucoes do boleto -->
					<input type="hidden" name="IT3" value="<%=AddCode(sstrIT3)%>">
					
					<!-- Linha 1 do campo sacado -->
					<input type="hidden" name="SC1" value="<%=AddCode(sstrSC1)%>">
					
					<!-- Linha 2 do campo sacado -->
					<input type="hidden" name="SC2" value="<%=AddCode(sstrSC2)%>">
					</td></tr>
	  <tr>
		<td class="texto_titulo_negrito_G">Seu Recibo</td>
	  </tr>
	  <tr>
		<td><hr></td>
	  </tr>
	  <tr>
		<td> </td>
	  </tr>
	  <tr>
		<td class="texto_titulo_negrito_G">Grupo Ação & Sucesso</td>
	  </tr>
	  <tr>
		<td><hr></td>
	  </tr>
	  <tr>
		<td><font size="2" face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular"><b>Destinatário/Remetente</b></font><br>
		  <font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2">Nome: <%=nome%><br>
Endereço: <%=endereco%>, <%=numero%> - <%=bairro%> - CEP: <%=cep%> - <%=cidade%> - <%=estado%><br>
Fone: <%=telefone_res%><br>
<br>
<b>Forma de Pagamento</b><br>
<%=forma_pagamento%><br>
<br>
<b>Fatura</b><br>
Número do Pedido: <%=id%><br>
<br>
<b>Dados da Compra</b></font></td>
	  </tr>
	  <tr>
		<td>
		
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
						<tr>
							<td width="30%" align="left" class="texto_base_negrito">Nome do Produto</td>
							<td width="20%" align="center" class="texto_base_negrito">Validade</td>
							<td align="center" class="texto_base_negrito">Valor Total</td>
						</tr>
						<tr>
							<td width="30%" class="texto_obs"><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2"><%=plano_extenco%></font></td>
							<td width="20%" align="center" class="texto_obs"><font size="2" face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular"><%=validade%></font></td>
							<td align="center" class="texto_obs"><font size="2" face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular">R$ <%=valor_boleto%></font></td>
						</tr>
						<tr>
							<td width="30%"></td>
							<td width="20%"></td>
							<td></td>
						</tr>
				</table>
		
		</td>
	  </tr>
	  <tr>
		<td> </td>
	  </tr>
	  <tr>
		<td>
		  <div align="center">
			<input type="submit" value="Imprimir Boleto" name="btnImprimirBoleto" title="Clique aqui para gerar o boleto on-line" class="borda_form_login">
			</div></td>
	  </tr>
	  <tr>
		<td> </td>
	  </tr>
	  <tr>
		<td height="103" valign="top"><span class="texto_titulo_negrito_G">Atenção</span><br>
		
		  <span class="texto_base10">Para sua maior segurança imprima está página. Ela é a garantia de sua compra.<br>
		  Qualquer dúvida entre em contato com a nosso suporte - suporte@topsucesso.com.br.<br>
		  Seu cadastro ficará bloqueado até que a confirmação de pagamento seja efetivada pelo nosso departamento financeiro.</span></td>
	  </tr>
	  <tr>
		<td><span class="texto_titulo_negrito_G">Caso deseje efetuar o pagamento via depósito bancário</span><br><br>
		
		  <span class="texto_base10"><span class="texto_titulo_negrito_G">Banco real</span><br><br>
		  Titular: Lucas A.S. Carneiro<br>AG: 0476<br>CC: 1070998-5<br><br>
		  <span class="texto_titulo_negrito_G">Banco Caixa Ecônmica Federal</span><br>
		  <br>
Titular: Lucas A.S. Carneiro<br>
AG: 1066<br>
CP: 32342-4<br>OP: 013
		  </span></td>
	  </tr>
	  <tr>
		<td> </td>
	  </tr>
	</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

cara, você vai ter que reescrever o código. Como tem os comentarios, acho melhor você não tentar adaptar e sim criar as funções em vbscript. A sintaxe do jscript é igual a javascript, então se você sabe o minimo de javascript saberá fazer.

 

Abaixo apenas um exemplo simples:

 

jscript:

function PadL( strSt, intLen, chrPadChar)
{
  strSt = strSt + "";

  if ( strSt.length < intLen )  {
	while( strSt.length < intLen )
	  strSt = chrPadChar + strSt;
  }

  return( strSt );
}

vb script:

function PadL( strSt, intLen, chrPadChar)
strSt = strSt&""
if len(strSt)<intLen then
do while len(strSt)<intLen
 strSt = chrPadChar & strSt
loop
end if
PadL = strSt 
end function

me corrijam se estou errado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Entao, nao tem como misturar

 

Terá que recodificar tudo em uma forma só, acho que no caso será em JS

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Que bom que resolveu

 

Abraços

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