[原创]使用404自定义错误页实现静态文件映射

<%
on Error Resume Next
    dim sUrl,s1,s2,s3,s4
    sUrl = Split(Request.ServerVariables("QUERY_STRING"),"/")(4)
    sUrl = Split(sUrl,".")(0)
    sUrl = Split(sUrl,"_")
    s1 = sUrl(0)
    s2 = sUrl(1)
        Server.execute(s1 & "/" & s1 & "_" & s2 & ".asp")
if Err then
    Err.clear
    Response.write "您请求的文件未找到！点<a href='/'>这里</a>返回首页。"
    Response.End
End if
%>