Question

我继承了一个经典的ASP应用程序。有各种各样的东西需要整理，但我被迫逐步做事（我不能对每个剧本进行大规模的改动）。

系统中有些地方有硬编码的网址。在升级之前必须更改某些脚本，以便将测试Web根名称更改为实时Web根名称。我正在寻找避免这种情况的方法（基本上以编程方式处理服务器）。

这并不困难。对Request（“SERVER_NAME”）和这类事情的简单检查：

appName = Request.ServerVariables("SCRIPT_NAME")
i = InStr(2, appName, "/")   'keep initial "/"
 If i > 0 Then
    appName = Left(appName, i)
End If

这在“随处可见”的脚本中可以解决这个问题。然后只需设置一个全局变量来保存完整的“http（s）：// server / app /”或MakeUrlAbsolute（）的函数，然后关闭。

然而，这对我来说有点怀疑。这不会更好地存储在应用程序级别吗？这表明在Global.asa中进行设置，例如：

Sub Application_OnStart()
    Application("WebRoot") = ...
End Sub

但现在我无法抓住SERVER_NAME，所以我减少了2个不同的Global.asa文件（每个环境一个）。

这是我唯一的选择吗？在Application_OnStart中的每个请求或硬代码上进行处理？也许使用Session_OnStart会是一种妥协。或者是否有一些聪明的技巧来访问Application_OnStart中的信息？也许人们会选择硬编码，因为Global.asa不会经常更改。

Answer 1

我的ADO Connection方法如下所示。

'Servername for Application Root Drive
Select Case Left(Request.ServerVariables("PATH_TRANSLATED"), 1)
    Case "c" strSrvr = "80.212.207.211"   'my remote server ip
    Case Else strSrvr = "(local)"         'local Sql instance (my project on D: drive)
End Select

strConn = "Driver={SQL Server};Server="& strSrvr &";uid=DBUSER;pwd=MYPASS;database=MYDATABASE"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(strConn)

使用经典ASP区分测试和生产的最佳方法

1 个答案: