Question

ASP 调用 TXT 文本文件

我在TXT文件里写：
公司名称：某某XXX有限公司
地址：某某XX路XX号
电话：3838338
----------------------------------------------
因为在好几处都要调用这些信息，
我在ASP里要怎么做，请大侠们赐教。

Answer 1

为了实现这个功能，您可以尝试使用ASP中的FSO对象。
根据您提供的信息，您的要求是：
第4n+1行为公司名称，其格式为：前五个字符是“公司名称：”，后面的是公司名称
第4n+2行为地址，其格式为：前3个字符是“地址：”，后面的是公司地址。
第4n+3行是电话，第4n+4行是分隔符。
那么就以提取第一个公司的信息为例编写,设文本文件名是xx.txt,与ASP文件放于同一目录下：
<%
set fso=server.CreateObject("scripting.filesystemobject")
set txt=fso.openTextFile(server.MapPath("xx.txt"))
Dim CopName,CopAdd,CopTel
CopName=txt.readline()
CopAdd=txt.readline()
CopTel=txt.readline()
txt.close
'以下函数用于除去信息的前缀
'如第一行信息除去前面的“公司信息：”
function GetStr(prefix,str)
dim a
a=len(str)-(len(prefix)+1)
GetStr=right(str,a)
End function
CopName=getStr("公司名称",CopName)
CopAdd=getStr("地址",CopAdd)
CopTel=getStr("电话",CopTel)
%>