ASP日志类和判断是否包涵JS脚本类

作者：简简单单 2013-09-13

ASP日志类

代码如下

复制代码

Function WriteLogReg(Error_lerong)
    On Error Resume Next
    LogFileTmp = "Error.log"
    Set tmpFsoR = Server.CreateObject("scripting.filesystemobject")
    Set tmpLogR = tmpFsoR.OpentextFile(Server.MapPath(LogFileTmp), 8, True)
    tmpLogR.Writeline "时间：" & Now
    tmpLogR.Writeline "内容：" & Error_lerong
    tmpLogR.WriteBlankLines (1)
    tmpLogR.Close
    Set tmpLogR = Nothing
    Set tmpFsoR = Nothing
End Function

判断是否包涵JS脚本类

代码如下	复制代码
function jszhuru(str) str = Replace(str," str = Replace(str,">",">") str = Replace(str,"",""") str = Replace(str,"'","'") jszhuru = str end function