<% If Not IsInTeger(Request("ClassID")) Then Response.write"" Response.End End If Response.CacheControl="no-cache":Server.ScriptTimeOut=99999 Dim TempStr,DjClass,DjClassArr,PageCounts Dim WebAll,ClassAll,Sel,Page,ClassID,ClassName Dim I,ForGo,Mark_Text,Rs,FsoUrl,KeyWord,PageEnd Label.SpanSel Fetch DjClassArr=Cache.GetCache("DjClass") IF ClassID=0 Then ClassAll=True:ClassID=DjClassArr(0,0):ClassName=DjClassArr(1,0):AliasName=DjClassArr(1,0) Else For I=0 To Ubound(DjClassArr,2) IF Cint(ClassID)=Cint(DjClassArr(0,I)) Then:ClassName=DjClassArr(1,I):Exit For:End IF Next End IF TempStr=Label.SpanDjList(ClassID) Label.Page_Mark TempStr,ClassID,KeyWord PageCounts=Label.GetPageCount PageEnd=CD_Createpre+Page-1 For I= Page To PageEnd Mark_Text=Label.Span_Page(ClassID,Page) Mark_Text=Label.PageShow(Mark_Text,1,Page,ClassID) '生成文件 FsoUrl=LinkClassUrl("cmsdj_class",ClassID,1,Page) Echo "正在生成 "&ClassName&" 第"& Page &"页    "&FsoUrl&"
" Fso.CreateFile FsoUrl , True , Mark_Text IF Page=1 Then Fso.CreateFile replace(LinkClassUrl("cmsdj_class",ClassID,1,Page),Mid(LinkClassUrl("cmsdj_class",ClassID,1,Page),InStrRev(LinkClassUrl("cmsdj_class",ClassID,1,Page),"/")+1),"index.html") ,True , Mark_Text Page=Page+1 IF Cint(Page)>Cint(PageCounts) Then Exit For Next IF Cint(Page)<=Cint(PageCounts) Then Put "
暂停 "&CD_StopTime&" 秒后继续生成．．．．．．" Else IF ClassAll Then For I=0 To Ubound(DjClassArr,2) IF Cint(DjClassArr(0,I))>Cint(ClassID) Then Put "
暂停 "&CD_StopTime&" 秒后继续生成．．．．．．" End IF Next IF WebAll Then Echo "" Else Put "" End IF Else Put "" End IF End IF %>