请问ASP如何对文件进行写操作？请高手赐教，先谢了。

2003-10-09 04:59:57 112 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

详解Unity中的粒子系统Particle System (三) 上一篇我们详细讲解了有关主模块的全部内容，已经对粒子系统的基本运作有了足够的了解，本篇就来讲一下被粒子系统默认启用的Emission、Shape、Renderer模块又在粒子系统中扮演着怎么样的作用吧。阅读详情

我在做个项目，客户要求使用日志文件对管理员的每次操作进行记录，我想使用一个txt文档记录，可是不知道怎么往里面写内容，请高手点拨赐教，急用，在线等候。

...全文

智能车竞赛循迹控制：基于状态机的直道、弯道、十字路口处理策略在嵌入式系统与自动控制领域，PID控制算法是实现精确运动控制的基础。其原理是通过比例、积分、微分三个环节的线性组合，对系统误差进行实时校正，从而实现对目标值的快速、稳定跟踪。这项技术的核心价值在于为各类自动控制系统提供了稳定、可靠且易于实现的解决方案，广泛应用于机器人、无人机、工业自动化等场景。在智能车循迹这类特定应用中，赛道环境复杂多变，单一的PID控制器难以应对直道、弯道、十字路口等不同赛道元素的控制需求。此时，有限状态机（FSM）作为一种高效的**决策框架**，能够根据实时感知的赛道特征（如边线曲率、阅读详情

wtf577

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

mumunothing 2003-10-09

打赏
举报

给你说个简单点的
下面的为将数据s写入文档a.txt

set fso=server.createobject("scripting.filesystemobject") 建立filesystemobject对象
filepath=server.mappath("a.txt") ’文档的路径
const forappending=8 '定义函数
set f=fso.opentextfile(filepath,forappending) ’打开文档
set f=fso.createtextfile(filepath) ‘或建立一个新文档
f.write s '将变量s写入文件

mumunothing 2003-10-09

打赏
举报

刚好我昨天看了关于asp写数据到文本文件的如下：

首先要注意forreadinng=1 以只读方式打开 forappending=8以可写的方式打开

Const ForReading = 1 '定义。因为forreadinging不是vbscript内定的常数
Dim FileName
FileName = "Book.txt" ’文本文件
' 添加来宾留言
Sub AppendMessage(strMessage)
Dim objFSO, strFileName, objInStream, strAllMessage, objOutStream
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strFileName = Server.MapPath(BookFileName)
If Not objFSO.FileExists(strFileName) Then
' 如果文件不存在建立此文件
Set objInStream = objFSO.CreateTextFile(strFileName, True, False)
objInStream.Write " "
objInStream.Close
Set objInStream = Nothing
End If
' 打开文本文件读取文件所有的内容
Set objInStream= objFSO.OpenTextFile(strFileName, ForReading, False, False)
strAllMessage = objinStream.ReadAll
Set objinStream = Nothing
' 将信息写回文件
strAllMessage = strMessage & strAllMessage
' 写入文本文件
Set objOutStream = objFSO.CreateTextFile(strFileName, True, False)
objOutStream.WriteLine(strAllMessage)
objOutStream.Close
Set objOutStream = Nothing
Set objFSO = Nothing
End Sub
' 显示文本信息
Function ShowMessages()
Dim objFSO, strFileName, objInStream, strAllMessage
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strFileName = Server.MapPath(BookFileName)
If Not objFSO.FileExists(strFileName) Then
' 如果文件不存在，则建立此文件
Set objInStream = objFSO.CreateTextFile(strFileName, True, False)
objInStream.Write " "
objInStream.Close
Set objInStream = Nothing
End If
' 打开文本文件读取文件全部的内容
Set objInStream= objFSO.OpenTextFile(strFileName, ForReading, False, False)
strAllMessage = objInStream.ReadAll
objInStream.Close
Set objOutStream = Nothing
Set objFSO = Nothing
ShowMessages = strAllMessage
End Function

windancer 2003-10-09

打赏
举报

http://www.tongyi.net/article/20030527/200305273596.shtml

windancer 2003-10-09

打赏
举报

用xml dom操作xml文件

wtf577 2003-10-09

打赏
举报

我试过楼上两位的方法了，但是都不是重新写入啊？我要记录的是每次操作，以前的不能被覆盖掉。

wtf577 2003-10-09

打赏
举报

你这个我也会诶，可是每次只是重复写，怎么能到那个文件的末尾呢？

xiaobaowu 2003-10-09

打赏
举报

下面的 VBScript 例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件：

Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行，并且带有新行字符。
tf.WriteLine("Testing 1, 2, 3.")
' 向文件写三个新行字符。
tf.WriteBlankLines(3)
' 写一行。
tf.Write ("This is a test.")
tf.Close
End Sub

不老书生 2003-10-09

打赏
举报

<%

dim sql,filename,fs,myfile,x,link
Set fs = server.CreateObject("scripting.filesystemobject")

filename = "E:\htmfiles\"&left(strbianhao,4)&"\b" & strbianhao & ".txt"

if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

set myfile = fs.CreateTextFile(filename,true)

dim strLine,responsestr

strLine="文件内容"

response.write strLine
myfile.writeline strLine

set myfile = nothing
Set fs=Nothing

%>

请问ASP如何对文件进行写操作？请高手赐教，先谢了。

相关推荐