神马品牌网闸阀z41r 16c型号代表:求asp整理格式代码！
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 02:28:00
表单网页：TextArea.html
代码如下：
<HTML>
<HEAD>
<Title>TextArea.html</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="HTML">
</HEAD>
<BODY>
<FORM action="RdTA.asp" method="post">
<TEXTAREA rows="5" cols="5" name="TA"></TEXTAREA>
*****************五列的文本框，单行文本宽度是5个字符*********
*****************输入文本超过5列就会折行********************
<HR>
<INPUT type="Submit" value="提交" NAME="submit">
</FORM>
</BODY>
</HTML>
**************************************************************
用一个ASP网页采集表单中文本框中的内容，并如示例所示格式存入文本文件(TXT格式)，
示例：
键盘输入文本框：
abcdefghijklmnopq……
文本文件内容：
abcde<BR>fghij<BR>klmno<BR>pq……
而不是abcdefghijklmnopq……
规则就是，每五个字符后插入<BR>标记，保持文本框中的格式，即所见即所得
代码如下：
<HTML>
<HEAD>
<Title>TextArea.html</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="HTML">
</HEAD>
<BODY>
<FORM action="RdTA.asp" method="post">
<TEXTAREA rows="5" cols="5" name="TA"></TEXTAREA>
*****************五列的文本框，单行文本宽度是5个字符*********
*****************输入文本超过5列就会折行********************
<HR>
<INPUT type="Submit" value="提交" NAME="submit">
</FORM>
</BODY>
</HTML>
**************************************************************
用一个ASP网页采集表单中文本框中的内容，并如示例所示格式存入文本文件(TXT格式)，
示例：
键盘输入文本框：
abcdefghijklmnopq……
文本文件内容：
abcde<BR>fghij<BR>klmno<BR>pq……
而不是abcdefghijklmnopq……
规则就是，每五个字符后插入<BR>标记，保持文本框中的格式，即所见即所得
上面的老兄只解决了楼主的每5个字符加<BR>,没有解决写入文本哪部份,我提代一个写入文本的函数:
stringTA=request("TA")
resultTA = ""
for i=1 to int((len(stringTA)-1)/5)+1
resultTA = resultTA + mid(str,i*5,5)+"<br>"
next
Sub CreateAfile(resultTA)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine(resultTA)
MyFile.Close
End Sub
这样应该可以实现功能.
stringTA=request("TA")
resultTA = ""
for i=1 to int((len(stringTA)-1)/5)+1
resultTA = resultTA + mid(str,i*5,5)+"<br>"
next
******以上两位注意*************
<H1>变量是有长度限制的！文本框的内容往往长于变量限制</H1>
******************************