个人站长制做网页常用代码集锦(八)

函数收藏

" *----------------------------------------------------------------------------
源代码网推荐" * 函数：CheckIn
源代码网推荐" * 描述：检测参数是否有SQL危险字符
源代码网推荐" * 参数：str要检测的数据
源代码网推荐" * 返回：FALSE：安全 TRUE：不安全
源代码网推荐" * 作者：
源代码网推荐" * 日期：
源代码网推荐" *----------------------------------------------------------------------------
源代码网推荐function CheckIn(str)
源代码网推荐if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or instr(1,str,chr(59))>0 then
源代码网推荐CheckIn=true
源代码网推荐else
源代码网推荐CheckIn=false
源代码网推荐end if
源代码网推荐end function

*----------------------------------------------------------------------------
源代码网推荐" * 函数：HTMLEncode
源代码网推荐" * 描述：过滤HTML代码
源代码网推荐" * 参数：--
源代码网推荐" * 返回：--
源代码网推荐" * 作者：
源代码网推荐" * 日期：
源代码网推荐" *----------------------------------------------------------------------------
源代码网推荐function HTMLEncode(fString)
源代码网推荐if not isnull(fString) then
源代码网推荐fString = replace(fString, ">", ">")
源代码网推荐fString = replace(fString, "<", "&lt;")
源代码网推荐
源代码网推荐fString = Replace(fString, CHR(32), "&nbsp;")
源代码网推荐fString = Replace(fString, CHR(9), "&nbsp;")
源代码网推荐fString = Replace(fString, CHR(34), "&quot;")
源代码网推荐fString = Replace(fString, CHR(39), "&#39;")
源代码网推荐fString = Replace(fString, CHR(13), "")
源代码网推荐fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
源代码网推荐fString = Replace(fString, CHR(10), "<BR> ")
源代码网推荐
源代码网推荐HTMLEncode = fString
源代码网推荐end if
源代码网推荐end function

"*----------------------------------------------------------------------------
源代码网推荐" * 函数：HTMLcode
源代码网推荐" * 描述：过滤表单字符
源代码网推荐" * 参数：--
源代码网推荐" * 返回：--
源代码网推荐" * 作者：
源代码网推荐" * 日期：
源代码网推荐" *----------------------------------------------------------------------------
源代码网推荐function HTMLcode(fString)
源代码网推荐if not isnull(fString) then
源代码网推荐fString = Replace(fString, CHR(13), "")
源代码网推荐fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
源代码网推荐fString = Replace(fString, CHR(34), "")
源代码网推荐fString = Replace(fString, CHR(10), "<BR>")
源代码网推荐HTMLcode = fString
源代码网推荐end if
源代码网推荐end function