<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Const dbdns="../"%>
<%
Cmd = Application("Html_Cmd")
sTime = Application("Html_sTime")
RsCount = Cdbl(Application("Html_RsCount"))
xCount = Cdbl(Application("Html_xCount"))
Tmp_xCount = Cdbl(Application("Tmp_xCount"))
Tmp_RsCount = Cdbl(Application("Tmp_RsCount"))
Select Case Cmd
Case "Index_Html"
Call Index_Html()
Response.Write("首页生成完毕")
Case "Article_Page_Html"
ID = Application("Html_ArrData")(0,xCount)
Call Article_Page_Html(ID)
Response.Write("内容页ID=" & ID & "生成完毕")
If xCount + 1 <= RsCount Then
Application("Html_xCount") = xCount + 1
Application("Tmp_xCount") = Tmp_xCount + 1
Call NextUrl("")
End If
Case "Article_List_Html"
PageNo = Request.QueryString("PageNo")
If PageNo = "" Then PageNo = "1"
PageNo = Cdbl(PageNo)
ClassID = Application("Html_ArrData")(0,xCount)
pLen = Application("Html_ArrData")(1,xCount)
Call Article_List_Html(PageNo,ClassID)
Response.Write("列表页ClassID=" & ClassID & ",PageNo=" & PageNo & "生成完毕")
If PageNo + 1 <= pLen Then
If PageNo = 1 Then
Application("Tmp_RsCount") = Tmp_RsCount + Cdbl(pLen) - 1
End If
Application("Tmp_xCount") = Tmp_xCount + 1
Call NextUrl(PageNo + 1)
Else
If xCount + 1 <= RsCount Then
Application("Html_xCount") = xCount + 1
Application("Tmp_xCount") = Tmp_xCount + 1
Call NextUrl(1)
End If
End If
End Select
Private Sub NextUrl(PageNo)
Response.Write("")
End Sub
%>
px; position:absolute; z-index:99;">
<%=Tmp_xCount%>/<%=Tmp_RsCount%>(<%=Int(Tmp_xCount/Tmp_RsCount*100)%>%)
<%
Call CloseConn()
Set Rs = Nothing
Set Admin = Nothing
%>
帮忙看下怎么改一下啊