今天刚找到的，来点分分吧

找到conn.asp中<%后面加

Dim dm,sn
dm=Request.ServerVariables("Server_name") '获取域名
if lcase(left(dm,3))<>"www" then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "http://www.baidu.com"
Response.End
end if