ASP内建的SERVER对象,ASP对象与组件

讲这一章之前，我们先回答前面的问题吧。（什么问题？回头看看吧！）

看一下以下的源代码，你就清楚了！

<%@ Language=VBScript %>

<HTML>

<HEAD>

</HEAD>

<BODY>

<%if Request.queryString("txtname")<>"" then%>

valName=Request.queryString("txtname")

valSex=Request.queryString("txtSex")

valHob=Request.queryString("txtHob")

Response.write("姓名：" & valName & "<BR>")

Response.write("性别：" & valSex & "<BR>")

Response.write("爱好：" & valHob & "<BR>")

<%else%>

<P>姓名：

<P>性别：

<P>爱好：

</FORM>

<%end if%>

</BODY>

</HTML>

红色的部分为修改处，使用GET，同样能实现和POST相同的功能但GET有一个不好的地方，就是用户输入的资料被暴露了，并且，受到字符长度的控制，所以，除了必要使用GET外，一般最好使用POST方法。

"测试"一下吧

留意一下HTTP 的输入栏部分，是不是地址后跟了一窜字符。ASP使用？号来区分地址与数据域部分，以&号来分割每个数据域，同时，使用Request.对象的queryString 方法来接收每个数据域，好了，这个例子就讲到这里吧。我们现在进入第三部分的学习。

前一章，我们谈到的ASP提供的五个对象，（Server,Request,Response,Session,Application）,这一章，我们主要谈一下SERVER对象，它有一个重要的方法CREATEOBJECT，使用它，你能使用到第三方的组件（当然，你也可以用VB，VC++等写你自己的组件）。

如：你需要一个强大的发E-MAIL的程序，但就凭着ASP自带的功能是无法实现的。（当然ASP也带了E-MAIL组件，但功能不强），这时，如果你是程序高手的话，你就可以使用VB或VC写一些组件，或去购买（一般，INTERNET上有免费的），安装完后你就能用ASP通过Server.CreateObject（"ProgID"）来直接使用了。你要懂得ProgID是如何得到的，就必须明白COM技术，COM技术过几章我们再去了解，ASP自带的一些组件，ProgID都是固定的，所以，你无须担心如何找ProgID。

谈到ASP自带的一些组件，我们就列举一下几个常用的。

文件组件 File Access，可用其访问文件。

数据库组件：专门用来访问数据库的（如SQL，ORACLE，ACCESS等）

E-MAIL组件：不用说，发邮件的嘛。

来，我们先做一个例子吧。如何使用ASP做自己的计数器。

<%@ Language=VBScript %>

<HTML>

<HEAD>

</HEAD>

<BODY>

visitorFile=Server.MapPath("vistor.txt")

set FileObject=Server.CreateObject("Scripting.FileSystemObject")

set Out=FileObject.OpenTextFile(visitorFile,1,False,False)

visitors=Out.ReadLine

visitors=visitors+1

Response.Write("你是第：" & visitors & "访问人数")

set Out=FileObject.CreateTextFile(visitorFile,TRUE,FALSE)

Out.WriteLine(visitors)

Out.close()

set FileObject=nothing

</BODY>

</HTML>

以上红色的代码部分就是实现计数器的核心代码。原理是通过从文件读取数值再加一，显示完毕后，再把数值写回文件中，就这么简单。

visitorFile=Server.MapPath("vistor.txt") ：找出vistor.txt 的服务器端的绝对路径

set FileObject=Server.CreateObject("Scripting.FileSystemObject")：看，这句就是通过CreateObject 建立一个文件对象，通过此对象，就可以访问文件了。Scripting.FileSystemObject 就是 ProgID。

set Out=FileObject.OpenTextFile(visitorFile,1,False,False)

打开vistor.txt文件

visitors=Out.ReadLine

读出vistor.txt的第一行（因为vistor.txt中，初始值为1，注意 vistor.txt中必须赋初始值，否则，就会出错）

set Out=FileObject.CreateTextFile(visitorFile,TRUE,FALSE)

重新建立vistor.txt 文件（覆盖原来的）

Out.WriteLine(visitors)

把新的数值写到文件中。本文只是用数值表示来访者，你可以稍加改动，替换成图片，便能实现你平时所看到的计数器其余的自己看吧，重点的我都说出来了。