如何判斷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
%>對(duì)不起,你的URL不合乎規(guī)范,請(qǐng)重新檢查!
<%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
%>對(duì)不起,你的URL不合乎規(guī)范,請(qǐng)重新檢查!
<%end if%>
[1]
相關(guān)文章
如何用下拉列表顯示數(shù)據(jù)庫(kù)里的內(nèi)容？
如何用下拉列表顯示數(shù)據(jù)庫(kù)里的內(nèi)容？...2006-11-11
如何動(dòng)態(tài)生成WBMP？...2006-11-11
如何編寫一個(gè)創(chuàng)建FTP站點(diǎn)的函數(shù)？
如何編寫一個(gè)創(chuàng)建FTP站點(diǎn)的函數(shù)？...2006-11-11
統(tǒng)計(jì)在線人數(shù)是實(shí)時(shí)的嗎？
統(tǒng)計(jì)在線人數(shù)是實(shí)時(shí)的嗎？...2006-11-11
如何把Recordset轉(zhuǎn)換成彩色的XML文件
如何把Recordset轉(zhuǎn)換成彩色的XML文件...2006-11-11
如何編寫一個(gè)加法器？...2006-11-11
如何把一個(gè)Excel文件放到ASP頁(yè)面中去？
如何把一個(gè)Excel文件放到ASP頁(yè)面中去？...2006-11-11
如何阻止別人非法鏈接你網(wǎng)站的圖片？...2006-11-11
這篇文章主要為大家介紹了字節(jié)跳動(dòng)解決SLA治理難題的了解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-05-05
如何根據(jù)用戶銀行帳戶余額的多少進(jìn)行顯式的提交或終止？
如何根據(jù)用戶銀行帳戶余額的多少進(jìn)行顯式的提交或終止？...2006-11-11