在ASP中如何获取地址栏字段？

<%

'str=request.ServerVariables("URL")'获取当前面的地址栏地址假如你的http://www.aaa.com/20070519/ 在当前页面
function mystr(str,str2)'写一个函数str是指所有的字符串，str2是你开始截取的字符
dim i
i=instr(str,str2)+len(str2)
mystr=mid(str,i,8)
end function
dim str,s,c,d
str="http://www.aaa.com/20070519/"
md=mystr(str,"com/")
s=mid(md,1,4)
c=mid(md,5,2)
d=mid(md,7,2)
response.Write "第一个取出的是"&s&"<br>"&"第二个取出的是"&c&"<br>"&"第三个取出的是"&d
%>