asp防止垃圾留言代码

2024-09-29 13:03:35

<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
Response.Write(server_v1)
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "禁止外部提交数据"
response.end
end if

if len(request.form("frmContent"))>1000 then
response.write "输入内容超过规定字符数目"
response.end
end if

if request.cookies("visitime")<>"" then
if DateDiff("s",request.cookies("visitime"),now())<60 then
response.write "请勿在1分钟内重复提交评论"
response.end
end if
end if

count="六合彩,免费电影,安利,http,www"
connts = split(connt,",")
For each glword in connts
if instr(request.form("frmcontent"),glword)<>0 then
response.write "该关键字已被过滤"
response.end
end if
next

Dim UserNam,Comments
Dim fieldlist,Valuelist
UserName = Request.Form("UserName")
Comments = Request.Form("Comments")
newsid = Request.Form("newsid")
If UserName = "" Or Comments = "" Then
Response.Write("姓名或者内容没有填写")
Response.End()
End If
fieldlist = array("UserName","Comments","newsid")
valuelist = array(UserName,Comments,newsid)
Set objRs = Server.CreateObject("ADODB.recordset")
objRs.open "Feedback",objConn,1,2
objRs.addnew fieldlist,valuelist
closeI()
response.cookies("visitime")=now()
response.Redirect(server_v1)
%>

asp防止垃圾留言代码

  <% server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) Response.Write(server_v1) server_v2=Cstr(Request.ServerVariables("S
asp有效防止网站留言板出现垃圾留言/评论实现思路

一.在表单填写页面: <input name="intime1" type="hidden" value="<%=Now()%>"> 在提交处理页面,设置提交时间复制代码代码如下: If DateDiff("s",request.form("intime1"), Now()) < 5 then response.write "<SCRIPT language
在博客中屏蔽垃圾留言的简单方法

垃圾留言俗称 Spam,就是到处在留言框里发垃圾广告的那些,相信大多数人都见识过.以前使用 WordPress 的时候,因为装了防 Spam 的插件,可以屏蔽掉绝大多数的 Spam.但是自从上个月从 WordPress 迁移到新的博客平台后,第一天上线就遭遇了几个Spam,全都是国外的推广的广告什么的.博客的访问量本身就很小,如果每天都来几条 Spam,太煞风景了,手工删除也太浪费时间,而且又是自己写的小系统,也不可能有什么插件可选,只能自己想办法解决了. 看到有很多网站都是加个验证码来解决这个
asp下载防盗链代码

asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施,在下载的页面头部做了如下代码,相关代码如下: 复制代码代码如下: <% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <>
ASP连接数据库的全能代码

ASP连接数据库的全能代码 '解决了ACCESS数据库路径的问题! '采用DBType=0或DBType=1来区分AC库还是MSSQL库 '具体采用AC库时应注意的事项,请看程序说明 -------------------------------------------------------------------------------- Dim DBType,Conn,StrConn DBType=0 '0为Access数据库,1为MSSQL数据库 If(DBTyp
用ASP+XML打造留言本

用ASP+XML打造留言本一.读者指引读者指引帮助你掌握本文的梗概.以免你看了大半才明白这编文章不适合你,给你造成视觉污染. 如果你正在用ASP+XML写一些程序,或者你正在学XML那就值得一看. 阅读本文须具备的知识,对ASP有基本的了解,对XML和DOM有基本了解,如果你不了解那么你通过学习本文基本上能够撑握ASP+XML和DOM的应用,并能根据本文范写出自已更高级的ASP+XML程序. 二.基本思想本文思想是基于用ASP和DOM来读取和存储XML数据,并利用XML数据来存储留言信息,
IIS ASP.NET 版本转换批处理代码

标识符的查看方法:iisaspnet.bat代码复制代码代码如下: @echo off echo ########################################## echo ######### IIS ASP.NET 版本转换 ########## echo ########################################## echo 说明: echo 站点标识符:打开IIS 管理器后点击"网站"在每个站点名称后都有一个唯一的站点标识符 ech
将HTML或txt文件转换为ASP输出的vbs代码

使用方法:手工修改html文件的名称与想要生成的asp的文件名称,然后将下面的代码保存为1.vbs,跟1.html放同一个目录双击运行即可. 复制代码代码如下: html = "1.html" asp = "1.asp" Set fso = CreateObject("Scripting.FileSystemObject") Set fhtml = fso.OpenTextFile(html, 1) Set fasp = fso.OpenTex
ASP.NET 高性能分页代码

最近给分页快搞死,记得之前曾经发过修改DW ASP分页的方法,后来又写过手工打造的ASP分页,现在进入.NET当然要配合存储过程打造纯手工高性能分页了. 为什么会叫做高性能,为什么要手工打造,不使用.NET现有的分页控件呢?这个还要追溯到我修改DW ASP分页的时候,那个我还不怎么懂程序这个东西,只会修修补补,就更不要去谈什么性能问题.当时改的很心烦,接着叫我的私人技术总监张总帮我看看,当时张总就以一种不屑一顾的眼神往着我,说了句话:值得吗? 接着到我手工打造ASP分页,又搞不下去了,张总丢给我
asp.net 添加水印的代码(已测试)

加水印的功能代码如下所示复制代码代码如下: /// <summary> /// 图片修改类,主要是用来保护图片版权的,版权归原作者所有 /// </summary> public class picmark { #region "member fields" private string modifyImagePath = null; private string drawedImagePath = null; private int rightSpace;

asp防止垃圾留言代码

相关推荐

随机推荐