ASP教程之FSO组件之文件操纵（中）

缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。学会了FSO提取文件值，也学会了将信息输出到文件中，那上面就再来使用使用下。<P>　　不晓得你有无如许的习气：看到一个文件，不盲目的右键选择用记事本翻开。呵呵，几近没有哪一个文件是不成以的。以是如今，能够默许一切文件都是文本，只是后缀名分歧罢了；那末也就是说，如今能够提取任一文件的内容信息。OK，就来设想一下：<P>　　1，提取一个文件的路径（接纳file按钮举行查找定位）
　　2，将该路径文件翻开，并读取一切行
　　3，显现读取的信息<P>　　1、viewcode.asp<P>

2. <%
3. FunctionShowCode(filename)
4. Setfso=Server.CreateObject("Scripting.FileSystemObject")
5. Setcnrs=fso.OpenTextFile(filename,1)
6. WhileNotcnrs.AtEndOfStream
7. rsline=cnrs.ReadLine
8. rsline=server.HTMLEncode(rsline)
9. Response.Write(rsline&"<br>")
10. Wend
11. endFunction
12. %><P><formaction="viewcode.asp"method="post">
13. 输出文件名<inputtype="file"name="filename">
14. <inputtype="submit"value="检察源程序">
15. </form><%
16. file=request.form("filename")
17. response.write(file&"源程序以下<hr>")
18. Iftrim(file)""then
19. CallShowCode(file)
20. EndIf
21. %>

复制代码

<P>　　以上程序调试时，能够选择html，asp页面，也能够翻开任一使用程序等。<P>　　界说的ShowCode函数，次要感化是翻开、读取并显现文件中一切信息内容。注重增加了server.HTMLEncode(rsline)，针对含有尺度HTML代码的文件。<P>　　显现文件中一切行即用一前提轮回举行遍历显现了。<P>

2. WhileNotcnrs.AtEndOfStream
3. ...
4. Wend

复制代码

<P>　　接着，上面的这个例题详细就触及open办法的成绩了，还记得？一般情形之下翻开文件是接纳fso.OpenTextFile("c:        estfile.txt",1)，参数1的感化是：以只读形式翻开文件。不克不及对此文件举行写操纵。假如如今已存在一文件，必要举行追加写进，则该怎样办呢？复杂，参数为8便可。<P>　　这有甚么用呢？呵呵，亚玛逊的收集故事接龙就是云云：能接龙就必要起首要显现原有故事，然后本人增加故事写进文件。这个中的写进文件最考究的就是追加写进了。以是上面就能够完成。<P>　　2、story.asp<P>

2. <%
3. Ifnotrequest.Form("NextLine")=""then
4. Setfso=Server.CreateObject("Scripting.FileSystemobject")
5. textfile1=Server.MapPath("story.txt")
6. setcnrs=fso.OpenTextFile(textfile1,8)
7. cnrs.WriteLine(Request.Form("NextLine"))
8. cnrs.Close
9. endif
10. %>
11. 故事以下：
12. <%
13. Setfso=Server.CreateObject("Scripting.FileSystemObject")
14. textfile1=Server.MapPath("story.txt")
15. setcnrs=fso.OpenTextFile(textfile1,1)
16. whilenotcnrs.AtEndOfStream
17. Response.Write""&cnrs.ReadLine
18. wend
19. cnrs.close
20. %>
21. <hr>
22. <formmethod="post"action="story.asp">
23. 请输出这个故事的新行:<inputname="NextLine"type="text"size="70">
24. <inputtype="submit"value="提交">
25. </form>

复制代码

<P>　　全部就是一很复杂的读失信息和到场信息的夹杂使用，信任有了后面的基本看懂应当不成成绩。固然还短少个story.txt文件，内里写好故事开首就能够了。<P>　　调试<P>　　再上面，持续来，该偏重点次要就是实习一些函数的利用技能了。<P>　　1，instr函数：前往某字符串在另外一字符串中第一次呈现的地位。
　　好比如今查找字母“A”在字符串“A110B121C119D1861”中第一次呈现的地位，则能够<P>

2. <scriptlanguage=vbs>
3. my_string="A110B121C119D1861"
4. a_num=instr(my_string,"A")
5. alert(a_num)
6. </script>

复制代码

<P>　　一样字母“B”的地位也就可以断定。如今就来最关头的：提早字母“A”和“B”两头的值“110”。
　　还记得mid函数吗？mid函数的次要感化是：从字符串中前往指定命目标字符。
　　好比如今的“110”则应当是从字符串的第2位获得3个单元的值。<P>

2. <scriptlanguage=vbs>
3. my_string="A110B121C119D1861"
4. a_value=mid(my_string,2,3)
5. alert(a_value)
6. </script>

复制代码

