¡Ayuda con la traducción!

Dim ComeUrl, curl, AdminName

ComeUrl=lcase(request.servervariables("http_referer")).

Si ComeUrl= " "Entonces

response.write " ltbr gt ltp arreglo=centro> ltFont color =' red ' >Lo sentimos, por el bien de la seguridad del sistema, ingrese directamente La dirección no está permitida. La página de administración en segundo plano de este sistema lt/font > lt;/p>;

Response.End

Otros

Curl =. tidy ("http: //"Y solicita . variables del servidor (" server_name "))

Si está en = (ComeUrl, len (curl) 1, 1)": "Entonces

curl = curl ":" amp request.servervariables("serverport")

finalizará si...

Roll =lcase(roll y request.servervariables ("script_name"))

Si lcase (ComeURL, instrrev (ComeURL, "/")

response.write " ltbr gt ltp organizar=centro> ltFont color =' rojo ' >Lo sentimos, pero el sistema es seguro y no permite el acceso a la página de administración de backend de este sistema desde direcciones de enlace externo lt/font > lt;/p >;

Response.End

Terminará si...

Terminará si...

AdminName = en lugar de(reunión(" AdminName "), "'", "")

Si AdminName = " "Entonces

Llame a CloseConn()

respuesta.redirect" login.asp "

Fin de respuesta()

Terminará si...

Sql= "Seleccione el nombre de usuario del administrador donde Nombre de usuario = ' " sesión (" Nombre del administrador ") & Contraseña = ' " sesión (" Contraseña del administrador ") & Contraseña = ' " sesión(" contraseña de administrador ") & >Establecer rs=conn.execute(sql).

Si rs.eof y rs.bof, entonces

rs cierran

Redirect(" login.asp ")

Response.End()

Terminará si...

gt