asp获取文本域的值
怎么用ASP代码或取文本文档的一条记录,如:文本文件A里面的内容是这样:12222222222222222222222333333333333344444444那么我想或...
怎么用ASP代码或取文本文档的一条记录,
如:文本文件A里面的内容是这样:
122222222222 22222222222
3333333333333 44444444
那么我想或取第一条记录后,把或取的记录显示在页面上,并把文本文档里面的已被或取的内容删掉!
我不太懂这些啊,能把整个网页的代码写出来不!要读取后把读取的记录删掉
还有就是这些代码在哪用啊,怎么调用到Dreamweaver 8里去啊 展开
如:文本文件A里面的内容是这样:
122222222222 22222222222
3333333333333 44444444
那么我想或取第一条记录后,把或取的记录显示在页面上,并把文本文档里面的已被或取的内容删掉!
我不太懂这些啊,能把整个网页的代码写出来不!要读取后把读取的记录删掉
还有就是这些代码在哪用啊,怎么调用到Dreamweaver 8里去啊 展开
展开全部
下面的 VBScript 示例示范了如何打开文件,和如何写数据到文件中并从文件读取数据:
Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行。
Response.Write "Writing file <br>"
f1.WriteLine "Hello World"
f1.WriteBlankLines(1)
f1.Close
' 读取文件的内容。
Response.Write "Reading file <br>"
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadLine
Response.Write "File contents = '" & s & "'"
ts.Close
End Sub
下面例子举例说明如何使用 Write 方法:
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 "嗨,你好!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteToFile = f.ReadLine
End Function
Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行。
Response.Write "Writing file <br>"
f1.WriteLine "Hello World"
f1.WriteBlankLines(1)
f1.Close
' 读取文件的内容。
Response.Write "Reading file <br>"
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadLine
Response.Write "File contents = '" & s & "'"
ts.Close
End Sub
下面例子举例说明如何使用 Write 方法:
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 "嗨,你好!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteToFile = f.ReadLine
End Function
参考资料: © 2000 Microsoft Corporation 版权所有。保留所有权利。使用规定。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询