<% 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 CmsDjPage = New CmsDj_Com_Page ID=SafeRequest("PageID","post") IF Not (IsNum(ID)) Then Set RsPage=CmsDjPage.GetRs("",0,"CD_Html=0") Else Set RsPage=CmsDjPage.GetRs("",0,"CD_Html=0 And CD_ID In("&ID&")") End IF IF Not RsPage.Eof Then For I=1 To RsPage.RecordCount TempStr="" TempStr=Label.SpanDjPage(RsPage("CD_ID")) FsoUrl=InstallDir&RsPage("CD_Url") Echo ""&i&": "&RsPage(1)&"   "&FsoUrl&"
" Fso.CreateFile FsoUrl,True,TempStr RsPage.MoveNext Next End IF RsPage.CLose IF Not (IsNum(ID)) Then Put "" Else Put "" End IF %>