asp html标签转换html编码

作者：袖梨 2022-07-02

Function Xszh(zh)
if zh<>"" or not isnull(zh) then
 zh=replace(zh,"  ","  ")
 zh=replace(zh,"€","'")
 ''zh=replace(zh,chr(13),"
")
 zh=lcase(zh)
 zh=replace(zh,"  zh=replace(zh,"

","<hr>")
 zh=replace(zh,"  zh=replace(zh,"<%","<%")
 zh=replace(zh,"","<html>")
 zh=replace(zh,"  'zh=replace(zh,"  zh=replace(zh," ","<iframe>")
 zh=replace(zh,"","</html>")
 'zh=replace(zh,"  'zh=replace(zh,"  'zh=replace(zh,"
","</div>")
 ''zh=replace(zh,"  'zh=replace(zh,"  zh=replace(zh,"  zh=replace(zh,"","</table>")
 zh=replace(zh,"","<title>")<br />  zh=replace(zh,"","</title>")
 zh=replace(zh,"","</body>")
 zh=replace(zh,"  zh=replace(zh,"  zh=replace(zh,"","</tr>")
 zh=replace(zh,"","</td>")
 'zh=replace(zh,"  zh=replace(zh,"[img]","")
 zh=replace(zh,"  zh=replace(zh,"  zh=replace(zh,"  zh=replace(zh,"","</javascript>")
 zh=replace(zh,"[url=","")
 xszh = zh
end if
End Function

相关文章

精彩推荐