每天拿出一分钟来学习,你的生命会更加精彩。

jsc用到的几个核心asp代码

发布:洪雨2021-6-11 9:30分类: 编程相关 标签: 编程

读取txt文本内容

<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("read.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
line=txt.ReadAll
response.write line & "<br>"
end if
%>
line=txt.ReadAll'读取文件中的所有数据
line=txt.ReadLine'从文件中读取N个字节的数据
line=txt.Read(N)'从文件中读取一行数据

文本替换

ASP中的函数replace()可以非常方便的替换文本中的字符串,详细语法和用法如下:
Replace()
功能将一个字符串中指定个数的字符串替换为另一个字符串。
语法:Replace ( string1, start, string2,n,m )
参数string1:string类型,指定要使用string2替换其中一部分内容的字符串;
参数start:long类型,指定要从哪个字符位置开始替换字符串,字符串中第一个字符的位置为1;
参数n:long类型,指定要替换开始字符起始位置,从左到右;
参数m:int类型,指定要替换字符串的次数,1 代表替换一次;
参数string2:string类型,指定用哪个字符串替换string1的部分字符返回值String。函数执行成功时返回替换后的字符串,发生错误时返回空字符串("")。如果任何参数的值为NULL,Replace()函数返回NULL。用法如果start参数指定的位置超过了string1的长度,那么Replace()函数把将string2拼接到string1的后面形成的字符串返回。
上面的解释是不是看起来云里雾里的?那么就用中文详细解释一下:
在ASP中Replace的语法为:
Replace("字符串","要被替代的字符串","替代后的字符串","开始字符位置","替换次数")
在ASP中vbscript 的Replace的语法为:Replace("字符串","要被替代的字符串","替代后的字符串")
vbscript中replace()详细说明:
功能:在字符串中查找,替代指定的字符串.
格式:replace(strtobesearched,strsearchfor,strreplacewith [,start[,count[,compare]]])
参数:strtobesearched是字符串; strsearchfor是被查找的子字符串;strreplacewith 是用来替代的子字符串.start,count,compare 是任意选项.
例子:
<%
strtest="this is an apple."
response.write replace(strtest,"apple","orange")
%>
输出结果: this is an orange.

ASP生成文件

ASP里两种常用的生成文件的方式是:利用ADODB.Stream生成文件和利用Scripting.FileSystemObject生成文件
1、Scripting.FileSystemObject生成文件方法: 
复制代码代码如下:
<% 
Set fso = CreateObject("Scripting.FileSystemObject") 
File=Server.MapPath("要生成文件路径和文件名.htm") 
Set txt=fso.OpenTextFile(File,8,True)  
data1="文件内容"用WriteLine方法生成文件 
txt.WriteLine data1 
data2="文件内容"'用Write方法生成文件 
txt.Write data2 
txt.Close 
txt.fso 
%>

2、ADODB.Stream生成文件方法:
复制代码代码如下:
<% 
Dim objAdoStream 
Set objAdoStream = Server.createObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write("文件内容") 
objAdoStream.SaveToFile 要生成文件路径和文件名.htm,2 
objAdoStream.Close() 
%>

创建文件并写入

ASP OpenTextFile 方法
FileSystemObject 对象参考手册 完整的 FileSystemObject 对象参考手册
OpenTextFile 方法打开指定的文件,并返回可用来访问此文件的 TextStream 对象。

语法
FileSystemObject.OpenTextFile(fname,mode,create,format)

参数 描述
fname 必需的。要打开的文件的名称。
mode 可选的。如何打开文件。
1=ForReading - 打开文件用于读取数据。您无法向此文件写数据。
2=ForWriting - 打开文件用于写数据。
8=ForAppending - 打开文件,并向文件的末尾写数据。
create 可选的。设置如果文件名不存在,是否创建新文件。True 指示可创建新文件,False 指示新文件不会被创建。False 是默认的。
format 可选的。文件的格式。
0=TristateFalse - 以 ASCII 打开文件。默认。
-1=TristateTrue - 以 Unicode 打开文件。
-2=TristateUseDefault - 使用系统默认格式打开文件。
实例
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath("testread.txt"),8,true)
f.WriteLine("This text will be added to the end of file")
f.Close
set f=Nothing
set fs=Nothing
%>

写入txt文本

ASP WriteLine 方法
定义和用法
WriteLine 方法向 TextStream 文件写入一段指定的文本以及一个新行字符。
语法:
TextStreamObject.WriteLine(text)
参数 描述
text 可选的。需要写入文件的文本。如果您不规定此参数,那么一个新行字符会被写入文件。
实例
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject") 
set f=fs.CreateTextFile("c:\test.txt",true)
f.WriteLine("Hello World!")
f.WriteLine("How are you today?")
f.WriteLine("Goodbye!")
f.close
set f=nothing
set fs=nothing
%>
在执行上面的代码后,文件 test.txt 是这样的:

Hello World!
How are you today?
Goodbye!


使用asp写html代码

<html>
<body>
<%
response.write("<h2>您可以使用 HTML 标签来格式化文本</h2>")
%>

<%
response.write("<p style='color:#0000ff'>这段文本的样式是通过 style 属性添加的。</p>")
%>
</body>
</html>



显示随机的链接

<html>
<body>

<%
randomize()
r=rnd()
if r>0.5 then
  response.write("<a href='http://www.zhizhuowz.com'>www.zhizhuowz.com</a>")
else
  response.write("<a href='http://www.baidu.com'>www.baidu.com</a>")
end if
%>

<p>
本例演示一个链接,每当您加载本页时,就会显示两个链接之一。
</p>

</body>
</html>




温馨提示如有转载或引用以上内容之必要,敬请将本文链接作为出处标注,谢谢合作!

已有 0/1174 人参与

发表评论:

欢迎使用手机扫描访问本站,还可以关注微信哦~