%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=www.jb51.net
fromDomain="kanshule.com"
curDomain=Request.ServerVariables("HTTP_HOST")

if instr(curDomain,fromDomain)>0 then
q=Request.ServerVariables("QUERY_STRING")
p=Request.ServerVariables("URL")
url="http://"toDomainp"?furl=kanshule.com"
if q>"" then url=url""q

Response.Status="301 Moved Permanently"
Response.AddHeader "Location",url
Response.end()
End If
%>