asp脏话过滤自定义函数

2010/06/10  |  00:26分类:asp文章, 生活琐事!, 网站建设  |  标签:  |  24

最近公司分给个任务,让写一个留言板!那功能够变态的,可以算上一个小型的论坛了!我是这么认为的!给大家截张图看看吧!有图才有真相嘛!呵呵!汗,图上传不了,上文字吧!

留言板规划
1, 留言板页面需延续现网站页面设计风格
2, 游客可浏览所有开放内容(非锁定)
3, 留言版现不进行分类,可能将来会添加分类,程式设置上是否可预留

用户注册相关
1, 用户注册内容需包括用户名,密码,密码问题,姓名,地区,公司,联系方式,MAIL,验证码;
其中用户名,密码,密码问题,MAIL,地区,验证码为必填
用户需通过MAIL验证才能进行留言
2, 管理员后台操作可批量删除用户,可批量对指定用户进行备注(前台不显示)
3,可批量输出注册用户信息至EXCEL

用户留言相关
1, 不允许匿名留言
2, 用户发表留言需输入验证码,无/错误输入,或提交空白内容需跳出提示
3, 用户留言仅可发布文字信息留言,前台仅显示留言用户用户名,留言时间。
4, 留言提交增加“悄悄话”选项,勾选则成功提交后前台不显示相关信息
5, 用户不可修改自己的留言内容

留言管理相关
1, 设置过滤词语,自动过滤各种不文明用语。管理员回复可添加图片表格等。
2, 管理员可限定留言字数,可设置同一用户留言间隔时间,可设置留言板每页显示留言数
3, 后台可根据用户名,留言时间,地区进行内容排序,可搜索指定用户名,留言时间,地区,公司的留言内容
4, 仅管理员可回复用户发言,管理员可置顶留言,批量回复,删除,锁定;锁定留言不在前台显示
5, 管理员可按用户名,时间,地区,公司批量输出留言内容至EXCEL

这是杯具啊!不知道有需要的没!有需要的,等做好了!传上来!分享给大家

  1. function dirty(str)
  2. if not isnull(str) then
  3. bads="我草|我日|妈妈的"
  4. bad=split(bads,"|")
  5. for i=0 to ubound(bad)
  6. x="*"
  7. for j=0 to len(bad(i))-2
  8. x=x&"*"
  9. next
  10. str=replace(str,bad(i),x)
  11. x=""
  12. next
  13. end if
  14. dirty=str
  15. end function
  16. '调用方法
  17. str="我草kkkd 我日额外人为二位撒得分妈妈的"
  18. response.Write dirty(str)
喜欢本文,那就收藏到: Del.icio.us Google书签 Digg Live Bookmark Technorati Furl Yahoo书签 Facebook 百度搜藏 新浪ViVi 365Key网摘 天极网摘 和讯网摘 博拉网 POCO网摘 添加到饭否 QQ书签 Digbuzz我挖网

发表您的评论