用ASP编写计数器

（aT Studio Sherlock　2001年06月11日 17:23）

序

作为网络上最重要的信息载体的Web服务从互连网诞生尹始就开始了她漫长的发展路程。从最早的HTML 1.0版到之后的HTML 4.0以及DHTML，客户端所使用的语言从来没有停止过发展。但是Web语言如何的进步，也只是在外观上做到"动态"，根本的数据以及资料都是静态的，就好比是新瓶装旧酒。如果要想更换资料的话就要运用一些工具对页面本身进行修改，这样做效率势必要低下的多，因为除了修改还要考虑到非本地的上下传所花去的时间；而且，因为是人工操作，一些粗心导致的整个页面的错误也是不可避免的。如果是多人操作，这个困难度更是可想而知。

有问题就要解决，于是能够动态生成页面的语言和平台出现了。从CGI开始，人们就终于能够领会到论坛、聊天室这些网络程序(Scripts)所带来的便利了。但是写过CGI的人都知道由CGI所生成的页面都要一句句的通过语句输出，效率低，而且相当的麻烦。接着，插入式语言就诞生了。ASP、PHP和JSP就是这一类型的代表，他们的特点是通过一些标志可以把一段段的代码插入到页面里，既大大的提高了产生页面的效率，也使编写工作轻松很多。其中ASP是最早出现的，她可以使用VBScript、JavaScript和Perl作为编写语言，而这三者中VBScript又是最常用的。由于ASP去除了变量类型声明（这点有优有劣，降低了难度同时也降低了效率），VBScript继承了相当部分Basic语言的成分，在极短的时间内ASP就流行起来，大小网站都能看到她的身影，似乎不用ASP就不能做网站一般。虽然ASP+已经推出，PHP和ASP也依靠他们过人的某些方面的优点大有取代ASP之势，但是ASP依靠的Win32（不是win 3.2而是Windows32位）平台到底是当今最流行的操作平台，ASP使用的范围还是相当广的。而且这些网络语言有相当大的共通性，熟练了入门级的ASP后可以很容易地向其他语言进发。

不过当你大量使用别人的ASP代码时，是否想过要自己尝试一展身手呢？本篇是针对那些有Basic语言使用经验的入门级程序员的，可以帮助你们快速的掌握一把新的利器。其实ASP的核心--六大对象通过查阅MSDN可以很快的掌握，笔者只用了一天时间就融会贯通了。但是由于与普通的应用程序不同，真正使用的时候会遇到不少的麻烦，积累这些经验这才是真正的财富。笔者就是想在进行语言教学的同时加入自己的心得，使读者能在更短时间学到更多东西。不过笔者毕竟水平有限，读者千万不要被禁锢住思维，要学会不断地学习、尝试、积累，还有别忘了把你们的经验与我交流啊。

ASP及其平台运行机理介绍

也许大家会认为介绍这个是浪费时间，其实不然，了解了原理才能更好的解决实际问题。笔者碰到的很多问题都是在了解了运行机理后得以解决的。

ASP全称是Active Server Pages，这个算废话，知不知道无所谓^_^。重要的是她一般运行在Windows NT+IIS的平台上，如果要使用ASP 2.0也就是现在用的最多的那么最好的搭配平台是Windows 2000+IIS 5.0。个人用户推荐安装Windows 2000 Professional版和自带的IIS 5.0进行调试和运行。ASP是基于解释的，什么意思呢，就是一个ASP程序被运行时每个语句话都会被IIS内带的解释器读取并且进行解释即计算，而不是一般的应用程序那样编译好后再运行。这样的好处是灵活度大，平台移植性好；缺点是代码容易被泄露，速度大大降低。所以现在的PHP，JSP都可以通过一些外挂的模块甚至自身就支持编译后再运行，这样就类似网络应用程序了。但是既然用了ASP就应该有ASP的习惯，与编写应用程序不同要尽量地降低服务器的负担。这么说吧，你运行一次可能差别不大，但是一旦访问量大了，这个差别就要*n，越大数字越是惊人。所以编写ASP一个小小的改进就会带来不小的改善，至于如何改善性能我会在编写程序中介绍。

