asp-classic - 如何在 ASP 中阻止垃圾邮件链接

Question

在 php 中，我们使用以下代码来阻止通过表单提交上的文本框或文本区域传递的 url 链接（为了避免错误链接

从联系我们表格中传递）。在使用 vb 的经典 asp 中是否有这样的方法。

if($_POST['Register'])
{
    $username=$_POST['username'];
    if (preg_match('~(?:[a-z0-9+.-]+://)?(?:\w+\.)+\w{2,6}\S*~i', $username))
    {
         die('Access Denied Avoid Link');

    }
}

我在asp中使用以下代码但显示错误

<%@Language="VBScript%">
<%
Option Explicit

Dim Address 
Address = Request("Address") 

if(!preg_match("/^[a-zA-Z]+[:\/\/]+[A-Za-z0-9\-_]+\\.+[A-Za-z0-9\.\/%&=\?\-_]+$/i",& Address&))
{
Echo"Access Denied Avoid Link.";
Response.End
'Exit();
}
%>

Answer 1

您需要使用 RegExp 对象，一个简单的例子是

Dim re
Set re = New RegExp

re.Pattern = "^Hello.*" ' Replace with your regexp pattern
re.IgnoreCase = True

result = re.Test("Hello world") ' Returns boolean
If result Then
   ' Found!
Else
   ' Not found :-(
End If
Set re = Nothing

VBScript 中的正则表达式语法可能与 PHP 略有不同，因此您可能需要稍微翻译一下您的正则表达式。有关 Microsoft 的 RegExp 类的更多详细信息，请参阅http://msdn.microsoft.com/en-us/library/ms974570.aspx。