Al escribir ASP, debemos prestar atención al procesamiento de cadenas especiales para evitar que los piratas informáticos las utilicen. Los amigos que usan asp deben consultarlo.
Copie el código de código de la siguiente manera:
'========================================
'Convierta contenido para evitar accidentes
'========================================
Función Content_Encode (ByVal t0)
SI es nulo (t0) o Len (t0) = 0 entonces
Contenido_Encode=""
Demás
Content_Encode=Reemplazar(t0,"<","<")
Content_Encode=Reemplazar(Content_Encode,">",">")
Fin SI
Función final
'========================================
'Desconvertir contenido
'========================================
Función Content_Decode (ByVal t0)
SI es nulo (t0) o Len (t0) = 0 entonces
Contenido_Decode=""
Demás
Content_Decode=Reemplazar(t0,"<","<")
Content_Decode=Reemplazar(Content_Decode,">",">")
Fin SI
Función final
'========================================
'Filtrar caracteres
'========================================
Función FilterText(ByVal t0,ByVal t1)
IF Len(t0)=0 O IsNull(t0) O IsArray(t0) Entonces FilterText="":Salir de la función
t0=Recortar(t0)
Seleccione el caso t1
Caso "1"
t0=Reemplazar(t0,Chr(32)," ")
t0=Reemplazar(t0,Chr(13),"")
t0=Reemplazar(t0,Chr(10)&Chr(10),"<br>")
t0=Reemplazar(t0,Chr(10),"<br>")
Caso "2"
t0=Reemplazar(t0,Chr(8),"")'return
t0=Reemplazar(t0,Chr(9),"")'tab (carácter de tabulación horizontal)
t0=Reemplazar(t0,Chr(10),"")'Nueva línea
t0=Reemplazar(t0,Chr(11),"")'tab (carácter de tabulación vertical)
t0=Reemplazar(t0,Chr(12),"")'Cambio de página
t0=Replace(t0,Chr(13),"")' retorno de carro chr(13)&chr(10) combinación de retorno de carro y avance de línea
t0=Reemplazar(t0,Chr(22),"")
t0=Reemplazar(t0,Chr(32),"")'ESPACIO
t0=Reemplazar(t0,Chr(33),"")'!
t0=Reemplazar(t0,Chr(34),"")'"
t0=Reemplazar(t0,Chr(35),"")'#
t0=Reemplazar(t0,Chr(36),"")'$
t0=Reemplazar(t0,Chr(37),"")'%
t0=Reemplazar(t0,Chr(38),"")'&
t0=Reemplazar(t0,Chr(39),"")''
t0=Reemplazar(t0,Chr(40),"")'(
t0=Reemplazar(t0,Chr(41),"")')
t0=Reemplazar(t0,Chr(42),"")'*
t0=Reemplazar(t0,Chr(43),"")'+
t0=Reemplazar(t0,Chr(44),"")',
t0=Reemplazar(t0,Chr(45),"")'-
t0=Reemplazar(t0,Chr(46),"")'.
t0=Reemplazar(t0,Chr(47),"")'/
t0=Reemplazar(t0,Chr(58),"")':
t0=Reemplazar(t0,Chr(59),""';
t0=Reemplazar(t0,Chr(60),"")'<
t0=Reemplazar(t0,Chr(61),"")'=
t0=Reemplazar(t0,Chr(62),"")'>
t0=Reemplazar(t0,Chr(63),"")'?
t0=Reemplazar(t0,Chr(64),"")'@
t0=Reemplazar(t0,Chr(91),"")'/
t0=Reemplazar(t0,Chr(92),"")'/
t0=Reemplazar(t0,Chr(93),"")']
t0=Reemplazar(t0,Chr(94),"")'^
t0=Reemplazar(t0,Chr(95),"")'_
t0=Reemplazar(t0,Chr(96),"")'`
t0=Reemplazar(t0,Chr(123),"")'{
t0=Reemplazar(t0,Chr(124),"")'|
t0=Reemplazar(t0,Chr(125),"")'}
t0=Reemplazar(t0,Chr(126),"")'~
Caso más
t0=Reemplazar(t0, "&", "&")
t0=Reemplazar(t0, "'", "'")
t0=Reemplazar(t0, """", """)
t0=Reemplazar(t0, "<", "<")
t0=Reemplazar(t0, ">", ">")
Seleccionar fin
IF Instr(Lcase(t0),"expresión")>0 Entonces
t0=Reemplazar(t0,"expresión","expresión", 1, -1, 0)
Terminar si
Texto de filtro=t0
Función final
'========================================
'Filtrar caracteres comunes y HTML
'========================================
Función FilterHtml(ByVal t0)
IF Len(t0)=0 O IsNull(t0) O IsArray(t0) Entonces FilterHtml="":Salir de la función
IF Len(Sdcms_Badhtml)>0 Entonces t0=ReplaceText(t0,"<(//|)("&Sdcms_Badhtml&")", "<$1$2")
IF Len(Sdcms_BadEvent)>0 Entonces t0=ReplaceText(t0,"<(.[^>]*)("&Sdcms_BadEvent&")", "<$1$2")
t0=FiltrarTexto(t0,0)
FiltroHtml=t0
Función final
Función GotTopic(PorVal t0,PorVal t1)
SI Len (t0) = 0 o IsNull (t0) entonces
GotTopic=""
Función de salida
Fin SI
tenue l,t,c,i
t0=Reemplazar(Reemplazar(Reemplazar(Reemplazar(t0," "," "),"",chr(34)),">",">"),"<","<")
l=Len(t0)
t=0
Para I=1 a l
c=Abs(Asc(Medio(t0,i,1)))
SI c>255 Entonces t=t+2 Si no t=t+1
SI t>=t1 Entonces
gotTopic=Izquierda(t0,I)&"…"
Salir por
Demás
Tengo tema=t0
Fin SI
Próximo
GotTopic=Reemplazar(Reemplazar(Reemplazar(Reemplazar(GotTopic," "," "),chr(34),""),">",">"),"<","<")
Función final
Función UrlDecode (ByVal t0)
Atenuar t1,t2,t3,i,t4,t5,t6
t1=""
t2=Falso
t3=""
Para I=1 a Len(t0)
t4=Medio(t0,I,1)
SI t4="+" Entonces
t1=t1&""
De lo contrarioIF t4="%" Entonces
t5=Medio(t0,i+1,2)
t6=Cint("&H" y t5)
SI t2 Entonces
t2=Falso
t1=t1&Chr(Cint("&H"&t3&t5))
Demás
SI Abs(t6)<=127 entonces
t1=t1&Chr(t6)
Demás
t2=Verdadero
t3=t5
Fin SI
Fin SI
yo=yo+2
Demás
t1=t1&t4
Fin SI
Próximo
URLDecode=t1
Función final
Función CutStr(byVal t0,byVal t1)
tenue l,t,c,i
IF IsNull(t0) Then CutStr="":Salir de la función
l=Len(t0)
t1=Ent(t1)
t=0
Para I=1 a l
c=Asc(Medio(t0,I,1))
SI c<0 O c>255 Entonces t=t+2 Si no t=t+1
SI t>=t1 Entonces
CutStr=Izquierda(t0,I)&"..."
Salir por
Demás
Cortarcadena=t0
Fin SI
Próximo
Función final
Función CerrarHtml(ByVal t0)
Dim t1,I,t2,t3,Regs,Partidos,J,Partido
Establecer registros = nueva expresión regular
Regs.IgnoreCase=Verdadero
Regs.Global=Verdadero
t1=Array("p","div","span","table","ul","font","b","u","i","h1","h2","h3 ","h4","h5","h6")
Para I=0 a UBound(t1)
t2=0
t3=0
Regs.Pattern="/<"&t1(I)&"( [^/</>]+|)/>"
Establecer coincidencias=Regs.Execute(t0)
Para cada partido en partidos
t2=t2+1
Próximo
Regs.Pattern="/</"&t1(I)&"/>"
Establecer coincidencias=Regs.Execute(t0)
Para cada partido en partidos
t3=t3+1
Próximo
Para j=1 a t2-t3
t0=t0+"</"&t1(I)&">"
Próximo
Próximo
CerrarHtml=t0
Función final