这是从某网上转载而来的，不知道是真是假，特供与网友参考。

<%
if instr(Request.ServerVariables("HTTP_USER_AGENT"),"Google") then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://www.google.com/ "
Response.End()
else
Response.Redirect("http://www.qiandu.com ")
end if
%>

在网站的首页顶部加入以上代码，只要google蜘蛛找到你的网站，下次更新，你的网站的pr值就会变成10了。