一個二級玉米實現最基本的例子

<% 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頭

這是我現在能想出來的解決辦法了 具體看