大家幫我看下這段代碼

下面是一段判斷來路的ASP代碼，我這裡只能判斷baidu來的，現在需要滿足多個來路，請問怎麼寫？
比如果來路是baidu, google等多個，如果滿足其中的一個來路就跳轉到56.com否則就跳轉到youku.com

1. <%
   
2. '下面獲取來路域名
   
3. url=request.ServerVariables("HTTP_REFERER")
   
4. '下面處理來路域名
   
5. if url<>"" then
   
6. url=replace(url,"http://","")
   ) E/ i1 P/ W: A/ C% {' W
7. url=split(url,"/")(0)
   
8. end if
   8 L# B7 Y% J  ^" I& ~1 V
9. '下面是條件中的網址
   2 K, R( Y4 c4 l: {1 Y; T  @
10. 
    ! f  ^, r+ `/ p4 o8 @. D5 d  U
11. if url="baidu.com" then
    & {( ?6 U) ]2 E) r8 F+ r
12. 
    8 K$ |8 b! n3 F( W, h! q5 Z% w) H5 w
13. Response.Redirect("http://56.com")
    
14. end if
    / q+ V5 S/ k/ A* X, p0 U
15. Response.Redirect("http://youku.com")
    
16. %>
    

複製代碼

請大家幫幫忙看一下。

<%
* L0 t" R' E; Z# k7 j+ V# o
'下面獲取來路域名

3 J. E, [# u/ f. P1 {" |url=request.ServerVariables("HTTP_REFERER")

'下面處理來路域名

if url<>"" then
# k4 T) D; ^" k# e
& }; _+ T+ t/ U! x$ u! {+ T# Qurl=replace(url,"http://","")

6 J' W) x" m0 ^) k1 _; Wurl=split(url,"/")(0)
% h5 }* Y: n! }( p4 S4 {; o. _) U
5 A8 U2 O- }+ D8 j. ~' P" ?: I) k% wend if
6 p, Z- Q, X- @6 S
'下面是條件中的網址
" t' P" L" F* i9 _
5 s. R" h+ \5 [9 D

if url="baidu.com"  or  url="google.com"  or  url="qita.com"  then



" [' K: B2 n$ F' O  A8 gResponse.Redirect("http://56.com")

end if
0 \1 O$ d  y( o/ T% [8 j
9 A  ~8 M& ~' c6 H+ KResponse.Redirect("http://youku.com")
3 W8 e  t  f# A! r) H
%>

這樣不行嗎？

能稍微說詳細點嗎？
' {& w5 M  F2 [! J. i/ ?! I) H) \. z, N我是專門寫asp代碼的

If  url="baidu.com" Then
+ W6 \7 Y3 W8 G  e6 S. W//百度跳轉
Else If  url="google.com" Then
" m8 B( f: k8 l) T2 g; J* I  //gg來源跳轉
* |9 `0 _' j- J  o" j: K2 telse
//其它的跳轉
End If

4 X& p- ~' b3 n1 g8 N! G
參考 if  用法
' @" P0 q3 `8 Q' w& g1 Yhttp://www.w3schools.com/vbscript/vbscript_conditionals.asp

並且,你這個方法複雜了.
( o6 k4 [: E/ q" z. x
url=Lcase(request.ServerVariables("HTTP_REFERER"))
if Instr(url,"baidu.com")>0 then
//如果來源包含百度則跳轉某一地址
3 K; l2 o' Z3 e9 s! {. Welse
0 }+ C2 X1 u/ e- Z/ O  u" p//跳轉到另一地址
5 ?$ b6 {2 m/ N1 Hend if

/ ]$ l( e8 K( g; v  Q( l, v我已經有很多年沒用VBS的語法了,忘記的差不多了.給你參考資料看下吧.
7 Q1 M+ W- U# x" K2 B( u2 W
http://www.fzs8.net/asp/2007-06-10/4203.html
* \! W) b) u' C/ [http://www.cnblogs.com/glt3260053/archive/2009/02/18/1393310.html

沒看懂。但是還是要頂

暈，解決了，沒趕上

進來學習下