url问题

[lion_lh]

我的页的url是 http://localhost/xxx/aa.asp
我如何得到 http://localhost/xxx/ 这样的字符串，就是去掉aa.asp

[ygghost]

在你的iis中 右键属性里--默认文档--把aa.asp添加到里面并且放到首位 OK

[myxl]

<%Response.Write(Replace("http://localhost/xxx/aa.asp","aa.asp",""))%>

[yaozhg]

<%
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")

strtemp=left(strtemp,instrRev(strtemp,"/"))

GetUrl = strTemp
End Function
Response.write "当前路径为:"&GetUrl()
%>