HTML里引号的输出与显示

关于输入框中显示双引号和单引号
　　前台显示解决办法:
　　方法一:
　　单引号<input type="text" value="'">
　　双引号<input type="text" value='"'>
　　方法二:
　　单引号<input type="text" value="&#39;">
　　双引号<input type="text" value="&#34;">
　　从后台读取数据前台显示解决办法:
　　我们从数据库中读取值到前台显示时应该加入转换
　　JavaScript版本:
　　<% @Language="JavaScript" %>
　　<%
　　function ForamtValue(oStr)
　　{
　　 switch(typeof(oStr))
　　 {
　　 case "date" : 
　　 //直接toString()转换,可以加入丰富的显示方式
　　 sStr = (new Date(oStr)).toString();
　　 break;
　　 default :
　　 sStr = String(oStr);
　　 }
　　 sStr = sStr.replace(/\"/g,"&#34;"); //输入框中显示双引号问题
　　 sStr = sStr.replace(/\'/g,"&#39;"); //输入框中显示单引号问题
　　 return sStr;
　　}
　　%>
　　<%
　　//测试
　　var str = "\"灰豆宝宝.net(魔幻季节)\"";
　　var str = new Date();
　　%>
　　<br>
　　<input type="text" value="<%=str%>" style="width:200px">[不能正常显示]<br>
　　<input type="text" value="<%=ForamtValue(str)%>" style="width:200px">[正常显示]<br>
　　VBScript版本:
　　<% @Language="VBScript" %>
　　<%
　　function ForamtValue(oStr)
　　 Select Case VarType(oStr)
　　 Case "vbDate" 
　　 '直接toString()转换,可以加入丰富的显示方式
　　 sStr = CDate(oStr)
　　 Case Else 
　　 sStr = CStr(oStr)
　　End Select
　　sStr = Replace(sStr,"""","&#34;") '输入框中显示双引号问题
　　 sStr = Replace(sStr,"'","&#39;") '输入框中显示单引号问题
　　 ForamtValue = sStr
　　End Function
　　%>
　　<%
　　'测试
　　Dim str
　　str = """'灰豆宝宝.net(魔幻季节)'"""
　　%>
　　<br>
　　<input type="text" value="<%=str%>" style="width:200px">[不能正常显示]<br>
　　<input type="text" value="<%=ForamtValue(str)%>" style="width:200px">[正常显示]<br>

(王朝网络 wangchao.net.cn)

http://www.wangchao.net.cn/bbsdetail_13791.html