Question

在php中我们使用以下代码来阻止通过表单提交时通过文本框或textarea传递的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。

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

1 个答案: