ASP中限制某些字符留言评论

在这个文章里，我们要讨论的是在ASP程序中如何过滤评论留言中的特定字符。这是一个非常实用的技巧，特别是对于那些希望避免敏感词汇或链接出现在评论中的网站来说。尽管实现这一功能的技术原理看似简单，但实际操作起来仍需要一定的编程技巧。即使是老手，也会时常遇到手生的情况，仿佛有时会遭遇难以捉摸的难题。

让我们深入了解一下这个过程是如何进行的。当用户在网站上提交评论时，首先会通过一个叫做“CheckCanSubmit”的子程序进行检查。这个程序的作用是确定用户的评论中是否含有预先设定的不允许出现的词汇或链接。这个程序的工作原理基于一个叫做“instr”的函数，它用于在字符串中查找特定的子字符串。一旦找到这些不允许出现的词汇或链接，程序就会触发警告。

下面是这个子程序的基本代码：

Sub CheckCanSubmit(str)

Dim connt, connts

connt=",,安利,http,,<a" （这里包含了一系列不允许出现的词汇和链接）

connts = split(connt,",") （将词汇列表分割成单独的元素）

对于列表中的每一个词汇（glword），程序都会使用instr函数来检查用户的评论（str）中是否包含这个词汇。如果包含，程序就会执行以下操作：

if instr(str,glword)<>0 then

Response.Write("<script>alert('操作非法');window.history.go(-1);</script>") （弹出一个警告框提示用户操作非法）

Response.End() （结束响应，阻止评论提交）

end if

next

End Sub

一旦这个子程序检测到评论中包含不允许的内容，就会向用户展示一个警告信息，告诉他们操作非法，并引导他们回到之前的页面。这样一来，就能有效地防止敏感信息的传播了。这样的小技巧，对于维护网站的安全和良好氛围来说，是非常有帮助的。接下来的部分代码（如“cambrian.render('body')”）则是负责页面的渲染和展示。