经典 ASP 将输入绑定到变量

Question

我更喜欢 .Net，但我目前工作的网站有一些遗留的经典 ASP 页面。在其中一种形式中，我们有几个隐藏的输入，它们被设置为由页面开头的一些 VBScript 创建和设置的变量，如下所示：

<input name="referer" type="hidden" value="<%= oReferer %>" />

该变量使用以下 VBScript 设置：

<script type="text/vbscript" language="vbscript" runat="server">
        dim oReferer
        dim origReferer, arrRefer1, arrRefer2
        origReferer = "self"

        'response.Write("referer - " & Request.ServerVariables("HTTP_REFERER"))
        'response.End()
        if not Request.ServerVariables("HTTP_REFERER") = "" then 
            if not Request.ServerVariables("HTTP_COOKIE") = "" then
                if not len(Request.Cookies("OrigReferer")) > 0 then
                    arrRefer1 = split(Request.ServerVariables("HTTP_REFERER"),"//")
                    if UBound(arrRefer1) > 0 then
                        arrRefer2 = split(arrRefer1(1), "/")
                        if UBound(arrRefer2) > 0 then
                            origReferer = arrRefer2(0)
                        end if
                    end if
                    Response.Cookies("OrigReferer") = origReferer
                    Response.Cookies("OrigReferer").Expires = DateAdd("d", 120, Date())
                else
                    oReferer = Request.Cookies("OrigReferer")
                end if 
            else
                oReferer = "no cookies"
            end if
        else
            oReferer = "self"
        end if
<script>

这段代码大部分时间都可以正常工作。当我尝试在更新版本的表单中使用此代码时，我遇到了两个问题。首先，输入本身根本没有设置。我不知道为什么因为代码确实有一个默认值，所以它至少应该总是“自我”。第二个问题是，不是我编写的原始代码使用 来设置值。当我现在这样做时，我得到一个 VBScript 错误，“类型不匹配”。

就像我说的我是一个 .Net 人，在 .Net 中解决这个问题不是问题。我也不知道 Classic ASP，我很困惑。我很想改用.Net，但现在不能使用这种特殊的形式，所以任何帮助解决这个问题都会很棒。

Answer 1

<%
    dim oReferer
    dim origReferer, arrRefer1, arrRefer2
    origReferer = "self"

    if not Request.ServerVariables("HTTP_REFERER") = "" then 
        if not Request.ServerVariables("HTTP_COOKIE") = "" then
            if not len(Request.Cookies("OrigReferer")) > 0 then
                arrRefer1 = split(Request.ServerVariables("HTTP_REFERER"),"//")
                if UBound(arrRefer1) > 0 then
                    arrRefer2 = split(arrRefer1(1), "/")
                    if UBound(arrRefer2) > 0 then
                        origReferer = arrRefer2(0)
                    end if
                end if
                Response.Cookies("OrigReferer") = origReferer
                Response.Cookies("OrigReferer").Expires = DateAdd("d", 120, Date())

                ''// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                ''// The problems is that you are not 
                ''// setting the oReferer variable here
                ''// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

            else
                oReferer = Request.Cookies("OrigReferer")
            end if 
        else
            oReferer = "no cookies"
        end if
    else
        oReferer = "self"
    end if

    response.write "----------<br>"
    response.write "oReferer=" + oReferer
 %>