课9

    SERVER对象
   一、server.Execute(path)  的使用举例

  二、Server.HTMLEncode 和Server.URLEncode的方法
         Server.HTMLEncode(string)的用法：将string 进行编码，使它不被解释为HTML语法
         Server.URLEncode(string)的用法
   三、Server.MapPath方法
          Server.MapPath("page.asp")   '实际路径
          Server.MapPath("../")  '父目录实际路径
          Server.MapPath("./") '现在目录
          Server.MapPath("/") '根目录

 四、存取服务器的文件夹和文件
   
   FileSystemObject对象
   检查指定的磁盘、文件夹和文件是否存在
   ----------------------------------------------
  dim objFSO
   set objFSO=server.CreateObject("Scripting.FileSystemObject")
    if objFSO.DriveExists("C:") then
       Response.write "C: 磁盘是存在的" & "<br>"
   else
      Response.write "C:磁盘不存在" & "<br>"
  end if
   if objFSO.FolderExists(server.MapPath("ss")) then
     Response.write "文件夹存在" & "<br>"
else
    Response.write "文件夹不存在" & "<br>"
 end if
   if objFSO.FileExists(server.MapPath("ss\lx.asp")) then
     Response.write "文件存在" & "<br>"
  else
    Response.write "文件不存在" & "<br>"
 end if
set objFSO=Nothing 
------------------------------------------------------------------
文件夹的建立\删除
--------------------------------------------------------------
   dim objFSO
     Set objFSO=server.CreateObject("Scripting.FileSystemObject")
       objFSO.CreateFolder(Server.MapPath("NewFolder"))
       Response.write "新文件夹实际路径为& Server.MapPath("NewFolder")
   Set objFSO=Nothing
---------------------------------------------------------------
   dim objFSO
   set objFSO=server.CreateObject("scripting.FileSystemObject")
  if objFSO.FolderExists(server.MapPath("\ss")) then
  objFSO.DeleteFolder Server.MapPath("\ss")
  response.write "删除成功"
 else
   Response.write "没有此文件夹"
  end if
 set objFSO=nothing
------------------------------------------------------------------------
  文件的建立和删除
   objFSO.createTextFile(server.MapPath("dd.asp"))
   objFSO.deleteFile (server.MapPath("dd.asp"))


  ------------------------------------------------------------------------

    文件的打开和读取与写入
1 打开文件
    objFSO.OpenTextFile(FileName[ 文件名],lomode[1只读 2可写 3加到后面],Create[是否重新建立],Format[文件格式])
     用法：set objFSO=Server.createObject("scripting.FileSystemObject")
                 set objTS=objFSO.OpenTextFile(server.MapPath("a.txt"),1,true)
   -----------------------------------------------------------------------------
   读取文件字符
      set objFSO=Server.createObject("scripting.FileSystemObject")
                 set objTS=objFSO.OpenTextFile(server.MapPath("a.txt"),1)
      do while not objTs.atEndOfStream
           Chars=objTs.Read(6)
           Response.write Chars & "<br>"
      loop
    objTS.close
    set objTS=nothing
    set objFSO=nothing
   ---------------------------------------------------------------------------------
   读取一行
      set objFSO=Server.createObject("scripting.FileSystemObject")
                 set objTS=objFSO.OpenTextFile(server.MapPath("a.txt"),1)
      do while not objTs.atEndOfStream
           Chars=objTs.ReadLine
           Response.write Chars & "<br>"
      loop
    objTS.close
    set objTS=nothing
    set objFSO=nothing
-------------------------------------------------------------------------------------------
   写入文件
   objTS.write(string)
     set objFSO=Server.createObject("scripting.fileSystemObject")
     set objTS=objFSO.OpenTextFile(server.MapPath("a.txt"),2,true)
     objTS.write " 好好学电脑"
      objTS.writeLine("快快乐乐学ASP")
      objTS.close
     set objTS=Nothing
     set objFSO=Nothing

----------------------------------------------------------------------
题目:写个文件,打开文件hh.txt,并把读出的数据写入dd.txt中
dim objFSO
     Set objFSO=server.CreateObject("Scripting.FileSystemObject")
       dim dd(3)
     set objTT=objFSO.openTextFile(server.MapPath("hh.txt"),1,true)
  Set objFF=objFSO.openTextFile(server.MapPath("dd.txt"),2,true)
   DO While not objTT.atEndOfStream
       ss=objTT.readline
       objFF.writeline(ss)      
   loop
     
    
  
   Set objFSO=Nothing

 --------------------------------------------------------
  Server--Side --Include 用法