'文件内容读取.[code]Function LoadFile(ByVal File)Dim objStreamOn Error Resume NextSet objStream = Server.CreateObject("ADODB.Stream")If Err.Number=-2147221005 ThenResponse.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序<...

 m_Root是文件名，可以使用相对路径。调用调用示例：Response.Write(LoadFile("Test.htm"))Function LoadFile(m_Root)Dim Filename,fso,hndFileFilename = m_RootIf Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename &am...