BinaryDevelop
  1. ホーム
  2. Web プログラミング
  3. プログラミング10000問

URLのフォーマットが仕様に準拠しているかどうかを判断する方法は？

2022-01-17 17:50:05
<%.
関数 checkisUrl(tmpString)
      dim c,i
      checkisUrl = true
      tmpString = Lcase(trim(tmpString))です。
      if left(tmpString,7)<>"http://" then tmpString="http://"&tmpString
      for i = 8 to Len(checkisUrl)
            c = Lcase(Mid(tmpString,i,1))です。
            if InStr("abcdefghijklmnopqrstuvwxyz_-. /³", c) <= 0 and not IsNumeric(c) then
                  checkisUrl = false
                  終了関数
            end if
      次
      if Left(tmpString, 1) = ". " or Right(tmpString, 1) = ". " then
            checkisUrl = false
            終了関数
      end if
      if InStr(tmpString, ". ") <= 0 then
            checkisUrl = false
            response.Write "f3"
            終了関数
      end if
      if InStr(checkisUrl, ". ") > 0 then
            checkisUrl = false
      終了する場合
終了関数
%>
<%。
if checkisUrl(request("u"))=true then
      %> おめでとうございます , あなたの URL <スパン でアクセスするWebサイトのURLです。 !
<%.
その他
      %> 申し訳ございません。 , <スパン あなたの URL 仕様外 , 再確認をお願いします !
<%end if%>

[1]

関連

最新

おすすめ

について
/
プライバシー・ポリシー
/
お問い合わせ
© 2022 BinaryDevelop. すべての権利は、それぞれの所有者に帰属します