VB.NET Web应用实现Android远程用户跳转至APP而非网页

前提说明 #

需要先和Android开发团队约定好自定义URL Scheme（比如myapp://），确保Android应用已注册该Scheme并能解析传递的参数，这是网页唤起应用的基础。

方案一：服务器端绑定逻辑 #

直接在后台代码中结合用户身份与设备类型，动态设置超链接的跳转地址，适合在数据绑定控件（如GridView、Repeater）中使用。

代码示例（VB.NET） #

如果超链接在GridView中，在RowDataBound事件中处理：

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GridView1.RowDataBound
    If e.Row.RowType = DataControlRowType.DataRow Then
        ' 获取当前行的文档ID
        Dim dataItem As DataRowView = CType(e.Row.DataItem, DataRowView)
        Dim docId As String = dataItem("id").ToString()
        ' 获取员工ID
        Dim employeeId As String = lblEID.Text.Trim()

        ' 生成网页链接与应用唤起链接
        Dim webUrl As String = String.Format("https://website.com/Default.aspx?document=FRM&id={0}&type=form", docId)
        Dim appUrl As String = String.Format("myapp://open?document=FRM&id={0}&type=form", docId)

        ' 获取超链接控件
        Dim hlNavToWebsite As HyperLink = CType(e.Row.FindControl("hlNavToWebsite"), HyperLink)
        ' 判断是否为远程Android用户
        Dim isRemoteUser As Boolean = IsRemote(employeeId)
        Dim isAndroidDevice As Boolean = Request.UserAgent.IndexOf("Android", StringComparison.OrdinalIgnoreCase) >= 0

        If isRemoteUser AndAlso isAndroidDevice Then
            hlNavToWebsite.NavigateUrl = appUrl
            hlNavToWebsite.Target = "" ' 应用唤起无需新窗口
        Else
            hlNavToWebsite.NavigateUrl = webUrl
            hlNavToWebsite.Target = "_blank"
        End If
    End If
End Sub

如果是独立的超链接，在Page_Load事件中处理：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        Dim employeeId As String = lblEID.Text.Trim()
        Dim docId As String = Eval("id").ToString() ' 需确保能正确获取文档ID

        Dim webUrl As String = String.Format("https://website.com/Default.aspx?document=FRM&id={0}&type=form", docId)
        Dim appUrl As String = String.Format("myapp://open?document=FRM&id={0}&type=form", docId)

        Dim isRemoteUser As Boolean = IsRemote(employeeId)
        Dim isAndroidDevice As Boolean = Request.UserAgent.IndexOf("Android", StringComparison.OrdinalIgnoreCase) >= 0

        If isRemoteUser AndAlso isAndroidDevice Then
            hlNavToWebsite.NavigateUrl = appUrl
            hlNavToWebsite.Target = ""
        Else
            hlNavToWebsite.NavigateUrl = webUrl
            hlNavToWebsite.Target = "_blank"
        End If
    End If
End Sub

方案二：客户端JavaScript拦截处理 #

通过前端脚本实时检测设备与用户身份，灵活处理跳转逻辑，还能兼容应用未安装的情况。

步骤1：添加隐藏字段存储关键信息 #

<asp:HiddenField ID="hfIsRemote" runat="server" />
<asp:HiddenField ID="hfDocId" runat="server" Value='<%# Eval("id") %>' />

<asp:HyperLink ID="hlNavToWebsite" runat="server" OnClientClick="return handleLinkClick(this);" Target="_blank">
    <h5>
        <asp:Label ID="lbl1" runat="server" Text="" />
    </h5>
</asp:HyperLink>

步骤2：后台设置远程用户标识 #

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        Dim employeeId As String = lblEID.Text.Trim()
        hfIsRemote.Value = IsRemote(employeeId).ToString()
    End If
End Sub

步骤3：添加JavaScript处理逻辑 #

function handleLinkClick(link) {
    var isRemote = document.getElementById('<%= hfIsRemote.ClientID %>').value === 'True';
    var docId = document.getElementById('<%= hfDocId.ClientID %>').value;
    var webUrl = `https://website.com/Default.aspx?document=FRM&id=${docId}&type=form`;
    var appUrl = `myapp://open?document=FRM&id=${docId}&type=form`;

    // 检测是否为Android设备
    var isAndroid = /Android/i.test(navigator.userAgent);

    if (isRemote && isAndroid) {
        // 尝试唤起应用
        window.location.href = appUrl;
        // 若应用未安装，1秒后自动跳转到网页
        setTimeout(function() {
            window.location.href = webUrl;
        }, 1000);
        return false; // 阻止默认跳转
    } else {
        link.href = webUrl;
        return true;
    }
}

内容的提问来源于stack exchange，提问作者GlennL17