asp中如何获取当前地址路径并显示在网中，(新问题，请版主显示!)

问题描述：

这个问题昨天我提交过了，付出了80分，问题却没有给显示，没有违规啊，而且是个不同的新问题，我的积分，555555~~~~~~~!我这次再倾家荡产提此问，求版主把我的问题贴上去：
比如我的网址是“http://my.phome.cn/sabliyou/asdf.asp”，
如何用变量获取“http://my.phome.cm/sabliyou/”显示在网页中，
请问如何编写这个“asdf.asp”文件？
注：要获取完全符合第二个双引号中的内容。

问题解答：

Response.write "http://" & Request.ServerVariables("HTTP_HOST") & Mid(Request.ServerVariables("URL"),1,InStrRev(Request.ServerVariables("URL"),"/"))

Function GetCurrentUrl()
Dim sCurrentUrl,M_ItemUrl,M_item
sCurrentUrl = CStr(Request.ServerVariables("SCRIPT_NAME"))
M_ItemUrl = ""
If (Request.QueryString <> "") Then
sCurrentUrl = sCurrentUrl & "?"
For Each M_item In Request.QueryString
If InStr(sCurrentUrl,M_Item) = 0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""& M_Item &"")) & "&"
End If
Next
Else
sCurrentUrl = sCurrentUrl & "?"
End If
GetCurrentUrl = sCurrentUrl & Left(M_ItemUrl,Len(M_ItemUrl)-1)
End Function