UC知道关于批量生成HTML进度条?
来源：百度知道 编辑：UC知道 时间：2024/05/09 10:10:05
Set fout = fso.CreateTextFile(mmdd_path)
fout.WriteLine pencat
fout.close
set fso = nothing
%>
<li class="lh"> <%= ((rsn.Fields.Item("hl_type").Value)&"/"&(rsn.Fields.Item("cy_type").Value)&"/"&(rsn.Fields.Item("file_name").Value)) %> <font color="#FF0000">被创建</font></li>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsn.MoveNext()
Wend
%></ul>
这是生成的代码,生成之后没有进度条,等待时间特长,我想加时度条,高手们,有没有好办法...谢谢
高手们,能把代码写出来吗,无尽感谢.!!!
就是加一条进度条...
fout.WriteLine pencat
fout.close
set fso = nothing
%>
<li class="lh"> <%= ((rsn.Fields.Item("hl_type").Value)&"/"&(rsn.Fields.Item("cy_type").Value)&"/"&(rsn.Fields.Item("file_name").Value)) %> <font color="#FF0000">被创建</font></li>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsn.MoveNext()
Wend
%></ul>
这是生成的代码,生成之后没有进度条,等待时间特长,我想加时度条,高手们,有没有好办法...谢谢
高手们,能把代码写出来吗,无尽感谢.!!!
就是加一条进度条...
Response.Write "<br><br><br><br><br><div align=""center""> " & vbCrLf'代码开始
Response.Write "<table width=""200"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td bgcolor=000000>" & vbCrLf
Response.Write " <table width=""200"" border=""0"" cellspacing=""0"" cellpadding=""1"">" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td bgcolor=ffffff height=9><img src=""images/bar9.gif"" width=0 height=16 id=img2 name=img2 align=absmiddle></td></tr></table>" & vbCrLf
Response.Write "</td></tr><