<% 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 Set CmsDjSpecial = New CmsDj_Com_Special ID=SafeRequest("id","get") IF Not (IsNum(ID)) Then Set RsSpecial=CmsDjSpecial.GetRs("",0,"CD_Passed=0") Else Set RsSpecial=CmsDjSpecial.GetRs("",0,"CD_Passed=0 And CD_ID In("&ID&")") End IF IF Not RsSpecial.Eof Then For I=1 To RsSpecial.RecordCount TempStr="" TempStr=Label.SpanDjSpecial(RsSpecial("CD_ID")) FsoUrl=LinkUrl("cmsdj_special",RsSpecial(1),1,RsSpecial(0)) Echo ""&i&": "&RsSpecial(2)&"   "&FsoUrl&"
" Fso.CreateFile FsoUrl,True,TempStr RsSpecial.MoveNext Next End IF RsSpecial.CLose IF Not (IsNum(ID)) Then Put "" Else Put "

所有页面生成完毕！ 返回上一页" End IF %>