openfilecontent.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 18 行

<%

FunCtion OpenFileContent(FolderFileName)

	FolderFileName1=Server.MapPath(FolderFileName)
	
	Set fso=Server.CreateObject("ScripTing.FileSystemObject")
	If fso.FileExists(FolderFileName1)=True Then
	Set MyFile=Fso.OpenTextFile(FolderFileName1,1)
	OpenFileContent=MyFile.Readall()

	Else
	OpenFileContent=""
	End If

End FunCtion

%>