怎么让按输入的格式输出

iwish100000 2004-05-03 09:45:29
在文本框中输入文字 存入数据库 怎么让它输出的格式与原来一样
就是说 换行 空格什么的
...全文
78 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
iwish100000 2004-05-03
可以呀 谢谢
  • 打赏
  • 举报
回复
ayukowa 2004-05-03
<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>
  • 打赏
  • 举报
回复
787912 2004-05-03
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

用这个函数试试
  • 打赏
  • 举报
回复
iwish100000 2004-05-03
up
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-05-03 09:45
社区公告
暂无公告