快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

如何判定URL格式是否符合规范

<%
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不合乎规范,请重新检查!
<%end if%>
返回类别: 教程
上一教程: 中文虚拟域名实现(1)
下一教程: ASP技巧集锦(官方权威版)-2

您可以阅读与"如何判定URL格式是否符合规范"相关的教程:
· 如何用FOREACH遍历页面上所有的TEXTBOX,判定他们是否为空
· 如何用ASP把SQL SERVER数据转变为EXECL文件
· 判定COOKIES是否处于开启状态
· 在ASP中如何访问Novell下的数据库 
· ASP.NET中执行URL重写
    微笑服务 优质保证 索取样品