还有ASP是如何让客户看到那些动态生成的页面的，这个由我来一步步说明。用户想看一个xxx.asp的内容，就和浏览普通网页一样，那么浏览器就发出一个请求"Get xxx.asp"，之后IIS就收到了这个请求并发现调用的页面后缀名是ASP。经过一些简单的验证以后IIS就把手中的接力棒交给一个专门处理ASP的动态联结库，这个联结库自己有一个缓存，她一边解释这个ASP文件一边就按照程序里的要求把输出结果放到这个缓存里。最后全部解释完毕，这个缓存的内容就全部倒还给IIS，由IIS把这些结果当作一个普通网页一样（其实调用网页时也是把网页内容读入缓存再传送给用户）返回给终端，然后么……然后你就看到一个内容丰富的ASP页面了。

既然ASP是运行在Windows2000 下，如果你使用了NTFS就一定要注意权限问题，否则有的要吃苦了。这个稍后也会在文中着重指出，所以关于IIS的安装和虚拟目录的设置就交给读者自己去摸索了，有问题只管和笔者联系。

目的及规划

说了那么多，还没说清楚今天到底要做什么呢。计数器大家都用过吧？就是页面上那个会显示访客人数的东西，不过有的是用图象表示，有些是用文字。其实他们运行的原理都是一样的，就是在服务器端上保存下目前的访客数，当有客户访问这个页面即调用这个程序的时候，读出这个数据并输出，同时把访客数加一后保存。

在这个过程中，马上就会发现有几个问题需要解决。

1. 如何让客户调用这个程序？是弹出窗口，还是整个首页为了一个计数器做成ASP,还是……

2. 怎么保存？目前有两种选择：文件或者是数据库。

3. 如何显示？这个其实和第一个问题是相当有关联的，解决第一个问题后只要考虑如何美化输出效果就可以。

其实写程序的时候，最重要的是先想好会遇到的问题以及解决的办法。读者们不要急着如何去写ASP，待我一一解释这些后再讲述实现的具体方法、语句和注意事项。

如何让客户调用这个程序

最先想到的方法就是和普通的ASP程序一样调用整个做成ASP的页面。但如果我们整个页面都是静态的只是想要一个"动态"的计数器这样做明显有几个问题：一是主次颠倒，让ASP解释器去输出一个网页如何也不可能比普通的页面输出快；二是管理难度加大，写程序很重要的一点就是需要模块化，ASP也不例外。所以除非你要使用计数器的页面完全就是一个动态页面否则应该选择其他办法，例如弹出窗口或是在页面内插入一个ASP。前者很好办，只要在页面onLoad的时候运行一个JavaScript语句自动弹出小窗口就可以，方法这里不详述。如此虽可以提高效率，但是却降低了美观性。所以最好的选择就是嵌入一个ASP，如何做到呢？如果是shtml（ServerSide）就可以"include"另外一个页面，要在html里实现就不得不使用JavaScript法宝。如果用过JavaScript的人就会知道我们可以在页面正文的任一位置用document.write();插入一段HTML代码，效果和直接输入HTML效果一样。那么我们可以用<Script Language="JavaScript" Src="xxx.asp">这样插入一段asp写成的javascript代码，而这段asp唯一与其他不同的就是在要输出时需要加上document.write("")。这样自然还会碰到引号冲突等问题，但我们可以依靠通过一个子程序代为修改输出来完善。那么这个问题就解决了。

如何保存

这个问题的选择相比就少得多，只有文件和数据库。前者可以很容易地通过几句代码就实现，复杂度可以低很多，问题是功能不可能过于扩充，否则就要牵涉到数据储存结构和检索问题，需要更高地编程水平了。而数据库乍一看似乎复杂不少，但依靠ASP的强大功能只要熟悉一些SQL语法就不是难事，这个我会在后文中介绍。用数据库可以很方便地实现多用户（多计数器）的功能，结构越是复杂和文件储存相比就可以把功夫更多得放在其他方面，而不是数据存取操作，这个是相当有利的。不过既然如此难以取舍，我就一起介绍吧。只要读者们有耐心多学点东西，自己多思考，就能领悟什么时候用什么方法。

如何显示

一个问题比一个简单，要么文字要么图象，再明显不过。很可惜ASP没有什么太强大的图象操作的语句例如合并之类，所以如果要通过显示图象表示访客数就只能一个数字一个数字往上贴了。如果是要显示文字就简单多了，别告诉你不知道……既然两个都不是什么难事，等会就一起讲解吧

