asp澶氫釜缃戠珯

1.棣栧厛浣犵殑铏氭嫙涓绘満瑕佽兘鏀鎸佺粦瀹氬氫釜鍩熷悕

2.鍦╥ndex.asp涓鏀惧叆涓娈典唬鐮佺敤浠ュ垽鏂鍩熷悕鍜岃浆鍚戝埌瀛愮洰褰

<%

Dim StrDomain

StrDomain=Request.ServerVariables("SERVER_NAME")

'鑾峰緱鍖呭惈鍩熷悕鐨勫瓧绗︿覆

select case StrDomain

case " http://www.zjjv.com/ "

Response.redirect " ht tp://http://www.zjjv.com//aaa/index.asp "

case " http://www.zjjv.com/ "

Response.redirect " ht tp://http://www.zjjv.com//bbb/index.asp "

case else

Response.write "鏈鐭ラ敊璇"

end select

%>

鑺卞勾璁颁簨: ht tp://blog.sina.com.cn/jieeeee