Ⅰ ASP如何读取TXT文本内容
<%set fs=server.createobject("scripting.filesystemobject")file=server.mappath("read.txt")set txt=fs.opentextfile(file,1,true)if not txt.atendofstream thenline=txt.ReadAllresponse.write line & "<br>"end if%>line=txt.ReadAll'读取文件中的所有数据 line=txt.ReadLine'从文件中读取N个字节的数据line=txt.Read(N)'从文件中读取一行数据
Ⅱ 如何用asp获取指定文件夹下面的所有文件信息
利用FSO可以做到 但是你要注意文件夹的权限设置 <% Option Explicit dim infopath '当前路径 dim serverpath '服务器路径 dim objfso '文件组件 dim objfile '文件 dim objfolder '目录 dim objfoldercontents '所有文件 dim objfoldercount '临时数组变量-文件夹 dim objfileitem '临时数组变量-文件 infopath=request.servervariables("path_info") '得到文件相对路径 根据自己需要修改 serverpath=server.mappath(infopath) '得到文件绝对路径 根据自己需要修改 set objfso=createobject("scripting.filesystemobject") '实例文件组件 set objfile=objfso.GetFile(serverpath) '读取文件所在路径 set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录 set objfoldercontents=objfolder.files '所有文件付给数组 response.write "<table width=100% border=0><tr>" response.write "<td>文件名</td>" response.write "<td>文件属性</td>" response.write "<td>文件大小</td>" response.write "<td>更新日期</td></tr>" for each objfoldercount in objfolder.subfolders '循环显示文件夹 response.write "<tr><td><a href=?path="&objfoldercount.name&" target=""_blank"">"&objfoldercount.name&"</td>" '文件夹名称 response.write "<td>"&objfoldercount.type&"</td>" '文件夹属性 response.write "<td> </td>" '文件夹大小 response.write "<td>"&objfoldercount.DateCreated&"</td>" '时间 next for each objfileitem in objfoldercontents '循环 response.write "<tr><td><a href="&objfileitem.name&">"&objfileitem.name&"</a></td>" '文件名 response.write "<td>"&objfileitem.type&"</td>" '类型 response.write "<td>"&objfileitem.size&"k</td>" '文件大小 response.write "<td>"&objfileitem.datelastmodified&"</td></tr>" '更新日期 next response.write "</table>" %>
Ⅲ ASP读取文本文件啊
<html><head><http-equiv="Content-Type"content="text/html;charset=gb2312"><title></title></head><body><%LANGUAGE=VBScript%><%ConstForReading=1,ForWriting=2,ForAppending=8ConstTristateUseDefault=-2,TristateTrue=-1,TristateFalse=0Dimfilenamefilename="test.txt"’缺省相对路径是:winntSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.GetFile(filename)Setreadf=f.OpenAsTextStream(ForReading,TristateFalse)’第一个参数可选。输入/输出模式，是下列三个常数之一：’ForReading=1只读、ForWriting=2可读写或ForAppending=3追加’第二个参数也为可选。三个Tristate值之一，’指出以何种格式打开文件。忽略此参数，则文件以ASCII’格式打开。TristateUseDefault=-2以系统默认格式打开文件、’TristateTrue=-1以Unicode格式打开文件或TristateFalse=0’以ASCII格式打开文件。’也可用OpenTextFile方法打开文件s=readf.ReadLineDoWhilereadf.AtEndOfLine<>Trues=readf.ReadLineResponse.writes&""’逐行读文件并写出Loopreadf.close%></body></html>
Ⅳ ASP如何实现从TXT文件中读取内容并输出到页面
Set fso = CreateObject("Scripting.FileSystemObject")Set htmlwrite=fso.OpenTextFile(server.MapPath("xxx.txt")) strOut=htmlwrite.ReadAll htmlwrite.close response.write(strOut)大体意思就是这些 其他的再自己回补充答下
Ⅳ 如何用ASP读取TXT文件
whichfile=server.mappath("txt.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set txt = fso.OpenTextFile(whichfile,1) While Not txt.AtEndOfStream rline =txt.ReadLine'读取一行制 ….下面他就循环读了呀、看你怎么处理读出来的内容了.是放页面上?还是弄个textbox控件?还是怎么样、然后自己处理下吧.我是做asp.net的 .net的方法也类似 也是用streamReader 流来读文件文件都读出来了、还不好办那.
Ⅵ asp读取txt文件并写入数据库
可以用fSO逐行读取<body><%set fso=server.CreateObject("Scripting.FileSystemObject")Set txtFile=fso.OpenTextFile(Server.MapPath("text.txt"))While Not txtFile.AtEndOfStreamResponse.Write "<center>" & txtFile.ReadLine & "</center><br>"。。写入数据库WendtxtFile.Close%></body>也可以 直接连接数版据库，从文权本中直接读取insert into tbl select * OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Text;HDR=no;Delimited="::";DATABASE=d:\',tmp#txt)另外还可以用BCP导入文本到数据库类似的样式：EXEC master..xp_cmdshell ’bcp "dbname..tablename" in c:“DT.txt -c -Sservername -Usa -Ppassword’ 仅供参考，具体写法请查资料，注意路径和文件名
Ⅶ 请问如何使用asp读取txt文件内容,并显示在textarea中呢
whichfile=server.mappath("txt.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set txt = fso.OpenTextFile(whichfile,1) dim rline1="" While Not txt.AtEndOfStream rline =txt.ReadLine'读取一行 rline1=rline1&rline <textarea name='neirong' cols='60' rows='4' id='111' value='<%=rline1%>'>
Ⅷ asp读取指定目录下的文件
<html><head><meta http-equiv="Content-Language" content="zh-cn"><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>数据下载</title></head><body><p align="center"></p><p align="center"></p><%'创建一个FileSystemObject对象的事例Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")'创建一个Folder对象foldername=server.mappath("./1/")Set MyFolder=MyFileObject.GetFolder(foldername)'Set MyFolder=MyFileObject.GetFolder("d:\1")'循环显示其中文件For Each thing in MyFolder.Files 'MyFolder.subfolders 显示文件夹，MyFolder.Files 显示文件'response.write "<p>"&thingresponse.write ("<p align="&"center"&"><font size="&"5"&"><a href="&"/1/"&thing.name&">"&thing.name&"</a></font></p>")Next%></body></html>
Ⅸ 高手进来，怎么用asp读取文本文件内容！
<%Set fso=Server.CreateObject("Scripting.FileSystemObject")Set fp=fso.OpenTextFile(Server.MapPath("message.txt"))'打开message.txtArr=fp.ReadAll '读取所有内容fp.closeset fso=nothingArr=Replace(Arr,"'","$$$") '过滤单引号为$$$Arr=Replace(Arr," ","$$$") '过滤空格为$$$Arr=Replace(Arr,chr(13)&chr(10),"$$$") '过滤回车换行为$$$'下面跟据情内况，自己添加容b=Split(Arr,"$$$") '输出结果For i=0 To UBound(b) Response.Write b(i)&"<br>"Next%>
Ⅹ 用ASP怎么读取文本文件
'**************************************************'函数名：FSOFileRead'作 用：使用FSO读取文件内容的函数'参 数：filename —-文件名称'返回值：文件内容'************************************************** function FSOFileRead(filename) Dim objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True) FSOFileRead = objCountFile.ReadAll objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing End Function '**************************************************'函数名：FSOlinedit'作 用：使用FSO读取文件某一行的函数'参 数：filename —-文件名称' lineNum —-行数'返回值：文件该行内容'************************************************** function FSOlinedit(filename,lineNum) if linenum < 1 then exit function dim fso,f,temparray,tempcnt set fso = server.CreateObject("scripting.filesystemobject") if not fso.fileExists(server.mappath(filename)) then exit function set f = fso.opentextfile(server.mappath(filename),1) if not f.AtEndofStream then tempcnt = f.readall f.close set f = nothing temparray = split(tempcnt,chr(13)&chr(10)) if lineNum>ubound(temparray)+1 then exit function else FSOlinedit = temparray(lineNum-1) end if end if end function '**************************************************'函数名：FSOlinewrite'作 用：使用FSO写文件某一行的函数'参 数：filename —-文件名称' lineNum —-行数' Linecontent —-内容'返回值：无'************************************************** function FSOlinewrite(filename,lineNum,Linecontent) if linenum < 1 then exit function dim fso,f,temparray,tempCnt set fso = server.CreateObject("scripting.filesystemobject") if not fso.fileExists(server.mappath(filename)) then exit function set f = fso.opentextfile(server.mappath(filename),1) if not f.AtEndofStream then tempcnt = f.readall f.close temparray = split(tempcnt,chr(13)&chr(10)) if lineNum>ubound(temparray)+1 then exit function else temparray(lineNum-1) = lineContent end if tempcnt = join(temparray,chr(13)&chr(10)) set f = fso.createtextfile(server.mappath(filename),true) f.write tempcnt end if f.close set f = nothing end function
未经允许不得转载：山九号 » asp读取文件内容|ASP如何实现从TXT文件中读取内容并输出到页面
