ASP教程之避免反复提交的子法式Asp版本

ASP脚本是采用明文（plain text）方式来编写的。法式|反复|反复提交   此为CGI子法式的一个Asp改编版本，个中利用FileSystemObject对象中的TextStream对象的ReadAll办法。因而，需求按期清算纪录文件floodcheck.ini。以避免影响速度。该处置办法的一个优点是留有Post者的ip地址纪录而且能使用于分歧类型的体系。（只需在您的处置代码处用Response.Redirect "你的处置Post Asp页"）就能够了。
我改编的Asp代码
<%
'避免反复提交的asp代码
'floodcheck.ini文件格局
'最初宣布工夫|IP地址
'变量声明
'两个Post距离工夫,以分为单元
Dim Wait_between_Post
'发贴者IP地址
dim IPNumber
'本次Post工夫
Dim This_Post_Time
'前次Post工夫
Dim Last_Post_Time
Wait_between_Post=0.1
This_Post_time=Now

IPNumber=Request.ServerVariables("REMOTE_ADDR")

dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
'1 forReading
Set f=fso.OpenTextFile("floodcheck.ini",1,true)
if f.atEndOfStream then
    f.close

    '2 forWritting
    Set f=fso.OpenTextFile("floodcheck.ini",2,true)
    f.WriteLine(this_Post_Time & "|" & IPNumber)
    f.close
    Set fso=Nothing
    '交换成您的处置代码
    response.write "转到到Post处置页或处置代码"
    response.end
    '交换成您的处置代码
else
   
    dim PostRec
    dim varTemp
    PostRec=f.ReadAll
    f.close
    dim objRegExp
    Set objRegExp=new RegExp
    objRegExp.Pattern=".+|" & IPNumber & ""
    objRegExp.Global = True            
      Set objMatches = objRegexp.Execute(PostRec)
    for each objMatch in objMatches
        varTemp=split(objMatch.Value,"|")
        last_post_time=cdate(varTemp(0))
        if dateadd("s",wait_between_post*60,last_post_time)>this_post_time  then '转化为秒
            set fso=nothing
            '交换成您的处置代码
            response.write "抱愧,您方才宣布过一篇文章,为了不反复宣布,请稍候前往" & wait_between_post & "分钟再宣布您的文章."
            response.end
            
            '交换成您的处置代码
        end if
    next
    '8 forAppending
    Set f=fso.OpenTextFile("floodcheck.ini",8,true)
    f.WriteLine(this_Post_Time & "|" & IPNumber)
    f.close
    set fso=nothing
    '交换成您的处置代码
    response.write "转到到Post处置页或处置代码"
    response.end
    '交换成您的处置代码
   
end if
%>
CGI原代码 摘自经典服装论坛http://202.106.124.52/zmy/ubb/Ultimate.cgi?action=intro
sub floodcheck
{ # blocks multiple posting in a short period
    $wait_between_posts = "0.2"; #  edit in the default number of minutes to wait
    $lastpost_list_length = 15; # edit in the number of records to keep     
    my $IPNumber  = $ENV{'REMOTE_ADDR'}; # the IP address
    my $this_post_time = time(); # secs since 1970
    open(LASTPOST, "$NonCGIPath/BanLists/Floodcheck.cgi"); # don't bother with error code if it doesn't exist  
    @last_post_list = <LASTPOST>;
    close(LASTPOST);
   
    foreach (@last_post_list)
    { # check if this user has posted already   
        if (/^$IPNumber/){
             ($junk,$last_post_time) = split(/\|!!\|/,$_); &nbsp</p>  asp可以使用微软的activeX 使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

那么，ASP.Net有哪些改进呢？

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

仓酷云

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。