& lttable width = " 80% " border = " 0 " align = " center " cell padding = " 4 " cell spacing = " 1 " bgcolor = " # 3f69e 9 " >
& lttr & gt
& lt%
' Dim i ' define la variable I.
Para i=1 a 50 ', establezca el valor inicial de I en 1 y finalice la celda td debajo del bucle con un valor de 50.
% & gt
& ltTD align = " center " bgcolor = " # 9 adafc " onmouseout = " this . style . background color = ' # 9 adafc ' " " onmouseover = " this . style . background color = ' #EDF 8 Fe ' " & gt;& ltfont size="-6" color="#FF0000 " >& lt% = I-1% & gt;& lt/font & gt ;& lt/TD & gt;
& lt! - Los atributos en td son solo para apariencia, no es necesario escribir la fuente. Puedes configurar la fuente o no -& gt;
& lt%
Si mod 10=0, entonces 'Cuando soy múltiplo de 10, la línea se desconecta
Respuesta.
Terminará si...
Entonces
% & gt
& lt/tr & gt;
& lt/table>
2. Dirección de Internet informática internacional
& lt%
realip = solicitud. ServerVariables ( " HTTP_X_FORWARDED_FOR " )
proxy = solicitud . Variable del servidor ("remote_ADDR")
Si realip = " "entonces
zhenshiip = proxy
Otro
zhenshiip = realip
Terminará si...
Si left (zhenshiip, 6) = "211.69" Si los primeros 6 dígitos de la dirección IP recibida son "211.69", aparecerá el siguiente mensaje de bienvenida. mostrarse, de lo contrario es ilegal.
Respuesta. Write("<script>Alert('¡Bienvenido!');Window.location= 'La página a la que desea acceder';</script>")
Otro
Respuesta. Write("<script>Alert('¡Usuario ilegal!');window . History(-1);</script>")
Terminará si...
% & gt