ASP编程：计数器代码[转]

由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；计数器比来很多网友在会商计数器的成绩，偶然看到一篇文章，贴出来以解人人十万火急

一下代码贴在第一页便可
<%
Declareourvaiables
DimobjFSO,objCountFileobjectvarsforFSOandFile
DimstrCountFileNamefilenameofcounttextfile
DimiCountcountvariable
DimbUseImagesbooleanwhetherornottouseimages
DimIstandardloopingvar


Determinewhetherweuseimagesorplaintext
YoucouldjustsetthistoTrueorFalseinstead
bUseImages=CBool(Request.QueryString("images"))

Computeourcountfilesfilename
Thisisbasedonthefilefromwhichyoucallcount.asp
Itbasicallytakesthatnameandappendsa.cntsoIdont
accidentlyoverwriteanyfiles.Ifforsomereasonyouhave
afilenamedscript_name.asp.cntthenchangethisorwatchout!
strCountFileName=Server.MapPath(Request.ServerVariables("SCRIPT_NAME")&".cnt")


CreateFileSystemObjecttodealwithfileaccess
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")

Openthefileasatextstream(1=ForReading,True=Create)
SetobjCountFile=objFSO.OpenTextFile(strCountFileName,1,True)

Readthecurrentcountfromthefile
IfNotobjCountFile.AtEndOfStreamThen
Setvaluetocontentsofthefile
iCount=CLng(objCountFile.ReadAll)
Else
Ifnofileexistsoritsemptystartat0
iCount=0
EndIf

Closethefileanddestroytheobject
objCountFile.Close
SetobjCountFile=Nothing


Incrementthecount
iCount=iCount+1


Overwriteexistingfileandgetatextstreamtonewone
SetobjCountFile=objFSO.CreateTextFile(strCountFileName,True)

Writeupdatedcount
objCountFile.WriteiCount

Closethefileanddestroytheobject
objCountFile.Close
SetobjCountFile=Nothing


DestroytheFSOobject
SetobjFSO=Nothing


Werealldonewiththehardpart
Allthatsleftistodisplaytheresults
IfbUseImagesThen
Loopthroughthecountintegershowingeachdigit
Youcangrabtheimagesoneatatimeorgetthezip
http://www.asp101.com/samples/download/counter_imgs.zip
ForI=1toLen(iCount)
OutputtheIMGtagusingtherightdigit
Response.Write"<IMGSRC=""./images/digit_"
Response.WriteMid(iCount,I,1)
Response.Write".gif""ALT="""
Response.WriteMid(iCount,I,1)
Response.Write"""WIDTH=""20""HEIGHT=""27"">"
NextI
Else
Noimagewantedjustshowthevariable
Response.WriteiCount
EndIf
%></p>asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般

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

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

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

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

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

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

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

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。