inc/check.asp

（完整代码） 1KB 

<%
dim ComeUrl,cUrl

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
	response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
	response.end
else
	cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
	if mid(ComeUrl,len(cUrl)+1,1)=":" then
		cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
	end if
	cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
	if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
		response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
		response.end
	end if
end if


Admin=replace(session("R_Admin"),"'","")
if Admin=""  then
	session("R_Admin")=""
    response.Write"<script>alert('网络超时或您还没有登陆！');window.location.href='../';</script>"
	response.End()
end if
sql="select name from admin where name='" & session("R_Admin") & "'"
set rs=objconn.execute(sql)
if rs.eof and rs.bof then
  rs.close
  response.Redirect"../"
  response.End()
end if
%>

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。