欢迎访问 水平网    今天是:2017年11月22日 注册 | 登录 | 订阅 | 收藏
>> ASP >> 给TEXTAREA赋值即修改时导入还原样式
推荐代码
热点代码

给TEXTAREA赋值即修改时导入还原样式

作者:未知,  来源:网络,  阅读:590,  发布时间:2014-05-10  【放入收藏夹
代码:复制
Function inHTML(str)
	 Dim sTemp
	 sTemp = str
	 inHTML = ""
	 If(IsNull(sTemp) = True)Then
		Exit Function
	 End If
	 sTemp = Replace(sTemp, "&", "&")
	 sTemp = Replace(sTemp, "
",chr(13))
	 sTemp = Replace(sTemp, "<", "<")
	 sTemp = Replace(sTemp, ">", ">")
	 sTemp = Replace(sTemp, """, Chr(34))
	 inHTML = sTemp
End Function
Tags:TEXTAREA
评论【共有0条评论】查看所有评论
昵称:(*)   邮箱:   QQ:   验证码: 看不清楚?点击刷新验证码