好了，几个可能会碰到的麻烦问题都已经搞定了，想必你已经是摩拳擦掌跃跃欲试了，我们先从简单的做起吧。我采用的方法是给出代码，再一一讲解。

代码实例

差点忘了说使用什么编写工具了。其实只要你熟练了一个记事本足以解决问题，就是看起来头大。我偏爱使用UltraEdit这个功能强大的文本编辑器，但是她毕竟只是个"文本"编辑器，如果是较大的ASP工程就一定要使用带有调试功能的Ms InterDev了，不过本人太懒至今没用过，^-^ 建议初学的人就使用UltraEdit或者InterDev。老鸟用什么？我好象还不能算老鸟，这个就不清楚了。

代码一/最简单的文件存取及显示，不能插入HTML文件

<%

dim fso,f,no,I '定义变量绝对是个好习惯

Set fso = CreateObject("Scripting.FileSystemObject") '建立对象的实例

Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件

if f.AtEndOfStream then '判断这个文件是否不存在

no=1

else

no=f.ReadLine

no=no+1

end if

f.Close

set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '准备写

f.Write(no) '写入

f.Close

'改进标志1

no=CStr(no) '整齐数字

for i=1 to 5-len(no)

no="0"&no

next

%>

你是第<%=no%>个来客

以上包括在<% %>里的就是一段完整的ASP代码了，使用过Basic语言的人一定会发觉很是熟悉。这段代码其实大部分都是VBScript，真正用到ASP对象的只是寥寥几句话。一开始先建立一个文件系统对象的实例，CreateObject就起了这个作用，这里用Set而不是简单赋值是因为这里是对象引用，这个牵涉到对象的概念，不懂也没关系。现在有了fso这个文件系统对象实例，可以用它的OpenTextFile打开一个文本文件，它的使用格式如下：

object.OpenTextFile(filename[, iomode[, create[, format]]])

filename是文件的路径，需要使用绝对路径，所以我们用了Server.MapPath()函数。Server就是我们常说的ASP六大对象之一，如其名主要负责服务器端的信息。MapPath函数可以把你给它的相对路径以当前ASP路径为参照化为绝对路径。例如当前这个ASP在c:\web下，Server.MapPath("count.no")返回的就是"c:\web\count.no"，如果你给它的路径是以"\"开头的，那么就是把整个web服务的根目录作为参照，例如web服务的根目录是c:\iisroot，那么Server.MapPath("\count.no")就返回"c:\iisroot\count.no"，明白？

Iomode是文件输入/输出的方式，有三个值，它们是：

ForReading	1	以只读模式打开文件。不能对此文件进行写操作。
ForWriting	2	以只写方式打开文件。不能对此文件进行读操作。
ForAppending	8	打开文件并在文件末尾进行写操作。

第一栏是常数，使用时应该用数字作为参数。

Create的参数值是布尔值，代表如果没有这个文件是否需要新建，一般为了方便取True，默认是False，视具体情况而定了。

那么set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True)这句话的意思就是以只读模式打开当前目录下名为count.no的文件，如果不存在的话就新建一个，并且把这个文件的引用赋给f变量。不难理解吧。

写程序要考虑到各种情况。如果这个文件不存在也就是说明第一次运行或出现故障，count.no文件里没有内容，那么数字从1开始记。AtEndofStream是文件对象的一个属性，标记这个文件是否往下已经没有东西可以读取。

如果有内容的话，就用ReadLine函数读入一行数据并赋给no变量，并且把这个数字加一。然后关闭文件对象为了引用新的对象以写入新的数据。后面一句打开文本文件和前一次唯一的不同就是iomode为2，即只写，准备用Write函数将目前访客数保存。

现在剩下的问题就是显示了。为了能够做到整齐美观，所以要用0把数字补到一个固定的位数，后面的for语句就是为了这个目的。接着是输出，ASP的输出语句就一个，那就是Response.Write，也是六大对象的一个方法，为了方便，这个方法就等于<%= %>注意=号。最后一�你是第<%=no%>个来客本来只是句很普通的HTML语言，但中间的<%=no%>则是一句ASP语言，相当于Response.Write no，你看到的结果就是一个会随着访客增多渐渐增加的"活"的数字了。

