📄 url.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
Function IsRightUrl(UrlStrng)
  Dim regEx, retVal
  Set regEx = New RegExp
  'regEx.Pattern = "^https?:\/\/([\u4E00-\u9FA5a-zA-Z\/0-9\-]{1,30}\.){1,3}([\u4E00-\u9FA5a-zA-Z\/0-9\-]{2,9})(:[0-9]{1,5})?([\/|\\]{1}[^\|<>\?\*:/\\""]+)*([\/|\\]{1}([^\|<>\?\*:/\\""\.]{1,255}\.[^\|<>\?\*:/\\""\.]{1,255})?)?$" 
  regEx.Pattern = "^https?:\/\/([\u4E00-\u9FA5a-zA-Z\/0-9\-]{1,30}\.){1,3}([\u4E00-\u9FA5a-zA-Z\/0-9\-]{2,9})(:[0-9]{1,5})?([\/|\\]{1}[^\|<>\?\*:/\\""]+)*([\/|\\]{1}([^\|<>\?\*:/\\""\.]{1,255}\.[^\|<>\?\*:/\\""\.]{1,255})?)?((\?{1}([\u4E00-\u9FA5a-zA-Z\/0-9\-]+[\=]?[\u4E00-\u9FA5a-zA-Z\/0-9\-]*)?([\&]{1}[\u4E00-\u9FA5a-zA-Z\/0-9\-]+[\=]?[\u4E00-\u9FA5a-zA-Z\/0-9\-]*)*){1})?$" 

  regEx.IgnoreCase = False 
  retVal = regEx.Test(UrlStrng)

  If retVal Then
    IsRightUrl = true
  Else
    IsRightUrl = false
  End If
End Function
response.write IsRightUrl("http:/www.mylove19.com/google/showd.asp?id=25542")
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -