asp源码应用

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:53:03
通过ASP代码查找文本内的字符~并输出显示~~ 如果可以 追加分数50
在asp页面中提交数据然后 查找文本内的内容 然后输出显示~~

抱歉 你的代码 无法运行~~

这个是一个函数，根据你传的路径，读取改文件的文本，你调用这个函数就可以了读取任意文件的内容

Function readall(path)
dim fsoread,fileread
set fsoread=server.CreateObject("Scripting.FileSystemObject")
Set fileread = fsoread.OpenTextFile(Server.MapPath(path),1)

body = fileread.readall

fileread.close
set fileread=nothing
set fsoread=Nothing
readall = body
End Function

set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("../config.txt")
set txt=fs.opentextfile(file,1,true)
response.write txt.ReadAll

没太明白你的意思,不知道这段对你有没有用