寄生虫用到的几个核心asp代码
读取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>
原文转载自：http://www.zhizhuowz.com/post-643.html
