ASP日誌類和判斷是否包涵JS指令碼類

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,"<s","<")     str = Replace(str,">",">")     str = Replace(str,"",""")     str = Replace(str,"'","'")     jszhuru = str end function