<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" 'response.Charset="gb2312" From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url then response.write " " response.end end if action=request("action") if action="showisbest" then id=trim(request.QueryString("id")) Set CmsDjMusic = New CmsDj_Com_Dj Set Rs = CmsDjMusic.GetRs("",0,"CD_ID="&id) showuser="" if Rs("CD_IsBest")=1 then showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" elseif Rs("CD_IsBest")=2 then showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" elseif Rs("CD_IsBest")=3 then showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" elseif Rs("CD_IsBest")=4 then showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" elseif Rs("CD_IsBest")=5 then showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" else showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" end if Response.Write(escape(showuser)) elseif action="editisbest" then l=trim(request.QueryString("l")) id=trim(request.QueryString("id")) Set CmsDjMusic = New CmsDj_Com_Dj Set Rs = CmsDjMusic.GetRs("",0,"CD_ID="&id) Arr1=Array("CD_IsBest") Arr2=Array(l) Call CmsDjMusic.Update(Arr1,Arr2,"CD_ID="&id&"") Rs.Close Set Rs=nothing elseif action="showcount" then showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"" showuser=showuser&"

·会员数："&Conn.DB ("select count(*) from CmsDj_User","exe")(0)&"

·歌曲数："&Conn.DB ("select count(*) from CmsDj_Dj","exe")(0)&"

·专辑数："&Conn.DB ("select count(*) from CmsDj_Special","exe")(0)&"

·日志数："&Conn.DB ("select count(*) from CmsDj_Art","exe")(0)&"

·相册数："&Conn.DB ("select count(*) from CmsDj_Pic","exe")(0)&"

" Response.Write(escape(showuser)) end if %>