过期域名预定抢注

 找回密碼
 免费注册

大家幫我看下這段代碼

[複製鏈接]
發表於 2010-10-30 10:00:01 | 顯示全部樓層 |閱讀模式
懸賞5點點已解決
下面是一段判斷來路的ASP代碼,我這裡只能判斷baidu來的,現在需要滿足多個來路,請問怎麼寫?
% O' D8 m+ h  v3 {1 U/ Z6 ^+ g比如果來路是baidu, google等多個,如果滿足其中的一個來路就跳轉到56.com否則就跳轉到youku.com
  1. <%
      X5 Q+ v5 n1 w9 N3 y
  2. '下面獲取來路域名
    ; Z$ z0 H* w! G6 p
  3. url=request.ServerVariables("HTTP_REFERER")
    , Y8 B1 x0 |, t
  4. '下面處理來路域名$ G2 Z$ v. f# e9 e7 i" ~
  5. if url<>"" then5 \- D( _) [, e% e9 H. N
  6. url=replace(url,"http://","")1 Z/ _5 P7 h' P& K. ^8 D( \
  7. url=split(url,"/")(0)8 C: e1 O8 \8 ]  [! |, T
  8. end if
    1 P* ^1 {: W# m7 i9 U0 b4 ?, L
  9. '下面是條件中的網址
    $ l5 P$ {) {( h' C9 @1 z3 |! p  ?
  10.   G: X8 U  f& ~/ I& o  e# \& E
  11. if url="baidu.com" then
    % T8 p! p% B3 z9 D7 }  V3 B) y

  12. % T% c+ [; @( n2 L: Z5 Z1 t' {  l) L
  13. Response.Redirect("http://56.com")
    / \/ H7 l, K9 B" y- q
  14. end if
    6 [# R3 @+ a1 F2 K
  15. Response.Redirect("http://youku.com")
    0 d* s$ {$ T* D! F' ?9 E
  16. %>, f& q; q5 u0 s) p9 ~8 `! B
複製代碼
請大家幫幫忙看一下。
發表於 2010-10-30 10:00:02 | 顯示全部樓層
<%3 q2 j4 _( O( {4 ~
  R2 A, B/ F5 J3 d" q4 o1 Y+ s' ?
'下面獲取來路域名0 |6 [0 n+ C  d4 v4 E) d, l1 b9 ?  e
' G9 F+ `3 u1 ]
url=request.ServerVariables("HTTP_REFERER")
. F. a# d* b9 _) ~. j) X* z0 o+ @, L9 Z
'下面處理來路域名
0 q  w0 G2 o- L* ]* t: U  N# M( o- b- o  ^4 y" ]- i
if url<>"" then
$ T5 ^: i! m( D# s! r3 G4 m, j1 A2 j- _8 U# A/ u
url=replace(url,"http://","")
' x" t. s5 y8 z0 J! _+ n
: B9 _9 t% B. Z! Y0 furl=split(url,"/")(0)
: c% m! _7 S9 j/ u! K  R( k6 D
+ |( W" V' v0 O* M7 Hend if
6 N0 e$ h9 a( u. Q  y1 ?$ Y' D! G) e* ?0 y/ S
'下面是條件中的網址
: P9 [( \' a/ o3 K* d1 R, R  D6 A& {5 x6 p' _
1 I: s& `2 b7 _! i' J

# C7 p0 e  B, ~& f& Dif url="baidu.com"  or  url="google.com"  or  url="qita.com"  then
( [5 K, f; i! n0 F4 ?. x  Z( o# n% H9 m# _. G9 }* Y9 q. u: T

# s, Z5 Q9 R  e$ K  K5 D: w! E0 T) @0 c4 |1 j% }3 F9 n. y
Response.Redirect("http://56.com")
6 ~4 r2 v6 {' Z1 X- U! ^2 b1 X
- s4 b8 t# |2 L: I6 |/ Rend if
) T* X" Z/ @( T+ o) Y! a2 j
; v- s2 C$ {5 I$ V) Z- {: _Response.Redirect("http://youku.com")" |, c9 R; {; s+ I  b; C! a3 x6 @
) z% M$ q. W) K. a5 b  X' i
%>
; N* S! s- [1 x0 Z8 b6 P1 B. s- u3 a. j; n/ w
這樣不行嗎?
回復

使用道具 舉報

發表於 2010-10-30 11:26:08 | 顯示全部樓層
能稍微說詳細點嗎?6 @4 B  y1 A# T3 F- B# m  o
我是專門寫asp代碼的
回復

使用道具 舉報

發表於 2010-10-30 11:54:20 | 顯示全部樓層
If  url="baidu.com" Then2 g5 u" V5 R* y# @9 B
//百度跳轉
$ W! }: E) l) E' n* qElse If  url="google.com" Then
" ~+ j7 i$ W( e' ~" q  //gg來源跳轉" @& v, \. C8 {2 k8 c! _
else
4 F6 ^2 j8 ]7 d, w; [$ X//其它的跳轉
: u; U9 G  [" A; {  h8 D2 CEnd If: \# Y2 u- k; q" Q' d( [8 g

+ C$ a  r* _* j8 W+ m
( j  }3 g, y- f$ Y$ F4 ]參考 if  用法
+ [5 V5 @" }+ y: |/ a! S# g& [( o4 N: khttp://www.w3schools.com/vbscript/vbscript_conditionals.asp

評分

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

查看全部評分

回復

使用道具 舉報

發表於 2010-10-30 12:00:57 | 顯示全部樓層
並且,你這個方法複雜了.
$ b; {( ?) g* S2 S: T' I* N; I* w! ~& L( O7 i. I; }, Z
url=Lcase(request.ServerVariables("HTTP_REFERER"))
/ I( d5 o8 N3 X9 x; [1 @4 nif Instr(url,"baidu.com")>0 then9 ~, J) N3 n% x1 M" o
//如果來源包含百度則跳轉某一地址6 |# |* K# p, x' p8 x5 H
else
2 C- U( x7 s' f" e% D//跳轉到另一地址
5 ]3 E1 c6 c" t) B, M; G+ Y6 H) j1 c8 mend if# y# @/ k, ^$ p" N& e: K3 v" {

% y6 x) W4 P$ U4 h我已經有很多年沒用VBS的語法了,忘記的差不多了.給你參考資料看下吧.
3 O7 Q7 s, i$ E- d/ ^+ I: F! E2 h- S* X& c/ i
http://www.fzs8.net/asp/2007-06-10/4203.html
0 q: l( g1 \5 L1 K  K2 n' ?+ `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 | 顯示全部樓層
進來學習下
回復

使用道具 舉報

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

本版積分規則

过期高净值品牌域名预定抢注

4um點基跨境網編創業社區

GMT+8, 2024-11-24 03:56

By DZ X3.5

小黑屋

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