获取当前网址
例如当前网址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