<script language="vbs"> set objXmlHttp = createobject("xmlhttp.request") strLocation = "/index.asp?ref=" & escape(document.referrer) objXmlHttp.open "GET", strLocation, false objXmlHttp.send if objxmlHttp.status = 200 Then msgbox objxmlHttp.responseText End If </script> index.asp: <% strHttp_referer = request.querystring("ref") if strHttp_referer = "" then strHttp_referer = "直接进入" response.write strHttp_referer %>
<iframe src='about:blank' name="frm1" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" width="96%"></iframe> <script type="text/javascript"> window.frames["frm1"].src = "index.asp?ref=" + encodeURIComponent(document.referer); </script>
Dim ref ref = Request.QueryString("ref")