谁能帮我解决下为什么代码执行速度特别慢?是代码哪里写错了吗???

'=========添加--所有分类物资===========~~~~
'split数据库名称分割函数
Dim arrSn,arrSq,arrSql
arrSn = "校长/副校长/主任/副主任/班导师/副班导师/班长/副班长/组长/副组长/小组长/副小组长/三好学生/优秀团员"
arrSql = Split(arrSn,"/")
'split分割路径名称函数
Dim arrName,arrHtm
arrName="sheet002.htm/sheet003.htm/sheet004.htm/sheet005.htm/sheet006.htm/sheet007.htm/sheet008.htm/sheet009.htm/sheet010.htm/sheet011.htm/sheet012.htm/sheet013.htm/sheet014.htm/sheet015.htm"
arrHtm=Split(arrName,"/")

'split分割字符串替换的函数
Dim arrTh,arrZth
arrTh="[A1]/[B1]/[C1]/[D1]/[E1]/[F1]/[G1]/[H1]/[I1]/[J1]/[K1]/[L1]/[M1]/[N1]"
arrZth=Split(arrTh,"/")

'===========================(数据库文件读取`)==========================~~~~~~~~~~~~~~~~~~~
'数据库读取信息========<循环读取>
Set rs = Server.CreateObject("ADODB.Recordset")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim n,m
m=1

'判断是否超过数量指数
for n=0 To 13
sql= "Select C1.CG1QR,C1.CG2RQ,C1.CH1RY,C1.CE1CY ,B1.BB1KM ,A1.AB1WB,A1.AC1WM,A1.AD1GX,A1.AE1JD,AF1JD From ( C1ZongKuCu As C1 Left Join A1WuBian As A1 on C1.CB1GB = A1.AA1ZB ) Left Join B1KuMing As B1 on C1.CC1KF=B1.BA1ZB Where C1.CE1CY like '"&arrSql(n)&"' and ( not CD1SL = 0 or not CD2SL = 0 )"
rs.Open sql,conn,1,3

str2 = ""
'数据库读取信息(循环)
Do while not rs.Eof
str2 = str2 & " <tr height=19 width=72 style='height:25pt;width:300pt'>" & vbcrlf
str2 = str2 & "<td height=19 width=72 style='height:25pt;width:300pt'>" & rs("AB1WB") & "</td>" & vbcrlf
str2 = str2 & "<td height=19 width=72 style='height:25pt;width:300pt'>" & rs("AC1WM") & "</td>" & vbcrlf
str2 = str2 & "<td height=19 width=72 style='height:25pt;width:300pt'>" & rs("AD1GX") & "</td>" & vbcrlf
str2 = str2 & "<td height=19 width=72 style='height:25pt;width:300pt'>" & rs("AE1JD") & "</td>" & vbcrlf
str2 = str2 & "<td height=19 width=72 style='height:25pt;width:300pt'>" & rs("BB1KM") & "</td>" & vbcrlf

rs.movenext

Loop
'response.write str2
'response.write rs.recordcount
'===========================(读写文件流)========================2
'判断路径名称是否是相应的字段名称===《方便写入HTM文档信息》

'FSO读取模版文件

Set txtstream = fso.OpenTextFile(server.MapPath("Modol.files/" & arrHtm(n)),ForReading,true)
str1=Trim(txtstream.ReadAll)
Dzdl=replace(str1,arrZth(n),str2)

'FSO循环写入
Set txtstream=fso.OpenTextFile(Server.MapPath("Modol.files/"&arrHtm(n)),ForWriting,True)
txtstream.Write Dzdl

'response.write "<font color=#66999 size=2>"
'response.write "正在生成数据...请等候..."
'response.write "</font>"
response.write "读写文件流...第" & n & "次```请不要执行其他操作 ...<p>"

rs.Close
txtstream.close
Next