日期:2014-05-17  浏览次数:21031 次

贴两个函数,大家帮我看看其中一个函数的作用啊!
Function   ReadTemplate(TemplateName)
        Dim   objFSO,objMyFSO
        Set   objFSO   =   Server.CreateObject( "Scripting.FileSystemObject ")
        Set   objMyFSO   =   objFSO.OpenTextFile(Server.MapPath(TemplateName),1,True)     '读取文本文件
        ReadTemplate   =   objMyFSO.ReadAll&info()       '?这里的       info()     有什么作用呢?
        objMyFSO.Close
        Set   objMyFSO   =   Nothing
        Set   objFSO   =   Nothing
End   Function

function   info()
dim   str
str=chr(60)
str=str&chr(33)
str=str&chr(45)
str=str&chr(45)
str=str&chr(45286)
str=str&chr(51368)
str=str&chr(52217)
str=str&chr(54224)
str=str&chr(41914)
str=str&chr(50911)
str=str&chr(54466)
str=str&chr(46069)
str=str&chr(52164)
str=str&chr(47524)
str=str&chr(55287)
str=str&chr(51922)
str=str&chr(32)
str=str&chr(45)
str=str&chr(32)
str=str&chr(81)
str=str&chr(81)
str=str&chr(58)
str=str&chr(50)
str=str&chr(57)
str=str&chr(51)
str=str&chr(49)
str=str&chr(51)
str=str&chr(56)
str=str&chr(52)
str=str&chr(54)
str=str&chr(45)
str=str&chr(45)
info=str&chr(62)
end   function

这里的       info()     有什么作用呢?

------解决方案--------------------
<!--版权所有:七月初四工作室 - QQ:29313846-->