注意事项：因为count.no需要被不断地改写，所以必须"在Windows里"给Internet用户对这个文件的写权限，这是相当重要的。或者也可以用IIS里任务的权限设置做基本的权限配置，但手工设置还是不可或缺的。IIS里对文件的权限设置是Internet用户通过浏览器对某文件的访问权限，而Windows2000里的文件权限是这个用户运行的程序（例如这个计数器程序）对某文件的权限，意义是不同的。显然后者高于前者，所以这个设置有不少技巧性。你想让ASP程序可以访问count.no文件而用户通过浏览器却不能读取其内容，那么就在Windows中给用户对count.no的完全权限，在IIS中完全剥夺用户对这个文件的权利。其中奥妙还要各位自己体会了。

一个最简单的计数器就完成了，如果你没糊涂的话，马上开始改进吧。例如想要显示图片的话可以先准备10小图片，分别是0到9的图象，命名为0.gif…9.gif，把前一个程序的改进标志1后面改成如下的代码：

for i=0 to 4

outstr="<img src=" & CStr(int((no/10^i) mod 10)) & ".gif>" & outstr

next

你是第<%=outstr%>个来客

这里没有什么新的技术了，主要就是一个简单的小算法，留给各位品味了。

下面再看看如何能够把这个计数器嵌入网页。前面已经说过了原理，我现在就给出一个函数：

Function convertJS(strInput)

Dim temp

