変数への従来のASPバインド入力

Question

私はもっと.Netの人ですが、私が現在取り組んでいるサイトには、いくつかの従来のClassic 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> 

このコードはほとんどの場合、大丈夫です。このコードを新しいバージョンのフォームで使用しようとすると、2つの問題が発生します。まず、入力自体はまったく設定されません。私はコードがデフォルトを持っているので、なぜそれが常に "自己"であるべきなのかは分かりません。 2番目の問題は、私が書いたのではなく元のコードが<％oReferer％>を使って値を設定していたことです。私がこれを行うと、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 
%>