ASP Server 对象

ASP Server 对象的作用是访问有关服务器的属性和方法。

实例

此文件最后被修改的时间是？

探测文件的最后更新时间。 

  1. <html>
  2. <body>
  4. <%
  5. Set fs = Server.CreateObject("Scripting.FileSystemObject")
  6. Set rs = fs.GetFile(Server.MapPath("/example.mde/demo.mde_lastmodified.md"))
  7. modified = rs.DateLastModified
  8. %>
  9. 本文件的最后修改时间是：<%response.write(modified)
  10. Set rs = Nothing
  11. Set fs = Nothing
  12. %>
  14. </body>
  15. </html>

打开并读取某个文本文件

本例会打开文件 "Textfile.txt" 以供读取。 

  1. <html>
  2. <body>
  4. <%
  5. Set FS = Server.CreateObject("Scripting.FileSystemObject")
  6. Set RS = FS.OpenTextFile(Server.MapPath("/example.mde") & "\textfile.txt",1)
  7. While not rs.AtEndOfStream
  8.       Response.Write RS.ReadLine
  9.       Response.Write("<br />")
  10. Wend 
  11. %>
  13. <p>
  14. <a href="/example.mde/textfile.txt">查看此文本文件</a>
  15. </p>
  17. </body>
  18. </html>

自制的点击计数器

本例可从一个文件中读取一个数字，并在此数字上累加 1，然后将此数写回这个文件。 

  1. <%
  2. Set FS=Server.CreateObject("Scripting.FileSystemObject")
  3. Set RS=FS.OpenTextFile(Server.MapPath("/example.mde/counter.txt"), 1, False)
  4. fcount=RS.ReadLine
  5. RS.Close
  7. fcount=fcount+1
  9. 'This code is disabled due to the write access security on our server:
  10. 'Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)
  11. 'RS.Write fcount
  12. 'RS.Close
  14. Set RS=Nothing
  15. Set FS=Nothing
  17. %>
  18. <html>
  19. <body>
  20. <p>
  21. 本页已被访问了 <%=fcount%>  次。
  22. </p>
  23. </body>
  24. </html>

Server 对象

ASP Server 对象的作用是访问有关服务器的属性和方法。其属性和方法描述如下：

属性

属性 描述
ScriptTimeout 设置或返回在一段脚本终止前它所能运行时间（秒）的最大值。

方法

方法 描述
CreateObject 创建对象的实例（instance）。
Execute 从另一个 ASP 文件中执行一个 ASP 文件。
GetLastError() 返回可描述已发生错误状态的 ASPError 对象。
HTMLEncode 将 HTML 编码应用到某个指定的字符串。
MapPath 将一个指定的地址映射到一个物理地址。
Transfer 把一个 ASP 文件中创建的所有信息传输到另一个 ASP 文件。
URLEncode 把 URL 编码规则应用到指定的字符串。