过期域名预定抢注

 找回密碼
 免费注册

大家幫我看下這段代碼

[複製鏈接]
發表於 2010-10-30 10:00:01 | 顯示全部樓層 |閱讀模式
懸賞5點點已解決
下面是一段判斷來路的ASP代碼,我這裡只能判斷baidu來的,現在需要滿足多個來路,請問怎麼寫?
* v7 x" s: [, O6 W8 _6 w比如果來路是baidu, google等多個,如果滿足其中的一個來路就跳轉到56.com否則就跳轉到youku.com
  1. <%
    1 Z1 p$ h9 X* |" k- v; e3 Q
  2. '下面獲取來路域名
    : p; d' V1 |5 W
  3. url=request.ServerVariables("HTTP_REFERER")
    : Z9 Y8 j- g( M3 b2 ]% r
  4. '下面處理來路域名$ [1 ?/ m" C* |" N( ?
  5. if url<>"" then+ u6 K6 L3 `" ]" A
  6. url=replace(url,"http://",""). n1 e2 e' g, l' F! J/ `4 H$ d: v
  7. url=split(url,"/")(0)
    * s6 p& y4 `' V2 Y+ R% ~" |
  8. end if9 n6 x8 I6 H) ?, [$ C3 J3 t* Q
  9. '下面是條件中的網址+ n' G6 i4 o3 o# U
  10.   j1 R' B( l+ f! ]. o7 o5 O* g
  11. if url="baidu.com" then- \: s' k4 X7 U. L3 I0 P/ ]

  12. ) O' x4 Q8 ?! W
  13. Response.Redirect("http://56.com")
    * ~! j7 i) e9 Y1 M6 U# |
  14. end if
    + e4 i6 Y1 D6 |6 }
  15. Response.Redirect("http://youku.com")3 `2 J8 h3 W; [6 q; |* X
  16. %>
    3 W* c6 |5 R5 ~* S$ ]
複製代碼
請大家幫幫忙看一下。
發表於 2010-10-30 10:00:02 | 顯示全部樓層
<%
, s7 b) ]' _6 |% G+ [, D" n4 x0 x; Y7 E9 K
'下面獲取來路域名
" e: A8 `+ C( q4 W/ Z3 B' Q& d8 p. l* W- C: u
url=request.ServerVariables("HTTP_REFERER")
+ S4 f- L$ K+ W  S* L2 g0 j+ T7 W1 i
'下面處理來路域名' C5 T& _  J% l: g  n6 }7 \
" M. O' s( g( y+ F
if url<>"" then
- k+ ^! ^  j9 V: w& k0 U! v0 Q$ W3 x" w3 j: J
url=replace(url,"http://","")
& _- \9 E3 u9 e$ q8 P# X. n- K* j& X2 V/ Z  ]6 S0 J6 _
url=split(url,"/")(0)' x( ?/ M, |% O% r4 o5 w) B$ \
# b' U$ \) l3 ^+ c% S
end if
. H- n( T, E, Q2 Z3 P# o+ F4 I- k) s2 L* e# U" B
'下面是條件中的網址) x% K  P) \6 `
8 ?% Q  `- t( S" N

; x- p+ [4 k) j$ y& |/ ^! G
  [* K6 Q5 o  q- Mif url="baidu.com"  or  url="google.com"  or  url="qita.com"  then/ R# H1 \6 {0 o0 T! ?2 l, y, l& D  K. V

5 x" O) b- H: `" z. O
3 G3 i# C, ]. ^* }
- J" j$ P4 z1 {  b. H: B/ z0 IResponse.Redirect("http://56.com")1 V, V' c9 i  b+ }
  s; S8 S3 F- y6 n9 g9 {. V
end if
) W! d7 f2 N; o: f& j1 B4 }) |) U' z7 G- _1 m
Response.Redirect("http://youku.com")
6 t) o; Q- _4 s7 y8 x( Z$ `. p( n. E0 m9 D8 v+ E
%>
; Z) J/ H, ~# ^# |9 d$ X# p/ R$ \& O/ Q  O: F
這樣不行嗎?
回復

使用道具 舉報

發表於 2010-10-30 11:26:08 | 顯示全部樓層
能稍微說詳細點嗎?: `; y* C6 c$ Q: w1 k) W
我是專門寫asp代碼的
回復

使用道具 舉報

發表於 2010-10-30 11:54:20 | 顯示全部樓層
If  url="baidu.com" Then
6 y! [& A6 m+ f8 ]# t//百度跳轉7 H( {7 \; X8 i
Else If  url="google.com" Then, B  E- u- \$ t9 l5 w0 x6 ?
  //gg來源跳轉6 S: ~0 b3 w8 m7 Y' U0 ~( x
else
; o, O: o6 r  Y- A8 v, \//其它的跳轉2 q1 n5 ]2 f! v  @0 z5 X
End If
' }# y7 P4 S$ p1 m8 t5 |9 u1 m/ V
- a& h: `: ^- K
參考 if  用法
5 P+ M) B: @, D- _' S; e1 _http://www.w3schools.com/vbscript/vbscript_conditionals.asp

評分

參與人數 1點點 +1 收起 理由
tshaozhi + 1 谢谢你的回答

查看全部評分

回復

使用道具 舉報

發表於 2010-10-30 12:00:57 | 顯示全部樓層
並且,你這個方法複雜了.6 m) _0 t3 G: k6 u

& G* s3 Y& l7 T8 b  Furl=Lcase(request.ServerVariables("HTTP_REFERER"))
. ]0 j' K8 t: y% g8 p8 eif Instr(url,"baidu.com")>0 then
& j% z: H$ t8 ?7 W" I3 g//如果來源包含百度則跳轉某一地址1 ?) R2 w5 ?, [% e2 Q. h  K
else
( t( E0 o- D" {& Q. _//跳轉到另一地址* Q/ a$ @, h" i$ i/ E6 x
end if$ S4 Z! I5 d. [' b4 P) ?9 F
$ e, }6 ^6 m: O7 \& p  H+ Y
我已經有很多年沒用VBS的語法了,忘記的差不多了.給你參考資料看下吧.
- j& I) t; V: f9 g6 i* b$ ]3 U6 J% Z* p% i
http://www.fzs8.net/asp/2007-06-10/4203.html
# n- B, h' m# T) q9 E+ s5 }: Chttp://www.cnblogs.com/glt3260053/archive/2009/02/18/1393310.html

評分

參與人數 1點點 +1 收起 理由
tshaozhi + 1 谢谢你的回答

查看全部評分

回復

使用道具 舉報

發表於 2010-10-30 22:11:56 | 顯示全部樓層
沒看懂。但是還是要頂
回復

使用道具 舉報

發表於 2010-10-31 11:42:57 | 顯示全部樓層
暈,解決了,沒趕上
回復

使用道具 舉報

發表於 2010-11-1 11:04:32 | 顯示全部樓層
進來學習下
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 免费注册

本版積分規則

點基

GMT+8, 2026-7-18 23:18

By DZ X3.5

小黑屋

快速回復 返回頂部 返回列表