<P>　　但假想一下：假如不是“110”，而是“1100”，那是否是要提取4位……如许就显出程序的不敷完善。
　　以是持续思索：所提取的值，永久是在字母“A”前面的，且值也永久是在字母“A”和“B”之间的，那末只需分离提掏出“A”、“B”的地位，则两头数值的肇端位应是字母“A”位+1，两头数值的长度应是字母“B”位-字母“A”位-1
　　那末如今就能够让程序完善起来：<P>

2. <scriptlanguage=vbs>
3. my_string="A110B121C119D1861"
4. a_num=instr(my_string,"A")
5. b_num=instr(my_string,"B")
6. a_value=mid(my_string,a_num+1,b_num-a_num-1)
7. alert(a_value)
8. </script>

复制代码

<P>　　OK，那末如今你也就完整能够把字母“B”、“C”、“D”前面的值逐一提取了。
　　固然必要注重的就是“D”前面有几位怎样取呢？接纳字符串总长度-字母D地点地位数就能够了。<P>

2. <scriptlanguage=vbs>
3. my_string="A110B121C119D1861"
4. a_num=instr(my_string,"A")
5. b_num=instr(my_string,"B")
6. c_num=instr(my_string,"C")
7. d_num=instr(my_string,"D")
8. total_num=len(my_string)
9. a_value=mid(my_string,a_num+1,b_num-a_num-1)
10. b_value=mid(my_string,b_num+1,c_num-b_num-1)
11. c_value=mid(my_string,c_num+1,d_num-c_num-1)
12. d_value=mid(my_string,d_num+1,total_num-d_num)
13. alert(a_value)
14. alert(b_value)
15. alert(c_value)
16. alert(d_value)
17. </script>

复制代码

<P>　　用到如今，你大概的确学到了很多，但大概会提出疑问：这个放在FSO文件操纵里有甚么感化呢？
　　那上面才是我们的正题：用FSO举行复杂的文本投票。<P>　　投票页面主要的就是显现各种项目标投票数，并响应赋于某个变量。然后判别本次投票的选相，绝对应地将投票数值加1，终了后再将一切值持续写进文本。<P>　　1，一个HTML表单页website.html
　　以做投票点击的平台。<P>用到如今，你大概的确学到了很多，但大概会提出疑问：这个放在FSO文件操纵里有甚么感化呢？
那上面才是我们的正题：用FSO举行复杂的文本投票。<P>

2. <formaction="result.asp"method="post">
3. <inputtype="radio"name="website"value="A"checked>cnbruce.com<br>
4. <inputtype="radio"name="website"value="B">blueidea.com<br>
5. <inputtype="radio"name="website"value="C">it365cn.com<br>
6. <inputtype="radio"name="website"value="D">5d.cn<br>
7. <inputtype="submit">
8. <inputtype="reset">

复制代码

<P>　　2，承受表单页值的result.asp<P>

2. <%
3. whichfile=server.mappath("site.txt")
4. setfso=createobject("Scripting.FileSystemObject")
5. setthisfile=fso.opentextfile(whichfile)
6. my_string=thisfile.readline<P>a_num=instr(my_string,"A")
7. b_num=instr(my_string,"B")
8. c_num=instr(my_string,"C")
9. d_num=instr(my_string,"D")
10. total_num=len(my_string)<P>a_value=mid(my_string,a_num+1,b_num-a_num-1)
11. b_value=mid(my_string,b_num+1,c_num-b_num-1)
12. c_value=mid(my_string,c_num+1,d_num-c_num-1)
13. d_value=mid(my_string,d_num+1,total_num-d_num)<P>selectcaserequest.form("website")
14. case"A":a_value=a_value+1
15. case"B":b_value=b_value+1
16. case"C":c_value=c_value+1
17. case"D":d_value=d_value+1
18. endselectmynew_string="A"&cstr(a_value)&"B"&cstr(b_value)&"C"&cstr(c_value)&"D"&cstr(d_value)
19. setnewfile=fso.createtextfile(whichfile)
20. newfile.writeLine(mynew_string)
21. newfile.close
22. setfso=nothing
23. %>
24. 以后投票：<br>
25. cnbruce.com:<%=a_value%><br>
26. blueidea.com:<%=b_value%><br>
27. it356cn.com:<%=c_value%><br>
28. 5d.cn:<%=d_value%><br>
29. <ahref="website.html">前往持续</a>

复制代码

<P>　　有了下面函数的基本，看这个应当不是很难的。<P>　　3，最初不要忘了的记数文件site.txt<P>　　格局：A1B1C1D1<P>　　调试<P>　　OK，三个文件就能够胜任一个很复杂的投票体系了，假如要增强，必要细化的则分离之前的常识吧，好比投过一次后设置session大概cookies，当再次投票时分判别假如session大概cookies存在则不同意，也就是复杂的投票防作假手腕了……固然更多的仍是要本人往想往理论了。

Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

那么，ASP.Net有哪些改进呢？

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

仓酷云

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。