Dim str_referer As String = Request.ServerVariables("HTTP_REFERER")
If str_referer <> "" Then
'先將 http:// 取代 成空白
str_referer = Replace(str_referer, "http://", "")
Response.Write("你來自的主站 http://" & Microsoft.VisualBasic.Left(str_referer, InStr(str_referer, "/")))
Response.Write("
你來自的網址 " & Request.ServerVariables("HTTP_REFERER"))
End If
沒有留言:
張貼留言