<% dim temp1, temp2, temp3
temp1 = Request.ServerVariables("HTTP_HOST")
temp2 = Right(Request.ServerVariables("HTTP_HOST"),14) '其中14表示你的域名去掉前辍后剩下的字符数.如下面的 ".yaojerry.name" 不包括引号,一样是14个字符.
temp3 = Replace(temp1,temp2,"")
%>
<%if temp3 <> "www" and temp3 <> "blog" then
Response.Redirect "http://www.yaojerry.name/blog/blog.asp?name=" & temp3 %>
<%end if%>

存到inc目录下 test.asp (文件名可以随便取)
在index.asp文件的"<!--#include file="conn.asp"-->"后加上下面这句.
<!--#include file="inc/test.asp"-->

另外需要iis的服务器设一个空的http头

这是我现在能想出来的解决办法了 具体看