asp经典正则表达式:字符串到URL安全

asp classic regular expression: string to URL safe

本文关键字：URL 安全 字符串 经典 正则表达式 asp      更新时间：2023-09-26
早上好，

我试图创建一个asp"经典"版本的以下jquery/javascript函数，以防止恶意代码被输入到数据库。

当用户在输入字段中键入产品名称时，它会自动更改permlink p和隐藏输入字段的html值。一旦用户点击提交按钮，我希望它在进入数据库之前在服务器端进行验证。

$(".item-name").keyup(function() {
$("p.permlink").empty().html(convertToSlug($(this).val())+".html");
$(".permlink-input").empty().val(convertToSlug($(this).val())+".html");
});

function convertToSlug(Text)
{
return Text
    .toLowerCase()
    .replace(/[^'w ]+/g,'')
    .replace(/ +/g,'-')
    ;
}

我知道的唯一方法是使用asp替换函数来替换键盘上的每个字符。

replace(strItem, "<", "")
replace(strItem, ">", "")
replace(strItem, "/", "")
replace(strItem, "'", "")
... etc etc

的问候Shane

刚刚在一个博客上发现这个和jquery的工作原理一样。它将字符串转换为url/seo。似乎工作得很好。

博客没有名字，只有"blogger classicasp"。

Function isURL(strURL)
Dim Slug, re, re2
'Everything to lower case
Slug = lcase(strURL)
' Replace - with empty space
Slug = Replace(Slug, "-", " ")
' Replace unwanted characters with space
Set re = New RegExp
re.Pattern = "[^a-z0-9's-]"
re.Global = True
Slug = re.Replace(Slug, " ")
' Replace multple white spaces with single space
Set re2 = New RegExp
re2.Pattern = "'s+"
re2.Global = True
Slug = re2.Replace(Slug, " ")
Slug = Trim(Slug)
' Replace white space with -
Slug = Replace(Slug," ", "-")
isURL = Slug
End Function
相关文章：