 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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主页上运用ADO · ASP学习:URLDECODE 方式补遗 · 如何完整纪录站内所有网页点选次数 · 利用ASP将HTML格式数据传输给EXCEL(3) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
