如何在Classic ASP应用中识别用户登录的物理设备及门店位置？

结合你的场景（公司内部用户、Edge/Chrome浏览器、门店独立网络），以下是几种可行的方案，替代不安全的本地计算机名读取方式：

1. 门店IP段匹配（最可靠） #

每个实体门店的内网/出口IP通常是固定且独立的，你可以提前收集各门店的IP段（比如192.168.1.0/24对应门店A，192.168.2.0/24对应门店B），录入数据库。用户登录时，通过Classic ASP获取其访问IP，匹配到对应的门店：

' 获取用户真实IP（处理代理情况）
Function GetUserIP()
    Dim ip
    ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If ip = "" Then
        ip = Request.ServerVariables("REMOTE_ADDR")
    End If
    GetUserIP = ip
End Function

' 示例：根据IP匹配门店
Dim userIP, storeID
userIP = GetUserIP()
' 这里替换为数据库查询逻辑，根据IP段获取对应门店ID
Select Case Left(userIP, 10)
    Case "192.168.1."
        storeID = "Store_A"
    Case "192.168.2."
        storeID = "Store_B"
    ' 其他门店规则...
End Select

优势：无需用户操作，准确率高，适合公司内部固定网络环境。

2. 设备指纹+门店绑定 #

通过收集浏览器的特征信息生成设备指纹，提前将门店内的设备指纹与门店关联，用户登录时匹配指纹获取门店：

步骤1：前端收集设备特征（JS） #

在登录页面加入JS代码，收集浏览器UA、屏幕信息、时区等，提交到服务器：

<script>
const deviceFingerprint = [
    navigator.userAgent,
    screen.width + "x" + screen.height,
    Intl.DateTimeFormat().resolvedOptions().timeZone,
    navigator.language
].join("|");
// 将指纹隐藏在表单中提交
document.getElementById("loginForm").innerHTML += '<input type="hidden" name="deviceFingerprint" value="' + deviceFingerprint + '">';
</script>

步骤2：后端处理（Classic ASP） #

Dim deviceFP, storeID
deviceFP = Request.Form("deviceFingerprint")
' 查询数据库，匹配指纹对应的门店（需提前录入门店设备指纹）
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT store_id FROM device_store_map WHERE fingerprint = '" & Replace(deviceFP, "'", "''") & "'", conn
If Not rs.EOF Then
    storeID = rs("store_id")
Else
    ' 指纹未匹配时，可提示用户选择门店并绑定
    Response.Redirect "select_store.asp?fp=" & Server.URLEncode(deviceFP)
End If
rs.Close
Set rs = Nothing

优势：即使用户跨门店办公，设备绑定的门店信息依然有效；缺点：指纹可能因浏览器更新变化，需要允许用户重新绑定。

3. 持久化Cookie绑定（最简单） #

用户首次登录时，让其选择当前所在门店，然后生成一个持久化Cookie绑定设备与门店，后续登录自动识别：

' 首次登录选择门店后设置Cookie
If Request.Form("selectedStore") <> "" Then
    Dim selectedStore
    selectedStore = Request.Form("selectedStore")
    Response.Cookies("StoreBinding") = selectedStore
    ' 设置Cookie有效期1年
    Response.Cookies("StoreBinding").Expires = DateAdd("yyyy", 1, Now())
    ' 绑定后跳转至系统首页
    Response.Redirect "home.asp"
End If

' 后续登录读取Cookie
Dim storeID
storeID = Request.Cookies("StoreBinding")
If storeID = "" Then
    ' Cookie不存在时，提示用户选择门店
    Response.Redirect "select_store.asp"
End If

优势：实现简单，用户体验好；缺点：Cookie被清除后需要重新选择，可结合IP段方案做 fallback。

不推荐的方案说明 #

读取本地计算机名的方式不可行：现代Edge/Chrome浏览器已禁用ActiveX等可读取本地系统信息的接口，且该方式需要用户授予高权限，存在安全风险，同时计算机名可被伪造，无法保证准确性。

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