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

    技术2022-05-11  37

    '=========添加--所有分类物资===========~~~~ '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 

    最新回复(0)