一聚教程网:一个值得你收藏的教程网站

热门教程

asp html标签转换html编码

时间:2022-07-02 22:36:30 编辑:袖梨 来源:一聚教程网

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

热门栏目