0

我正在尝试编写单个脚本源与不同数据库通信的小脚本，但数据库名称来自子域名。目前我做了以下测试并遇到问题，无法自行修复。问题是，当一个用户在他们的浏览器中打开许多子域选项卡时，90 秒或 2 分钟，第一个请求的响应将与另一个所有请求的响应相同。

例如网址：

http://user1.domains.com/subdomaintest.asp

https://user1.domains.com/subdomaintest.asp

http://user2.domains.com/subdomaintest.asp

http://user3.domains.com/subdomaintest.asp

http://user4.domains.com/subdomaintest.asp

http://user5.domains.com/subdomaintest.asp

首先我打开http://user1.domains.com/subdomaintest.asp然后打开http://user2.domains.com/subdomaintest.asp我得到了相同的响应 h1text(user1)，这是意料之外的。它必须以 user2 的身份响应 h1text。假设我在 2 分钟后打开第二个 url，然后响应 user2，这没关系。GUID 也相同，似乎与响应相同。

我想要的是，响应必须始终依赖于子域名，而不是 2 分钟后。如果这是 IIS 问题，它是什么问题，我可以在哪里更改？还如何将 GUID 实现到浏览器选项卡和/或会话中？

这是代码：

'ServerName = Request.ServerVariables("HTTP_HOST")
ServerName = Request.ServerVariables("SERVER_NAME")
arrSplitted = Split(ServerName, ".")
SubDomain = arrSplitted(0)
'response.write(SubDomain)
response.write "<h1>" & SubDomain & "</h1>"
Response.Write "<h1>"& CreateGuid() &"</h1>"
Function CreateGuid()
    CreateGuid = Mid(CreateObject("Scriptlet.TypeLib").Guid,2,36)
End Function

我对 HTTP HEADER 做了很多阅读，并找出了 Request.ServerVariables("SERVER_NAME") 和 Request.ServerVariables("HTTP_HOST") 的区别。

response.write Request.ServerVariables("SERVER_NAME")
response.write Request.ServerVariables("HTTP_HOST")

但这对我没有帮助。我也尝试过响应cookie，但它是一样的。似乎 IIS 不在乎我从不同的子域请求 2 分钟。这是为什么？

关于服务器：IIS10，sessionstate false（我没用），64bit。相关的任何信息你可以问我。

任何人帮助我，非常感谢你提前！请帮忙！

4

2 回答 2

2

恕我直言，你几乎做对了一切

但是，我想你弄乱了位置。您只需要检查具有索引的第一级子域UBound(X) - 1 

<%
  Dim LServerName, LNames, LCycle
  LServerName = Request.ServerVariables("SERVER_NAME")

  Response.Write "<br>Full server name: " & LServerName

  If LServerName <> "" Then
    LNames = Split(LServerName, ".")

    For LCycle = LBound(LNames) To UBound(LNames)
      Response.Write "<br>Level #" & LCycle & ": " & LNames(LCycle)
    Next

    Response.Write "<br>UBound: " & UBound(LNames)

    If UBound(LNames) > 0 Then
      Response.Write "<br>Top level domain is: " & LNames(UBound(LNames))
      Response.Write "<br>1st level subdomain is: " & LNames(UBound(LNames) - 1)
    End If 

    If UBound(LNames) > 2 Then
      Response.Write "<br>2nd level subdomain is: " & LNames(UBound(LNames) - 2)
      Response.Write "<br>3rd level subdomain is: " & LNames(UBound(LNames) - 3)
    End If
  End If
%>
于 2016-08-03T08:01:33.953 回答
0

我自己发现了问题。

网络服务器是 iis 10，它支持通配符出价，我在网站上使用了许多 80 和 443 出价，包括通配符子域和实时网站。一切都在一个文件夹中，网站有一个应用程序池和一些其他配置。

问题是会话。

我读了这么多文章，寻找解决方案，它们都不起作用。然后我确定这是会话问题并尝试使用不同的网站进行测试。是的，为测试创建了不同的应用程序池和网站。经过测试，一切正常。

问题出在会话中，而不是代码中。

于 2016-08-05T08:34:19.430 回答