过期域名预定抢注

 找回密碼
 免费注册

大家幫我看下這段代碼

[複製鏈接]
發表於 2010-10-30 10:00:01 | 顯示全部樓層 |閱讀模式
懸賞5點點已解決
下面是一段判斷來路的ASP代碼,我這裡只能判斷baidu來的,現在需要滿足多個來路,請問怎麼寫?" V2 l1 h1 B3 |3 t2 t7 G7 \
比如果來路是baidu, google等多個,如果滿足其中的一個來路就跳轉到56.com否則就跳轉到youku.com
  1. <%
    # e2 a  ?6 l$ i8 A9 _' K
  2. '下面獲取來路域名" b1 Y# Z/ U# ~' o+ B/ h+ X" F
  3. url=request.ServerVariables("HTTP_REFERER")# w4 w4 g5 V% V/ K
  4. '下面處理來路域名
    6 A6 o3 Z+ Q! O$ n! H# p, x
  5. if url<>"" then  W+ \6 o5 Y: j( x3 o( W
  6. url=replace(url,"http://","")
      F; y% _# h) n2 H/ w9 C
  7. url=split(url,"/")(0)0 M- O, p0 {, {- t2 m# D, [
  8. end if
    % o5 c1 [6 }; L  E9 U5 z2 w/ `
  9. '下面是條件中的網址
    $ Y8 ~; g4 P( b. ~
  10.   K' R- h. Y  s9 O$ {6 ~" ]8 r" d
  11. if url="baidu.com" then
    8 R2 D. ~2 P1 V/ S0 d, P

  12. " h' Q7 J! _* s, x& k+ l
  13. Response.Redirect("http://56.com")
    3 P8 w8 b5 t: M' n6 i/ a
  14. end if
    ! Z9 \7 V8 z4 z  n' |7 r
  15. Response.Redirect("http://youku.com")$ z8 V% `  f3 [1 E  _4 r
  16. %>
    7 ], @' j: }" F5 r* h4 l
複製代碼
請大家幫幫忙看一下。
發表於 2010-10-30 10:00:02 | 顯示全部樓層
<%- X# |9 P/ h  ~0 U: {# Q# k

9 S0 I# ]' Z: u- g; t; E$ d'下面獲取來路域名
+ l+ s; X# V) k5 V$ m2 ?/ x& `2 Q: L* `% E  y
url=request.ServerVariables("HTTP_REFERER"): u9 _5 E7 T3 q& m, H

9 }# f: r( Q9 M6 \6 b0 r* D- b'下面處理來路域名7 T% I0 x; G) {' f2 {4 v0 q

9 t" r; b7 Z9 ~if url<>"" then+ Q7 m4 g: b  H, J- \! N/ X2 E+ p1 M
0 v' o+ F5 P9 y. U  h8 e9 I
url=replace(url,"http://","")4 w9 w- H% O! n

4 T; q) d9 b- Q1 V, T8 G  J7 ?* [url=split(url,"/")(0)
7 v0 u/ b; b- y0 \
# _" q; ?* P( g" X% Y2 [end if5 c: U; [2 l- x; x4 Q5 w0 E

, L% J- \$ E2 }5 T3 _5 m( O% V'下面是條件中的網址
/ t3 J3 F" C- j' s' \
1 r2 j5 Y+ L1 i; Q# n' E
- ~$ t! r+ a: J/ B0 {. {# \! f
$ V# A# G9 I+ H9 Wif url="baidu.com"  or  url="google.com"  or  url="qita.com"  then
. y5 q7 w: \& g+ e; r
# _3 X1 A" r- Q0 F& W
- F3 U: B' _& Q# L; ]3 q; \1 K8 {: ~' }6 e
Response.Redirect("http://56.com")' Z5 d* @9 }( L" n5 x; t+ W

4 Q: ~, Z9 ?: Iend if7 s  ^( |9 ?7 K/ z* G) B

2 N! F+ N; L& g! \- r0 hResponse.Redirect("http://youku.com")9 u) o4 D6 H# v  n0 N% G& D$ G4 L! f0 d
& ^1 z& S- [+ ?
%>
% o. ?* U3 ^7 o+ Z, U- K
, S$ G6 _# H' W0 v  p$ U8 P1 M+ S這樣不行嗎?
回復

使用道具 舉報

發表於 2010-10-30 11:26:08 | 顯示全部樓層
能稍微說詳細點嗎?9 n4 s- y. T: g$ `% Y& }
我是專門寫asp代碼的
回復

使用道具 舉報

發表於 2010-10-30 11:54:20 | 顯示全部樓層
If  url="baidu.com" Then/ Q, P! P  ]; L
//百度跳轉
# I" X: C: e6 E# S, JElse If  url="google.com" Then, C& U! d' e8 f7 E; C
  //gg來源跳轉9 U" W# d- e' N6 ~/ r
else' n, m/ @4 b4 `& ?, I: B3 {/ ^; ]  Y
//其它的跳轉) s/ K& d6 H# x% O: I* r( ?
End If9 n' t6 f3 y7 L( E+ O  `
! ~  Y$ j. ]' n! |, v, v

6 ?5 \: F7 G6 a5 e參考 if  用法
! x5 A# n. a) R7 Uhttp://www.w3schools.com/vbscript/vbscript_conditionals.asp

評分

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

查看全部評分

回復

使用道具 舉報

發表於 2010-10-30 12:00:57 | 顯示全部樓層
並且,你這個方法複雜了.
+ _* l* T& Y, P0 o# G& k
7 k2 y2 @$ z; W, zurl=Lcase(request.ServerVariables("HTTP_REFERER"))
6 {" D0 X  `: ~) {if Instr(url,"baidu.com")>0 then
+ ^( O) s1 P8 y* r! A//如果來源包含百度則跳轉某一地址
# Y: |6 G/ t9 o! H0 [; Ielse
1 N4 R7 j( {/ O//跳轉到另一地址
& v! p7 J" V+ B2 Aend if8 F1 \( S: ^5 o7 e8 p! n
, |+ Z, J5 P, m. J; p1 b+ W+ V, w* s
我已經有很多年沒用VBS的語法了,忘記的差不多了.給你參考資料看下吧.+ r' H) ^$ J$ H: n
/ [# c: c3 q1 L  S# v9 e
http://www.fzs8.net/asp/2007-06-10/4203.html7 v: f4 ]. w. g4 q" O9 h9 z9 G5 U! o0 [
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-7-2 12:01

By DZ X3.5

小黑屋

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