如何将输入数据库同一字段记录集的文字自动换行？

chj365 2002-11-01 07:52:42

我现在在编写一个应用课件，需要填写一个表单，在表单中，有一段话是在同一个读写框里写入的，也就意味着它读入数据库时是在同一个字段的记录集里的，将来需要将它显示出来，且要在一定的位置（如遇到句号）就能自动转行，请问高手如何设置，我的表单程序代码如下：
<% @ language=vbscript %>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<title>工序简表 </title>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">

</script>
</head>
<body>

<p>
工序简表（提交）</p>

<form name="form1" ACTION="uptext.asp" METHOD="post" target="_blank">

<table border="1" width="601" height="174">
<tr>
<td width="22" height="1" valign="top" align="justify">
<p align="center">工序号</p>
</td>
<td width="45" height="1" valign="middle">
<P>工位</P>
</td>
<td width="59" height="1" valign="middle">   工步 </td>
<td width="128" height="1">     工序简图</td>

<td width="226" height="1">
加工内容</td>

</tr>
<tr>

<td width="22" height="79" valign="top"><TEXTAREA cols=2 name=gongxuhao rows=7></TEXTAREA>

</td>
<td width="45" height="79" valign="top"><TEXTAREA cols=2 name=gongwei rows=7 style="height: 111; width: 62"></TEXTAREA>

</td>
<td width="59" height="79" valign="top"><TEXTAREA cols=7 name=gongbu rows=7></TEXTAREA>

</td>
<td width="128" height="79" valign="middle">

<input NAME=jiantu TYPE="file">
</td>
<td width="226" height="79" valign="top"><textarea rows="7" name="S1" cols="32"></textarea>
</td>
</tr>
</table>
<p>
<input type="submit" value="提交" >                          </p>
</form>
<form name="form2" ENCTYPE="multipart/form-data" ACTION="upimage.asp" METHOD="post" target="_blank">

</body>
在这儿，通常是一个工序由几个工步组成，而在输入时，只能将几个工步在同一会话框里输入，将来要将它显示出来，且要有分成几步的形式，请问如何确定程序代码？
谢谢了

...全文

85 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wangbei 2002-11-02

打赏
举报

<%rs.open "select * from 表名",myconn,1,1
if rs("内容")<>"" then
str=replace(replace (rs("内容"),chr(32)," "),chr(13),"<br>")
end if
rs.close
response.write str
%>
这样输入的和输出的格式一样

denghan 2002-11-02

打赏
举报

给你一个函数，在将文本框的内容存入数据库之前先做处理，指将你在输入时的回车符，空格符等替换。
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i,j
j=0
for i = 1 to l
if j=38 and mid(str,i,1)<>chr(13) then '每行38个字符自动换行
result=result+"<br>"
j=0
end if
j=j+1
select case mid(str,i,1) 'mid(str,i,1)字串第i个字符后的1个字符
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function

比如你的数据库内容字段为content,文本框名为text1，则
rs("content")=htmlencode2(request("text1")) ''''将处理过的内容存入数据库

读取时直接读取response.write rs("content")
可按你在文本框输入的样子在页面上显示出来。

lednpc 2002-11-01

打赏
举报

tmpmess=request.form("comment")
tmpmess=replace(tmpmess,chr(10)," <br>")
tmpmess=replace(tmpmess,"<","《")
tmpmess=replace(tmpmess,">","》")
tmpmess=replace(tmpmess,"《br》","<br>")
rs("comment")=tmpmess
加如后，你输入是什么样的，它就会显示什么样子！

cityroom 2002-11-01