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

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