asp脏话过滤自定义函数
最近公司分给个任务,让写一个留言板!那功能够变态的,可以算上一个小型的论坛了!我是这么认为的!给大家截张图看看吧!有图才有真相嘛!呵呵!汗,图上传不了,上文字吧!
留言板规划
1, 留言板页面需延续现网站页面设计风格
2, 游客可浏览所有开放内容(非锁定)
3, 留言版现不进行分类,可能将来会添加分类,程式设置上是否可预留
用户注册相关
1, 用户注册内容需包括用户名,密码,密码问题,姓名,地区,公司,联系方式,MAIL,验证码;
其中用户名,密码,密码问题,MAIL,地区,验证码为必填
用户需通过MAIL验证才能进行留言
2, 管理员后台操作可批量删除用户,可批量对指定用户进行备注(前台不显示)
3,可批量输出注册用户信息至EXCEL用户留言相关
1, 不允许匿名留言
2, 用户发表留言需输入验证码,无/错误输入,或提交空白内容需跳出提示
3, 用户留言仅可发布文字信息留言,前台仅显示留言用户用户名,留言时间。
4, 留言提交增加“悄悄话”选项,勾选则成功提交后前台不显示相关信息
5, 用户不可修改自己的留言内容留言管理相关
1, 设置过滤词语,自动过滤各种不文明用语。管理员回复可添加图片表格等。
2, 管理员可限定留言字数,可设置同一用户留言间隔时间,可设置留言板每页显示留言数
3, 后台可根据用户名,留言时间,地区进行内容排序,可搜索指定用户名,留言时间,地区,公司的留言内容
4, 仅管理员可回复用户发言,管理员可置顶留言,批量回复,删除,锁定;锁定留言不在前台显示
5, 管理员可按用户名,时间,地区,公司批量输出留言内容至EXCEL
这是杯具啊!不知道有需要的没!有需要的,等做好了!传上来!分享给大家
- function dirty(str)
- if not isnull(str) then
- bads="我草|我日|妈妈的"
- bad=split(bads,"|")
- for i=0 to ubound(bad)
- x="*"
- for j=0 to len(bad(i))-2
- x=x&"*"
- next
- str=replace(str,bad(i),x)
- x=""
- next
- end if
- dirty=str
- end function
- '调用方法
- str="我草kkkd 我日额外人为二位撒得分妈妈的"
- response.Write dirty(str)

















