ASP编程：ASP进修之FSO组件操作实例技能(8)

使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。fso|技能        用到如今，你或许的确学到了很多，但或许会提出疑问：这个放在FSO文件操作里有甚么感化呢？
  　　那上面才是咱们的正题：用FSO停止复杂的文本投票。
  　　投票页面重要的就是显示各类项目标投票数，并响应赋于某个变量。然后判别本次投票的选相，绝对应地将投票数值加1，终了后再将一切值持续写入文本。
  　　1，一个HTML表单页Website.html
  　　以做投票点击的平台。
  用到如今，你或许的确学到了很多，但或许会提出疑问：这个放在FSO文件操作里有甚么感化呢？
  那上面才是咱们的正题：用FSO停止复杂的文本投票。
  <form action="result.ASP" method="post">
  <input type="radio" name="website" value="A" checked> cnbruce.com<br><input type="radio" name="website" value="B"> blueidea.com<br><input type="radio" name="website" value="C"> it365cn.com<br><input type="radio" name="website" value="D"> 5d.cn<br><input type="submit"><input type="reset">
  　　2，承受表单页值的result.asp
  <%whichfile=server.mappath("site.txt")
  set fso=createobject("Scripting.FileSystemObject")
  set thisfile=fso.opentextfile(whichfile)
  my_string=thisfile.read
  linea_num = instr(my_string,"A")
  b_num = instr(my_string,"B")
  c_num = instr(my_string,"C")
  d_num = instr(my_string,"D")
  total_num = len(my_string)
  a_value = mid(my_string,a_num+1,b_num-a_num-1)
  b_value = mid(my_string,b_num+1,c_num-b_num-1)
  c_value = mid(my_string,c_num+1,d_num-c_num-1)
  d_value = mid(my_string,d_num+1,total_num-d_num)
  select case request.form("website")
  case "A": a_value=a_value+1
  case "B": b_value=b_value+1
  case "C": c_value=c_value+1
  case "D": d_value=d_value+1
  end select
  mynew_string="A" & cstr(a_value) & "B" & cstr(b_value) & "C" & cstr(c_value) & "D" & cstr(d_value)
  set newfile=fso.createtextfile(whichfile)
  newfile.writeLine(mynew_string)
  newfile.closeset fso=nothing%>以后投票：<br>cnbruce.com:<%=a_value%>
  <br>blueidea.com:<%=b_value%><br>
  it356cn.com:<%=c_value%><br>
  5d.cn:<%=d_value%><br>
  <a href="website.html">前往持续</a>
  　　有了下面函数的基本，看这个应当不是很难的。
  　　3，最初不要忘了的记数文件site.txt
  　　格局：A1B1C1D1
  　　调试
  　　OK，三个文件就能够胜任一个很复杂的投票体系了，假如要增强，需求细化的则联合之前的常识吧，好比投过一次后设置session或cookies，当再次投票时分判别假如session或cookies存在则不答应，也就是复杂的投票防作假手腕了……固然更多的仍是要本人去想去理论了。
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；