要将输入的内容中的符号" '译成"&apos存入数据库，使得能从数据库中读出" '不出现乱码

HTML标签的转换
<%
Function coder(str)
 Dim result,L,i
 If IsNull(str) Then : coder="" : Exit Function : End If
 L=Len(str) : result=""
For i = 1 to L
  select case mid(str,i,1)
case "<"     : result=result+"&lt;"
case ">"     : result=result+"&gt;"
case chr(34) : result=result+"&quot;"
case "&"     : result=result+"&amp;"
case chr(13) : result=result+"<br>"
case chr(9)  : result=result+"&nbsp; &nbsp; "
case chr(32) : result=result+"&nbsp;"
case else    : result=result+mid(str,i,1)
  end select
Next
 coder=result
End Function
%>更为高效的是在客户端做转换，转换好了以后再提交
<script language=javascript>
function coder(str)
{
   var s = "";
   if (str.length == 0) return "";
   for (var i=0; i<str.length; i++)
   {
      switch (str.substr(i,1))
      {
          case "<"  : s += "&lt;";   break;
          case ">"  : s += "&gt;";   break;
          case "&"  : s += "&amp;";  break;
          case " "  : s += "&nbsp;"; break;
          case "\'" : s += "&#39;";  break;
          case "\"" : s += "&quot;"; break;
          case "\n" : s += "<br>";   break;
          default   : s += str.substr(i,1); break;
      }
   }
   return s;
}
</script>