inc/Checkpost.asp

(完整代码) 383B

<%
Dim Server_v1,Server_v2
Chkpost=False
Server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
Server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(Server_v1,8,Len(Server_v2))<>Server_v2 Then
Chkpost=False
Else
Chkpost=True
End If
If Chkpost=False Then
Response.Write "对不起,为了系统安全,不允许直接输入地址访问本系统的后台管理页面"
Response.End
End If
%> 

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

AI 解读 AI

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

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