Function WriteToFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "Hello world!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteToFile = f.ReadLine
End Function
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "Hello world!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteToFile = f.ReadLine
End Function
解决方案 »
- 求js获取URL部分的方法
- javascript jquery
- 菜鸟 Jquery 获得 当前元素
- 怎样用javascript实现图形样式的网站访问量计数器
- 简单题目送分,在线等,关于js互相调用变量
- 取document.body的告诉的怪异问题,clientHeight,scrollHeigh等都一样,而且都不正确
- 怎么样修改这段代码,使得插入图片的UBB代码位于TEXTAREA的光标处?而不是在末尾。
- 坦克大战游戏闯关功能用HTML5+Jjavascript在网页中实现思路是什么
- 一个问题?
- Javascript怎么访问给定的API(可能是所谓的跨域问题)?
- 请教一个替换问题!
- 阿信 Treeview的问题
set myfile=server.createobject("scripting.filesystemobject")
set myfiledz=myfile.CreateTextFile(c;\mys.txt,true)
myfiledz.writeline("mys")
myfiledz.close
response.write("你的文件已创建,数据已加入!")
set fso=Server.CreateObject("Scripting.FileSystemObject")
set f=fso.opentextfile(Server.MapPath("count.txt"),2)
f.writeline mys
f.close
set f=nothing
set fso=nothing
End Functionwhile not rs.eof
myS="|"&rs.fields("area")
Savetotxt(myS)
rs.movenext
wend我数据库中的表是以下这样:
可为什么我每次查完写入count.txt文件的都不对,
查product_id=1 显示|aa
查product_id=2 显示|xizangdiyu_ID product_id area
1 1 西藏
2 2 cc
3 1 新疆
4 1 aa
5 2 xizang