Temp=Replace(strInput,"""","\""")

Temp="document.write(""" & temp & """);"

ConvertJS=temp

End Function

这里的Replace函数的用法是

Replace(expression, find, replacewith)

从前到后分别是"在哪里找，找什么，用什么替换"。有一些可能是大家看不懂的，在VBScript里""（两个引号）在字符串里会自动存为一个引号，在JavaScript里\"等于引号，所以这里才会出现这么多稀奇古怪的东西……没办法，谁叫这个年头语言多。

现在只要把那段代码插到程序的最开头，当然要是在<%里面，然后把最后一句话改成<%=convertJS("你是第"&no&"个来客")%>

就可以了，图象输出的同理。然后在页面的你想要加入计数器的地方输入<script language="javascript" src=count.asp></script>，大功告成，看看你的成果吧。

我想大部分读者学会编写这个基本的计数器以后以后会不满足，要是能够支持多用户就更好了。接下来就让我们接触ASP应用的核心，使用数据库来作为数据源。在编写之前我先介绍一些东西：

1. ASP使用内置的ADODB控件提供强大的对各种数据库/源的操作，可以使用SQL Server，MS Access，Dbase等各种数据库，你可以在控制面版->管理工具->数据源(ODBC)中找到可以支持的数据库类型的列表。而数据源按照调用方式又可以分为两类，分别是文件型和DSN型。前者可以通过直接输入路径调用，后者则是要通过ODBC设置将一DSN连接到一数据库上，然后在程序中以这个DSN的名称连接。前者的好处是不用服务器端的设置，适合免费空间的用户；后者则在效率和安全上高的多，也方便管理。幸好两者的调用差别不大，下面就给出：

<%

dim conn,connstr,nowpath

nowpath=Server.MapPath("databas\count.mdb")

connstr1="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & nowpath & ";" '这个是文件型

connstr2="count" 'count是系统DSN名称，可以自己设置。

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr1 '或者conn.open connstr2

%>

conn就是一个数据库连接的对象引用，这个和前面的文件操作对象是一个性质，应该不难理解。然后通过open方法建立连接，下面为open方法的格式

connection.Open ConnectionString, UserID, Password, OpenOptions

ConnectionString就是说明连接类型的字符串，可以参照上面的connstr1和connstr2。UserID和Password是用于加密的或是有验证的数据源，如果要访问只要正确填写就可以。OpenOptions我们先不讨论。建立好连接后，以后我们所有的数据库操作都要通过这个对象引用conn来进行。

2. 我们这次使用一个简单的Access数据库来储存计数器的数据，如果你不会使用的话……快点去自学，别者就是初学Asp时顺便搞定这个的。这个数据库有一个表（Table）名称为countguest，里面有两个列（Field），分别是ID和guests，类型分别为自动编号和数字-长整型。主键自然是ID。你可以先输入几个数据项。

3. 调用计数器的方法没有太大的变化，但为了能够告诉计数器我们使用的是哪一个用户，要传输给她一个数据，格式为count.asp?id=x(x是对应数据库中的ID)。至于如何取得这个数据我们马上会提到

4. 依旧是权限问题，要求和前面一模一样，否则出问题你都不知道是怎么回事。吼吼。

好了，又到展示我们的代码的时候了

<%

Function convertJS(strInput)

Dim temp

Temp=Replace(strInput,"""","\""")

Temp="document.write(""" & temp & """);"

ConvertJS=temp

End Function

dim conn,connstr,nowpath,dbNumber,id,no

'打开数据库连接

nowpath=Server.MapPath("databas\count.mdb")

connstr="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & nowpath & ";"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

'接受数据输入

id=Request.queryString("id")'取得名称为id的字串

if id="" or not IsNumeric(id) then Response.End '验证输入合法性，如果为空或不是数字就结束程序

set dbNumber=conn.Execute("Select * from countguest where id=" & id) '读入数据项

if dbNumber.EOF then Response.End '如果没有数据即不存在这个ID就结束程序

no=dbNumber("guests") '将访客数读入变量，输出用

conn.execute "Update countguest SET guests = guests + 1 where id="&id

%>

<%=convertJS("你是第"&no&"个来客")%>

有了前面的经验，这次我把主要的注释都标上了。碰到的几个新方法和函数我来详细介绍一下:

Request.queryString(argName)

聪明的读者一定看出来这个也是ASP六大对象之一，它的用途是把URL中附带的参数截取下来，像我们的"count.asp?id=1"后面的"id=1"就是。ArgName就是想要获取的参数的名称，如果有不止一个值会用逗号分隔开。如果直接使用Request.queryString就会把所有的参数都返回。

Response.End

这句就相当于Basic里的End。开始说原理的时候不是提到ASP有一个缓存区么？这句话的作用就是把缓存里的东西全部输出，然后结束程序。

程序里的dbNumber是一个对数据项的引用，注意是引用而不是实例。

set dbNumber=conn.Execute("Select * from countguest where id=" & id)

这句话中的conn.Execute就是让数据库对象执行一句SQL命令，参数就是这个SQL命令。具体的SQL命令的说明可以参考有关书籍，这里我只是简单的介绍。Select语句的用途是调入符合条件的数据，其格式为：

SELECT [predicate] { * | table.* | [table.]field1 [AS alias1] [, [table.]field2 [AS alias2] [, ...]]}

FROM tableexpression [, ...] [IN externaldatabase]

[WHERE... ]

[GROUP BY... ]

[HAVING... ]

[ORDER BY... ]

[WITH OWNERACCESS OPTION]

其中*就是所有的数据项，where跟一个条件表达式，满足条件的才会被选中。From后跟的是表格名，例如我们这里的countguest。

后面的Update语句是用来更新数据的，用法为：

UPDATE table

SET newvalue

WHERE criteria;

这个可以参照Select中有关的参数。

如此，一个支持多用户的使用数据库的计数器就完成了，还不去好好试试？

注意：你的ASP 的使用者可是各色各样的人，很难保证他们不会搞什么破坏，或者某些人作出无意之举。本程序一开始对输入参数的验证就是为了防止出错情况的出现。当然你可以用一个On Error解决掉一切问题，但是这不是一个负责的程序员的作风。写程序时要考虑到各种情况，这个是相当难做到的一点，需要经验的增加，以及，最重要的对自己程序的一颗负责和热爱的心。

后记

显而易见这次介绍的两个程序都是以教学为目的，旨在教会大家一些简单的ASP应用。其实还有很多功能可以完善，例如添加用户，删除用户，修改记录以及记录下用户的IP使其不会短时间内重复记数。这些都是可以继续做下去的内容。只有想不到，没有做不到，只要明白这点和足够的耐心就一定能写出好的ASP程序。等到各位有好作品，别忘了让我也欣赏一下，写好程序可是一门艺术哦。加油吧！

PS: 本文所附的所有程序都可以自由使用。

（责任编辑 Ray hotray@ccidnet.com）