<%'函数：文本中特殊字符入库转换
  Function checkContent(content)
    content=replace(content,"'", "`")
    content=replace(content,chr(34), "``")
    content=replace(content,chr(13),"<br>")
    content=replace(content,chr(32),"&nbsp;")
    checkContent=Content
  End Function
  '函数：文本中特殊字符出库转换
  Function showContent(content)
    content=replace(content,"`","'")
    content=replace(content,"``",chr(34) )
    content=replace(content,"<br>",chr(13))
    content=replace(content,"&nbsp;",chr(32))
    showContent=content
  End Function
%>