ASP
函数里面不能使用循环，哪位高手指点一下，内有代码
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区 Private Sub CreateSortingHtml()
If CLng(Request.Form("StartID")) > CLng(Request.Form("EndID")) Then
Response.Write ("<script>alert('对不起!你输入的开始ID比结束ID大，请重新输入。');history.go(-1)</script>")
Exit Sub
End If
Response.Write "<b><font color=""#FF0000""> 正在生成下载分类列表的HTML页, 此操作可能要持续几分钟，请稍候......</font></b><BR>" & vbCrLf
Response.Write "<table width=""400"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td bgcolor=000000>" & vbCrLf
Response.Write " <table width=""400"" 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></table></td></tr><tr> " & vbCrLf
Response.Write "<td align=center bgcolor=000000> <span id=txt2 name=txt2 style=""font-size:9pt"">0</span><span style=""font-size:9pt"">%</span> <span id=txt3 name=txt3 style=""font-size:9pt"">0</span></td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Flush
Dim totalnumber, Rs, SQL, i
Set Rs = Server.CreateObject("adodb.recordset")
If Request("seid") = 1 Then
SQL = "select sortid,SortName,SoftNum from [NC_softsort] where sortid >= " & Request.Form("StartID") & " and sortid <= " & Request.Form("EndID") & ""
Else
If Request("type") = "all" Then
SQL = "select sortid,SortName,SoftNum from [NC_softsort] order by sortid asc"
Else
SQL = "select sortid,SortName,SoftNum from [NC_softsort] where isUpdate = 1 order by sortid asc"
End If
End If
Rs.Open SQL, Conn, 1, 1
If Rs.EOF And Rs.bof Then
Response.Write "Sorry！没有找到任何分类。或者分类没有更新!"
Else
totalnumber = Rs.recordcount
i = 1
response.Write("<br>"&totalnumber&"<br>")
response.Write(i&"<br>")
Do While Not Rs.EOF
CreateSortList Rs("sortid"), Request("order")
Response.Write "<script>img2.width=" & Fix((i / totalnumber) * 400) & ";" & vbCrLf
Response.Write "txt2.innerHTML=""生成进度：" & FormatNumber(i / totalnumber * 100, 2, -1) & """;" & vbCrLf
Response.Write "txt3.innerHTML="" 共有分类 <B><font color=RED>" & totalnumber & "</font></B> 个 正在生成第 " & i & " 个"";" & vbCrLf
Response.Write "img2.title=""(" & i & ")"";</script>" & vbCrLf
Response.Flush
Response.Write "<table cellpadding=0 cellspacing=0 border=0 width=90% align=center><tr><td colspan=2 class=forumrow> 生成软件分类列表 [" & Rs(1) & "] 完成； 共有软件 [" & Rs(2) & "] 个。</td></tr></table>"
Response.Flush
Rs.movenext
i = i + 1
response.Write(i&"<br>")
Loop
End If
Rs.Close
Set Rs = Nothing
Response.Write "<script>img2.width=400;txt2.innerHTML=""100"";</script>"
Response.Write "<meta http-equiv=""refresh"" content=""1;url='?num=" & totalnumber & "&D=" & d & "&order=" & Request("order") & "&type=ok'"">"
If CLng(Request.Form("StartID")) > CLng(Request.Form("EndID")) Then
Response.Write ("<script>alert('对不起!你输入的开始ID比结束ID大，请重新输入。');history.go(-1)</script>")
Exit Sub
End If
Response.Write "<b><font color=""#FF0000""> 正在生成下载分类列表的HTML页, 此操作可能要持续几分钟，请稍候......</font></b><BR>" & vbCrLf
Response.Write "<table width=""400"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td bgcolor=000000>" & vbCrLf
Response.Write " <table width=""400"" 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></table></td></tr><tr> " & vbCrLf
Response.Write "<td align=center bgcolor=000000> <span id=txt2 name=txt2 style=""font-size:9pt"">0</span><span style=""font-size:9pt"">%</span> <span id=txt3 name=txt3 style=""font-size:9pt"">0</span></td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Flush
Dim totalnumber, Rs, SQL, i
Set Rs = Server.CreateObject("adodb.recordset")
If Request("seid") = 1 Then
SQL = "select sortid,SortName,SoftNum from [NC_softsort] where sortid >= " & Request.Form("StartID") & " and sortid <= " & Request.Form("EndID") & ""
Else
If Request("type") = "all" Then
SQL = "select sortid,SortName,SoftNum from [NC_softsort] order by sortid asc"
Else
SQL = "select sortid,SortName,SoftNum from [NC_softsort] where isUpdate = 1 order by sortid asc"
End If
End If
Rs.Open SQL, Conn, 1, 1
If Rs.EOF And Rs.bof Then
Response.Write "Sorry！没有找到任何分类。或者分类没有更新!"
Else
totalnumber = Rs.recordcount
i = 1
response.Write("<br>"&totalnumber&"<br>")
response.Write(i&"<br>")
Do While Not Rs.EOF
CreateSortList Rs("sortid"), Request("order")
Response.Write "<script>img2.width=" & Fix((i / totalnumber) * 400) & ";" & vbCrLf
Response.Write "txt2.innerHTML=""生成进度：" & FormatNumber(i / totalnumber * 100, 2, -1) & """;" & vbCrLf
Response.Write "txt3.innerHTML="" 共有分类 <B><font color=RED>" & totalnumber & "</font></B> 个 正在生成第 " & i & " 个"";" & vbCrLf
Response.Write "img2.title=""(" & i & ")"";</script>" & vbCrLf
Response.Flush
Response.Write "<table cellpadding=0 cellspacing=0 border=0 width=90% align=center><tr><td colspan=2 class=forumrow> 生成软件分类列表 [" & Rs(1) & "] 完成； 共有软件 [" & Rs(2) & "] 个。</td></tr></table>"
Response.Flush
Rs.movenext
i = i + 1
response.Write(i&"<br>")
Loop
End If
Rs.Close
Set Rs = Nothing
Response.Write "<script>img2.width=400;txt2.innerHTML=""100"";</script>"
Response.Write "<meta http-equiv=""refresh"" content=""1;url='?num=" & totalnumber & "&D=" & d & "&order=" & Request("order") & "&type=ok'"">"
...全文
