|
|
最近在工作中，需要对大量的数据进行批量处理，并使用textarea展示出来。我插入数据库中的<br>标签，并不能被textarea解析。搜索了半天，找到解决办法如下：
<textarea>
<%
if trim(rs("itemspeed"))<>"" then
dim msg
msg=replace(rs("ItemSpeed"),"<br>",vbcrlf)
response.write msg
end if
%></textarea>
其实就是替换的办法。如果有其他html代码需要替换，可用同样的办法解决。
原网址忘了，搜索了很多网站找到的。现在贴上人家给出的代码，我就是参考人家的进行的更改。
<!--1.htm-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="t.asp">
<p>
<textarea name="textarea" cols="50" rows="10"></textarea>
</p>
<p> <input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</p>
</form>
</body>
</html>
---------------------------------------------
<!--t.asp-->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim msg
msg=request.Form("textarea")
msg=replace(msg,vbcrlf,"<br>")
msg=replace(msg," "," ")
response.write msg
%>
</body>
</html>
|
|
发表于 2019-5-20 20:55:07