怎么让按输入的格式输出

[iwish100000]

在文本框中输入文字 存入数据库 怎么让它输出的格式与原来一样
就是说 换行 空格什么的

[iwish100000]

up

• 打赏
• 举报

回复 赞

[787912]

function htmlencode2(str)
if isNULL(str) then
htmlencode2=""
exit function
end if

dim result
result=str

result=replace (result,"<","<")
result=replace (result,">",">")
result=replace(result,chr(13),"<br>")
result=replace (result,"&","&")
result=replace(result," ",chr(9))
result=replace (result,chr(9)," ")

htmlencode2=result
end function

用这个函数试试

• 打赏
• 举报

回复 赞

[ayukowa]

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoWhiteSpace(str)
DoWhiteSpace = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32), "  ")
End Function
</SCRIPT>
<table width="80%" border="0" align="center" bgcolor="#CCCCCC" class="font1">
<tr bgcolor="#FFFFFF">
<td colspan="6"><div align="center">
<p><strong><font size="4" face="宋体">中国铝业山东分公司 山东铝业股份有限公司 <br>
请示报告处理情况</font></strong></p>
</div></td>
</tr>
//////////////////////////
<tr bgcolor="#FFFFFF">
<td width="15%" nowrap><strong>领导批示</strong></td>
<td colspan="5"><%=DoWhiteSpace(rs("ldps")) %></td>/////////////////主要就是这个函数调用
</tr>

• 打赏
• 举报

回复 赞

[iwish100000]

可以呀 谢谢

• 打赏
• 举报

回复 赞