写在top页、conn页之类的共通文件中……
<% host = Request.ServerVariables("SERVER_NAME") if Lcase(host)="xxx.com" then aa = Request.ServerVariables("SCRIPT_NAME") bb = Request.ServerVariables("QUERY_STRING") if bb<>"" then response.redirect "http://www.xxx.com" & aa & "?" & bb else response.redirect "http://www.xxx.com" & aa end if end if %>
没加端口的判断,比如xxx.com:8080,这个8080…… 网址最后如果有锚点,如xxx.com/aaa/bb.asp#aa,锚点会丢失的。
一般用用还是凑合的。
|