过期域名预定抢注

 找回密碼
 免费注册

大家幫我看下這段代碼

[複製鏈接]
發表於 2010-10-30 10:00:01 | 顯示全部樓層 |閱讀模式
懸賞5點點已解決
下面是一段判斷來路的ASP代碼,我這裡只能判斷baidu來的,現在需要滿足多個來路,請問怎麼寫?
5 q% y% T) a) P( r1 T2 M+ Z2 q比如果來路是baidu, google等多個,如果滿足其中的一個來路就跳轉到56.com否則就跳轉到youku.com
  1. <%
    0 N  r6 }5 u0 o* D
  2. '下面獲取來路域名, T( C) ]% J* W7 ]0 Z, A
  3. url=request.ServerVariables("HTTP_REFERER")
    ! y$ B9 P+ G' [$ T0 E& J
  4. '下面處理來路域名
    / p# M+ [* }" h
  5. if url<>"" then
    7 h8 Q/ ~* s$ x% P3 ?7 ]; |
  6. url=replace(url,"http://","")
    5 v7 ~: L* P$ ^
  7. url=split(url,"/")(0)1 p8 q9 V& ]8 u
  8. end if
    ' a6 `) m% R" G8 _+ }$ q, N
  9. '下面是條件中的網址8 i0 p- @& n9 `) w, S3 Q- z

  10. 8 Z  ?1 l4 _0 L% m2 q& G
  11. if url="baidu.com" then
    2 t8 z1 H( q$ T* F
  12. " M+ V+ u0 M  |' o5 B( g
  13. Response.Redirect("http://56.com")3 |7 c5 g/ S' T) V
  14. end if; j0 X1 r5 v9 b3 X1 E7 C0 e; f+ u" z
  15. Response.Redirect("http://youku.com")
    : a" _# P+ A( B2 ?# R
  16. %>
    , @$ a, |0 f6 W
複製代碼
請大家幫幫忙看一下。
發表於 2010-10-30 10:00:02 | 顯示全部樓層
<%
, \- H& |. k5 \! g6 V( ^
! \2 f4 l# Y9 Q- g' j/ c1 l. C'下面獲取來路域名) i6 W  \% W; {2 B. ]6 ]* r

, \% Y: L% `# s; j, L- Qurl=request.ServerVariables("HTTP_REFERER")
1 Q4 L4 V' e) X; a) u
: A2 ^5 O, Q2 w1 ]2 A( H'下面處理來路域名* r7 e, U+ e, a9 m6 H, O$ B

7 S% ]* R1 E% d+ K( @  _9 [if url<>"" then
, a/ |+ U% C6 B
+ R( [3 T+ Z- m* K5 w; E; ~: @url=replace(url,"http://","")
; A1 V+ s4 {& i9 _9 Q
, p$ ^$ G' J: O, u4 I1 furl=split(url,"/")(0)9 X6 e7 s7 A! a. G0 w5 K3 K
; v; g+ o+ M  M8 t
end if( q3 b( h9 V/ Z) u# V6 K9 j2 |

/ Q4 O# q3 F4 ^2 U'下面是條件中的網址6 C7 h* w# [* _4 r; l# J! w* S

7 M$ ]- K3 z7 A- }9 Y: V
3 A5 l8 V& d( c9 H( n; a! T! r9 [
, z) Z% o2 p" Y! f, J, D4 L2 e3 gif url="baidu.com"  or  url="google.com"  or  url="qita.com"  then
* }9 L1 M* p1 ~+ o9 B. c$ p+ o3 r1 n5 }. _) T  D5 e0 z

% d: y6 s7 ]# g
: v$ z3 q( L4 n1 \( K. t# h$ ?1 m  yResponse.Redirect("http://56.com")
! O: d3 M# r" m! `; b  y$ i
. i+ [8 @( O- U# ]; ?end if  L2 y$ x1 e+ [! r9 @& k* g

1 N2 l+ F3 `" y% b; C7 b3 e/ c; fResponse.Redirect("http://youku.com")
9 ]% d- E# x/ M5 p
/ q* |! p( p" f1 X. @- D  P%># |* J, m. g0 ]* n/ V
0 r/ f( c0 S- u  q
這樣不行嗎?
回復

使用道具 舉報

發表於 2010-10-30 11:26:08 | 顯示全部樓層
能稍微說詳細點嗎?4 W0 L  a0 R, m+ N' x. `
我是專門寫asp代碼的
回復

使用道具 舉報

發表於 2010-10-30 11:54:20 | 顯示全部樓層
If  url="baidu.com" Then9 Q! X. \3 A, r+ n  x
//百度跳轉4 F* O% b' }* |7 i# |# }
Else If  url="google.com" Then
" f; ^3 R; Y9 @5 ?1 ?  //gg來源跳轉
" q& ?3 l. \- k2 M+ {. J4 belse% Y2 D5 D4 d& I! m; m
//其它的跳轉% B- k" `9 u1 Q
End If% ?; m- _! t" V/ f% `& v

. ?. I) }9 H5 b, Y# g0 c5 O3 X' z# h/ M
參考 if  用法/ u6 r' `3 g( ]- k& f& M  F5 y+ M
http://www.w3schools.com/vbscript/vbscript_conditionals.asp

評分

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

查看全部評分

回復

使用道具 舉報

發表於 2010-10-30 12:00:57 | 顯示全部樓層
並且,你這個方法複雜了.& V* x5 H3 v: k: C/ x% R+ b9 \
$ V; M. d& }6 g5 F3 D
url=Lcase(request.ServerVariables("HTTP_REFERER"))/ L/ W. M# `; ~- t
if Instr(url,"baidu.com")>0 then; V; ]2 ^: P, Z# a/ I
//如果來源包含百度則跳轉某一地址/ ]3 \1 l( }( c) R% _6 y& Z! {
else
+ o1 h, c! e( s' v+ e! \) x//跳轉到另一地址& K* D! ~8 l, t) E
end if0 w& X6 b' k2 O% w8 G$ P( c
, `. b. P5 Z8 r) N: u
我已經有很多年沒用VBS的語法了,忘記的差不多了.給你參考資料看下吧.
, D# L5 H! }% f; ~7 k
7 I* R$ I. h. Hhttp://www.fzs8.net/asp/2007-06-10/4203.html6 J5 C( p/ Z( n$ q
http://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, 2025-5-5 08:05

By DZ X3.5

小黑屋

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