兽性总裁的爱奴,好看的课外书

主頁 > 知識庫 > DefiniteUrl asp將相對地址轉(zhuǎn)換為絕對地址的代碼

DefiniteUrl asp將相對地址轉(zhuǎn)換為絕對地址的代碼

'==================================================
'函數(shù)名：DefiniteUrl
'作  用：將相對地址轉(zhuǎn)換為絕對地址
'參  數(shù)：PrimitiveUrl ------要轉(zhuǎn)換的相對地址
'參  數(shù)：ConsultUrl ------當前網(wǎng)頁地址
'==================================================
Function DefiniteUrl(Byval PrimitiveUrl,Byval ConsultUrl)
   Dim ConTemp,PriTemp,Pi,Ci,PriArray,ConArray
   If PrimitiveUrl="" or ConsultUrl="" or PrimitiveUrl="$False$" or ConsultUrl="$False$" Then
      DefiniteUrl="$False$"
      Exit Function
   End If
   If Left(Lcase(ConsultUrl),7)>"http://" Then
      ConsultUrl= "http://"  ConsultUrl
   End If
   ConsultUrl=Replace(ConsultUrl,"\","/")
   ConsultUrl=Replace(ConsultUrl,"://",":\\")
   PrimitiveUrl=Replace(PrimitiveUrl,"\","/")

   If Right(ConsultUrl,1)>"/" Then
      If Instr(ConsultUrl,"/")>0 Then
         If Instr(Right(ConsultUrl,Len(ConsultUrl)-InstrRev(ConsultUrl,"/")),".")>0 then
         Else
            ConsultUrl=ConsultUrl  "/"
         End If
      Else
         ConsultUrl=ConsultUrl  "/"
      End If
   End If
   ConArray=Split(ConsultUrl,"/")

   If Left(LCase(PrimitiveUrl),7) = "http://" then
      DefiniteUrl=Replace(PrimitiveUrl,"://",":\\")
   ElseIf Left(PrimitiveUrl,1) = "/" Then
      DefiniteUrl=ConArray(0)  PrimitiveUrl
   ElseIf Left(PrimitiveUrl,2)="./" Then
      PrimitiveUrl=Right(PrimitiveUrl,Len(PrimitiveUrl)-2)
      If Right(ConsultUrl,1)="/" Then
         DefiniteUrl=ConsultUrl  PrimitiveUrl
      Else
         DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"/"))  PrimitiveUrl
      End If
   ElseIf Left(PrimitiveUrl,3)="../" then
      Do While Left(PrimitiveUrl,3)="../"
         PrimitiveUrl=Right(PrimitiveUrl,Len(PrimitiveUrl)-3)
         Pi=Pi+1
      Loop
      For Ci=0 to (Ubound(ConArray)-1-Pi)
         If DefiniteUrl>"" Then
            DefiniteUrl=DefiniteUrl  "/"  ConArray(Ci)
         Else
            DefiniteUrl=ConArray(Ci)
         End If
      Next
      DefiniteUrl=DefiniteUrl  "/"  PrimitiveUrl
   Else
      If Instr(PrimitiveUrl,"/")>0 Then
         PriArray=Split(PrimitiveUrl,"/")
         If Instr(PriArray(0),".")>0 Then
            If Right(PrimitiveUrl,1)="/" Then
               DefiniteUrl="http:\\"  PrimitiveUrl
            Else
               If Instr(PriArray(Ubound(PriArray)-1),".")>0 Then
                  DefiniteUrl="http:\\"  PrimitiveUrl
               Else
                  DefiniteUrl="http:\\"  PrimitiveUrl  "/"
               End If
            End If
         Else
            If Right(ConsultUrl,1)="/" Then
               DefiniteUrl=ConsultUrl  PrimitiveUrl
            Else
               DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"/"))  PrimitiveUrl
            End If
         End If
      Else
         If Instr(PrimitiveUrl,".")>0 Then
            If Right(ConsultUrl,1)="/" Then
               If right(LCase(PrimitiveUrl),3)=".cn" or right(LCase(PrimitiveUrl),3)="com" or right(LCase(PrimitiveUrl),3)="net" or right(LCase(PrimitiveUrl),3)="org" Then
                  DefiniteUrl="http:\\"  PrimitiveUrl  "/"
               Else
                  DefiniteUrl=ConsultUrl  PrimitiveUrl
               End If
            Else
               If right(LCase(PrimitiveUrl),3)=".cn" or right(LCase(PrimitiveUrl),3)="com" or right(LCase(PrimitiveUrl),3)="net" or right(LCase(PrimitiveUrl),3)="org" Then
                  DefiniteUrl="http:\\"  PrimitiveUrl  "/"
               Else
                  DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"/"))  "/"  PrimitiveUrl
               End If
            End If
         Else
            If Right(ConsultUrl,1)="/" Then
               DefiniteUrl=ConsultUrl  PrimitiveUrl  "/"
            Else
               DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,"/"))  "/"  PrimitiveUrl  "/"
            End If
         End If
      End If
   End If
   If Left(DefiniteUrl,1)="/" then
     DefiniteUrl=Right(DefiniteUrl,Len(DefiniteUrl)-1)
   End if
   If DefiniteUrl>"" Then
      DefiniteUrl=Replace(DefiniteUrl,"http://","/")
      DefiniteUrl=Replace(DefiniteUrl,":\\","://")
   Else
      DefiniteUrl="$False$"
   End If
End Function

您可能感興趣的文章:

如何批量替換相對地址為絕對地址(利用bat批處理實現(xiàn))
FormatRemoteUrl函數(shù)之a(chǎn)sp實現(xiàn)格式化成當前網(wǎng)站完整的URL-將相對地址轉(zhuǎn)換為絕對地址的代碼
JavaScript將相對地址轉(zhuǎn)換為絕對地址示例代碼

標簽：河池延邊新鄉(xiāng) 電商邀評銅川優(yōu)質(zhì)小號蘇州那曲

巨人網(wǎng)絡(luò)通訊聲明：本文標題《DefiniteUrl asp將相對地址轉(zhuǎn)換為絕對地址的代碼》，本文關(guān)鍵詞 DefiniteUrl,asp,將,相對,地址,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

濮阳杆衣贸易有限公司

DefiniteUrl asp將相對地址轉(zhuǎn)換為絕對地址的代碼