复制代码 代码如下:function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9), " ") fString = Replace(fString, CHR(34), """) fString = Replace(fString, CHR(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 Function Safe(str)'该函数用来判断传递过来的变量是否包含特殊字符,没有返回TRUE Dim s_BadStr, n, i s_BadStr = "' 　&<>?%,;:()`~!@#$^*{}[]|/+-="&Chr(34)&Chr(9)&Chr(32) n = Len(s_BadStr) Safe = True For i = 1 To n If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then Safe = False Exit Function End If Next End Function

　　推荐阅读

　　网站生成静态页面攻略4:防采集而不防搜索引擎策略

从前面的我讲的采集原理大家可以看出，绝大多数采集程序都是靠分析规则来进行采集的，如分析分页文件名规则、分析页面代码规则。 一、分页文件名规则防采集对策 大部分采集器都是靠分析分页文件名规则，进>>>详细阅读

本文标题：收集asp的常用函数

地址：http://www.17bianji.com/kaifa2/ASP/33200.html

 1/2    1