<% Response.CacheControl="no-cache":Server.ScriptTimeOut=99999 Dim TempStr,DjClass,DjClassArr,ClassName,TempName,I,DArray,Rs,PageCounts,Mark_Text Dim WebAll,ClassAll,Sel,Page,ClassIDs,ClassID,ID,types Dim DB,ForGo,FsoUrl Label.SpanSel Fetch Set CmsDjMusic = New CmsDj_Com_Dj Set DjClass=New CmsDj_Com_DjClass DjClassArr=Cache.GetCache("DjClass") ClassIDs=SafeRequest("ClassIDs","auto") ID=SafeRequest("id","get") types=Trim(SafeRequest("types","get")) TempName="Play.Html" IF Not (IsNum(ID)) Then IF Not IsNum(ClassIDs) Then ClassIDs=0 Else ClassIDs=Cint(ClassIDs) End IF IF ClassIDs=0 Then ClassIDs=DjClassArr(0,0) ClassName=DjClassArr(1,0) ClassAll=True Else ClassName=GetAttr(DjClassArr,ClassIDs,1) End IF IF Sel Then IF CD_DBtype="acc" Then Set RsMusic=CmsDjMusic.GetRs("",0,"CD_ClassID="&ClassIDs&" And CD_Passed=0 And CD_Deleted=0 And Datediff('d',CD_AddTime,date())=0") Else Set RsMusic=CmsDjMusic.GetRs("",0,"CD_ClassID="&ClassIDs&" And CD_Passed=0 And CD_Deleted=0 And Datediff(d,CD_AddTime,getdate())=0") End IF Else Set RsMusic=CmsDjMusic.GetRs("",0,"CD_Passed=0 And CD_Deleted=0 And CD_ClassID="&ClassIDs) End IF Else Set RsMusic=CmsDjMusic.GetRs("",0,"CD_ID In("&ID&")") IF Not RsMusic.Eof Then For I=1 To RsMusic.RecordCount TempStr="" TempStr=Label.SpanDjPlay(RsMusic("CD_ID")) FsoUrl=LinkUrl("cmsdj_dj",RsMusic(2),1,RsMusic(0)) Echo ""&i&": "&RsMusic(1)&"   "&FsoUrl&"
" Fso.CreateFile FsoUrl,True,TempStr RsMusic.MoveNext Next End IF RsMusic.CLose IF Cint(types)=1 Then Put "" IF Cint(types)=2 Then Put "

所有页面生成完毕！ 返回上一页" End IF IF Not RsMusic.Eof Then RsMusic.PageSize=CD_Createpre PageCounts = RsMusic.PageCount CountData = RsMusic.RecordCount RsMusic.AbsolutePage=Page For I=1 To CD_Createpre IF RsMusic.Eof Then Exit For 'Mark_Text=TempStr IF I>=Page*CD_Createpre Then Exit For Mark_Text=Label.SpanDjPlay(RsMusic("CD_ID")) 'Mark_Text=Label.ParamTwo(Mark_Text,"dj",RsMusic,I) FsoUrl=LinkUrl("cmsdj_dj",RsMusic(2),1,RsMusic(0)) Echo ""&ClassName&": "&RsMusic(1)&"   "&FsoUrl&"
" Fso.CreateFile FsoUrl,True,Mark_Text RsMusic.MoveNext Next End IF RsMusic.Close Page=Page+1 IF Page<=PageCounts Then Put "
暂停 "&CD_StopTime&" 秒后继续生成．．．．．" Else IF ClassAll Then For I=0 To Ubound(DjClassArr,2) IF DjClassArr(0,I)>ClassIDs Then IF Page-1=1 Then Put "" Else Put "
暂停 "&CD_StopTime&" 秒后继续生成．．．．．．" End IF End IF Next IF Sel Then Echo "" Else Put "" End IF Else Put "" End IF End IF %>