【FSO】我要看看TextStream的Write方法能写入多少字符

最新推荐文章于 2025-05-06 21:59:55 发布

原创最新推荐文章于 2025-05-06 21:59:55 发布 · 1.2k 阅读

CC 4.0 BY-SA版权

文章标签：

30 篇文章

订阅专栏

本文通过一个简单的ASP示例展示了如何使用TextStream的Write方法来写入大量字符到文件，并测试了该方法的最大字符写入能力。

晒晒效果

源码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
With Response
.Expires=-1
.ExpiresAbsolute=NOW-1
.CacheControl="no-cache"
.AddHeader "Pragme","no-cache"
.Buffer=true
End With
Dim action,formvalue,formvalueLen,fso,ts
formvalue=Trim(Request.Form("txtarea"))
formvalueLen=Len(formvalue)
If formvalue<>"" or formvalue<>null Then
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set ts=fso.CreateTextFile(Server.MapPath(formvalueLen&".txt"),True,True)
ts.Write(formvalue)
ts.Close
Set ts=Nothing
Set fso=Nothing
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>我要看看TextStream的Write方法能写入多少字符</title>
<script language="javascript" type="text/javascript">
function ShowTextCount(val){
valval=val.replace(/(^/s*)|(/s*$)/g,""); //替换前后空格相当于vbscript Trim()函数
document.getElementById("showtextresult").innerText="您输入的字符数:"+val.length;
}
</script>
<style type="text/css">
#txtarea{width:600px;height:300px;display:block;}
span{color:red;}
</style>
</head>
<body>
<form method="post" action="TextStreamWriteDemo.asp">
<textarea name="txtarea" id="txtarea" onkeyup="ShowTextCount(this.value);"></textarea>
<input type="submit" value="提交"/>
<input type="reset"/>
<span id="showtextresult">写入了<%=formvalueLen%>个字符</span>
</form>
</body>
</html>