¡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 p>
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