如何判斷URL格式是否符合規(guī)范？
更新時(shí)間：2006年11月16日 00:00:00 作者：
<%
function 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
exit function
end if
next
if Left(tmpString, 1) = "." or Right(tmpString, 1) = "." then
checkisUrl = false
exit function
end if
if InStr(tmpString, ".") <= 0 then
checkisUrl = false
response.Write "f3"
exit function
end if
if InStr(checkisUrl, "..") > 0 then
checkisUrl = false
end if
end function
%>
<%
if checkisUrl(request("u"))=true then
%>恭喜,你的URL通過!
<%
else
%>對不起,你的URL不合乎規(guī)范,請重新檢查!
<%end if%>
function 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
exit function
end if
next
if Left(tmpString, 1) = "." or Right(tmpString, 1) = "." then
checkisUrl = false
exit function
end if
if InStr(tmpString, ".") <= 0 then
checkisUrl = false
response.Write "f3"
exit function
end if
if InStr(checkisUrl, "..") > 0 then
checkisUrl = false
end if
end function
%>
<%
if checkisUrl(request("u"))=true then
%>恭喜,你的URL通過!
<%
else
%>對不起,你的URL不合乎規(guī)范,請重新檢查!
<%end if%>
[1]
相關(guān)文章
如何提示用戶打開Cookie？...2006-11-11
如何正確顯示數(shù)據(jù)庫里同時(shí)存在的GB碼和BIG5碼？
如何正確顯示數(shù)據(jù)庫里同時(shí)存在的GB碼和BIG5碼？...2006-11-11
如何用組件實(shí)現(xiàn)自動(dòng)發(fā)送電子郵件？
如何用組件實(shí)現(xiàn)自動(dòng)發(fā)送電子郵件？...2006-11-11
如何更好地保護(hù)我的網(wǎng)頁？...2006-11-11
如何用表單在線建立目錄？...2006-11-11
如何判斷電子郵件的地址格式是否正確？...2006-11-11
在之前，信息量不像現(xiàn)在那么大的時(shí)候，我們通過一些分類網(wǎng)站去獲取我們想要的信息，隨著互聯(lián)網(wǎng)信息量越來越大，用戶大多時(shí)候并不清楚自己想要搜什么，這就需要推薦系統(tǒng)去給用戶推薦
2021-08-08 
如何實(shí)現(xiàn)在下拉菜單里輸入文字？...
2006-11-11 
如何驗(yàn)證日期輸入是否正確？...
2006-11-11