Ô­ÎÊ£º
¼ÙÉèÒÔÇ°ÓиöÓòÃûΪ£ºhttp://www.abc.com/
ÏÖÔÚÒª¸ü»»Ò»¸öеģºhttp://www.123.com/

ÔõÑù²ÅÄÜÈÃhttp://www.abc.com/×Ô¶¯Ìøתµ½http://www.123.com/

ÎÒ˵µÄÌøתÊÇÔÚhttp://www.abc.com/´øÓвÎÊýµÄʱºò£¬±ÈÈç
http://www.abc.com/01/1.html ×Ô¶¯Ìøתµ½ http://www.123.com/01/1.html

Èç¹û¶¨ÒåÒ»¸ö404´íÎó£¬Õâ¸ö´úÂëÔõôд¡£

¸Ðл etangren
404.asp

Äã¾ÍÕâÑùд

CODE:[Copy to clipboard]<%
dim url
Private Function GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) 'È¡µÃµ±Ç°µØÖ·
M_ItemUrl = ""
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
If InStr(page,M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) &

"&"
End If
Next
end if
GetUrl = ScriptAddress & M_ItemUrl
End Function
%>
<%Response.Redirect "http://www.abc.com/"&Url&""%> ÌøתµÄÓòÃû