www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\flash\admin_makelist.asp

    <!--#include file="const.asp"-->
<!--#include file="../inc/common.asp"-->
<!--#include file="../../common/flash/list.asp"-->
<!--#include file="../inc/head.asp"-->
<%
Dim t,d,p,TakeCount,maketype,strSQLQuery,m_strNowTitle
Dim totalnumber,MaxHtmlListNum

MaxHtmlListNum=100

totalnumber=NewAsp.ChkNumeric(Request("totalnumber"))
maketype=NewAsp.ChkNumeric(Request("maketype"))
t=NewAsp.ChkNumeric(Request("t"))
p=NewAsp.ChkNumeric(Request("p"))
m_intOrder=NewAsp.ChkNumeric(Request("order"))
If p=0 Then p=1
TakeCount=NewAsp.ChkNumeric(Request("TakeCount"))
d=Request("d")
If d="" Then d=Now()

IsNowOutputText = False

Call createdhtml()
NewAsp.PageEnd()

Sub createdhtml()
	Dim Rs,SQL,ii
	Dim m_strLinkUrl
	m_strLinkUrl=""
	Response.Flush
	Select Case t
		Case 1,3
			strSQLQuery = " And TurnLink=0 And classid in ("& NewAsp.CheckStr(Request("inclassid")) &")"
			m_strLinkUrl="&inclassid="&Request("inclassid")
	Case Else
		strSQLQuery = " And TurnLink=0"
	End Select
	
	If totalnumber=0 Then
		If maketype=0 Then NewAsp.Execute ("UPDATE NC_Classify SET isUpdate=1 WHERE ChannelID="&ChannelID & strSQLQuery)
		totalnumber=NewAsp.Execute("SELECT COUNT(*) FROM [NC_Classify] WHERE ChannelID="&ChannelID&" And isUpdate=1"&strSQLQuery)(0)
	End If
	
	Response.Write "<script>$('planmain').style.display='';</script>"
	Response.Write "<script>$('plantext').style.display='';</script>"
	Set Rs = NewAsp.Execute("SELECT TOP 1 classid,classname FROM NC_Classify WHERE ChannelID="&ChannelID&" And isUpdate=1"&strSQLQuery)
	If Rs.BOF And Rs.EOF Then
		Response.Write "<script>"
		Response.Write "plantext("&totalnumber&","&TakeCount&",'" & ElapsedTime() & "','');"
		Response.Write "planpercent('100%');"
		Response.Write "planwidth(500);"
		Response.Write "</script>" & vbCrLf
		Response.Flush
	Else
		
		TakeCount=TakeCount+1
		classid=Rs(0)
		m_strNowTitle=Replace(Rs(1)&"", "'", "\'")
		pagenow=p
		Call BeginCreated()
		
		Response.Write "<script>"
		Response.Write "plantext("&totalnumber&","&TakeCount&",'" & ElapsedTime() & "','"&m_strNowTitle&" - "&HtmlFileName&"');"
		Response.Write "planpercent('" & FormatPercent(TakeCount/totalnumber,2,-1) & "');"
		Response.Write "planwidth("&Fix((TakeCount/totalnumber) * 500)&");"
		Response.Write "</script>" & vbCrLf
		Response.Flush
		If BuildHtmlDone=0 And Pcount>1 Then
			ii=0
			For pagenow=p+1 To Pcount
				If Not Response.IsClientConnected Then Response.End
				p=p+1
				ii=ii+1
				Call BeginCreated()
				Response.Write "<script>"
				Response.Write "plantext("&totalnumber&","&TakeCount&",'" & ElapsedTime() & "','"&m_strNowTitle&" - "&HtmlFileName&"');"
				Response.Write "</script>" & vbCrLf
				Response.Flush
				If pagenow>=Pcount Then Exit For
				If ii>=MaxHtmlListNum Then Exit For
			Next
			
			If BuildHtmlDone=1 Then
				p=1
			End If
		Else
			p=1
		End If
		m_strLinkUrl="admin_makelist.asp?ChannelID="&ChannelID&"&order="&m_intOrder&"&maketype="&maketype&"&totalnumber="&totalnumber&"&d="&d&"&t="&t&"&p="&p&"&TakeCount="&TakeCount&m_strLinkUrl
		If TakeCount<=totalnumber Then
			Response.Write "<meta http-equiv=""refresh"" content=""0;url='"&m_strLinkUrl&"''""/>"
		Else
			Response.Write "<script>"
			Response.Write "planpercent('100%');"
			Response.Write "planwidth(500);"
			Response.Write "</script>" & vbCrLf
			Response.Flush
		End If
	End If
	Rs.Close:Set Rs = Nothing
	If IsObject(TPL_XmlDom) Then Set TPL_XmlDom=Nothing
End Sub

Function ElapsedTime()
	Dim ElapsedSeconds
	ElapsedSeconds=DateDiff("s", d, Now())
	If ElapsedSeconds > 3600 then
		ElapsedTime = ElapsedSeconds \ 3600 & " 时 " & (ElapsedSeconds mod 3600) \ 60 & " 分 " & ElapsedSeconds mod 60 & " 秒"
	ElseIf ElapsedSeconds > 60 then
		ElapsedTime = ElapsedSeconds \ 60 & " 分 " & ElapsedSeconds mod 60 & " 秒"
	Else
		ElapsedTime = ElapsedSeconds mod 60 & " 秒"
	End If
End Function

Sub BeginCreated()
	Call Main()
	If BuildHtmlDone=1 Then NewAsp.Execute ("UPDATE NC_Classify SET isUpdate=0 WHERE classid="&classid)
	HtmlFilePath=NewAsp.CheckHtmlFilePath(HtmlFileName)
	NewAsp.CreatPathEx HtmlFilePath
	NewAsp.CreatedTextFile HtmlFileName,TPL_Memory
	TPL_Memory="":iScanCount=0
End Sub
%>