VBScript+Asp(15)

VBScript+Asp(15)
2011年07月18日
　　Const ForReading=1,ForWriting=2
　　dim fso,f
　　Set fso=CreateObject("Scripting.FileSystemObject")
　　Set f=fso.OpenTextFile("c:\testfile.txt",ForWriting,True)
　　f.WriteBlankLines 2
　　f.WriteLine "我的前面有两个换行符。"
　　Set f=fso.OpenTextFile("c:\testfile.txt",ForReading)
　　WriteBlankLinesToFile=f.ReadAll
　　End Function
　　%>
　　-----------------------------------------------------------------
　　
　　"
　　Next
　　AddNewFolder=s
　　End Function
　　%>
　　
　　------------------------------------------------------------------
　　
　　
　　域的有效性检验
　　
　　
　　
　　请输入您的姓名:
　　请输入您的年龄:
　　
　　
　　
　　
　　
　　 
　　
　　
　　---------------------------------------------------------------------
　　
　　
　　域的有效性检验
　　
　　
　　
　　请输入您的姓名:
　　请输入您的年龄:
　　
　　
　　
　　
　　
　　 
　　
　　
　　显示结果：
　　
　　
　　
　　--------------------------------------------------------------------
　　
　　
　　变化的文字
　　
　　
　　
　　
　　
　　
　　
　　Sub text1_OnMouseMove()
　　document.frm1.text1.VALUE="欢迎您来到我身边!"
　　End Sub
　　Sub text1_OnMouseOut()
　　document.frm1.text1.VALUE="真的要走了吗?"
　　End Sub
　　
　　 
　　
　　
　　-------------------------------------------------------------------
　　
　　
　　
　　
　　
　　几个城市
　　
　　
　　
　　
　　
　　请选择一些你想去的城市，可以选择多个(同时按Ctrl)。
　　
　　
　　
　　北京
　　上海
　　深圳
　　广州
　　重庆
　　杭州
　　哈尔滨
　　
　　
　　
　　
　　 
　　
　　
　　显示结果：
　　-------------------------------------------------------------------