获取当前网址

例如当前网址http://cs.sodddoo.com/news1/29109.html

curDomain = Request.ServerVariables("HTTP_X_ORIGINAL_HOST")   '当前域名：如：cs.sodddoo.com

Request.Headers("X-Rewrite-URL")  '当前域名后面的参数，例如/news1/29109.html
cur_url = "http://" & curDomain & Request.Headers("X-Rewrite-URL")  '当前网址，如：http://cs.sodddoo.com/news1/29109.html