Red de conocimiento informático - Conocimiento informático - Por favor, ayude a explicar que este código ASP no permite el acceso al backend de este sitio desde direcciones externas.

Por favor, ayude a explicar que este código ASP no permite el acceso al backend de este sitio desde direcciones externas.

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER"))) 'Obtiene el nombre de dominio del servidor

si ComeUrl="" entonces 'Si está vacío, significa que no se pasa normalmente el acceso mediante, por ejemplo, la creación de una página web localmente y luego el acceso a su backend.

response.write "

Lo sentimos, por razones de seguridad del sistema, no está permitido ingresar directamente la dirección para acceder al fondo página de administración de este sistema."

response.end

else

cUrl=trim("

if mid(ComeUrl,len(cUrl)+1,1)=":" entonces 'Determine el siguiente puerto. Generalmente, agréguelo después del sitio web: significa que no es el puerto 80

cUrl=. cUrl & ":" & Request.ServerVariables("SERVER_PORT" )

end if

cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME")) 'lcase convierte la cadena en minúsculas

if lcase (left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) entonces 'Determina si el dominio El nombre al inicio del acceso y el nombre de dominio al momento de enviar la información son iguales. La desigualdad indica una intrusión ilegal

response.write "

Lo sentimos, por motivos de seguridad del sistema, no se permite el acceso a este sistema desde direcciones de enlaces externos. Página de administración de backend

"

response.end

finalizar si

finalizar si