<% ac=Request("ac") if ac="key" then Call Dj95_Keys() Elseif ac="bdclass" then Call Dj95_bdclass() Elseif ac="quxiao" then Call Dj95_quxiao() else Call Dj95_Main() end if %> <%Sub Dj95_Main()%>

95DJ数据资源入库系统 由 刘杰先生 编写并整合到（ASP 3.0）  如果您还没有以下信息，请先到www.95dj.com登记

接入用户名： *填95DJ的用户名  站长注册  采集间隔秒： *必须为整数   播放器长度： *像素   播放器高度： *像素   播放器颜色： *Lan=蓝，Hei=黑

95DJ数据资源栏目绑定

95DJ资源栏目是： ①.迪高串烧 <%Call Get_Dj95_Class("dj95_1","迪高串烧")%>   ②.慢摇串烧 <%Call Get_Dj95_Class("dj95_11","慢摇串烧")%>   ③.中文DISCO单曲 <%Call Get_Dj95_Class("dj95_2","中文DISCO单曲")%>   ④.中文慢摇单曲 <%Call Get_Dj95_Class("dj95_15","中文慢摇单曲")%>   ⑤.英文Disco单曲 <%Call Get_Dj95_Class("dj95_13","英文Disco单曲")%>   ⑥.英文慢摇单曲 <%Call Get_Dj95_Class("dj95_14","英文慢摇单曲")%> ⑦.交谊舞曲 <%Call Get_Dj95_Class("dj95_18","交谊舞曲")%>   ⑧.RNB -RAP <%Call Get_Dj95_Class("dj95_16","RNB-RAP单曲")%>   ⑨.电音----House <%Call Get_Dj95_Class("dj95_17","电音House单曲")%>     “√” 表示已经绑定 ， “×” 表示未绑定 你网站栏目是： 选择 <% Set Rs=Conn.Execute(" Select CD_ID,CD_Name From [CmsDj_Class] where CD_SystemID=1 ") do while not rs.eof %> "><%=Rs("CD_Name")%> <% Rs.movenext loop Rs.close:Set Rs=nothing %> 请对应栏目后（确认绑定）请谨慎操作！

您服务器XmlHttp组件支持情况(采集)

： <% On Error Resume Next oxml=array("Msxml2.ServerXMLHTTP.6.0","Msxml2.ServerXMLHTTP.5.0","Msxml2.ServerXMLHTTP.4.0","Msxml2.ServerXMLHTTP.3.0","Msxml2.ServerXMLHTTP","Msxml2.XMLHTTP.6.0","Msxml2.XMLHTTP.5.0","Msxml2.XMLHTTP.4.0","Msxml2.XMLHTTP.3.0","Msxml2.XMLHTTP") for i=0 to ubound(oxml) Set getxmlhttp = Server.CreateObject(oxml(i)) If Err Then Err.Clear Response.Write "   "&oxml(i)&" 不支持 " else Response.Write "   "&oxml(i)&" 支持 " end if next %>

<%End Sub%> <% Sub Dj95_Keys() Dj95_h = SafeRequest("Dj95_h","post") Dj95_w = SafeRequest("Dj95_w","post") Dj95_color=SafeRequest("Dj95_color","post") Dj95_name = SafeRequest("name","post") Dj95_cjms = SafeRequest("cjms","post") Dim n,TempStr TempStr = "" TempStr = TempStr & chr(60) & "%" & VbCrLf TempStr = TempStr & "Dim Dj95_h,Dj95_w,Dj95_name,Dj95_cjms" & VbCrLf TempStr = TempStr & "Dj95_h="& Chr(34) & Dj95_h & Chr(34) &" '播放器-高度"& VbCrLf TempStr = TempStr & "Dj95_w="& Chr(34) & Dj95_w & Chr(34) &" '播放器-长度"& VbCrLf TempStr = TempStr & "Dj95_color="& Chr(34) & Dj95_color & Chr(34) &" '播放器-颜色"& VbCrLf TempStr = TempStr & "Dj95_name="& Chr(34) & Dj95_name & Chr(34) &" '你在95DJ的会员名"& VbCrLf TempStr = TempStr & "Dj95_cjms="& Chr(34) & Dj95_cjms & Chr(34) &" '采集间隔秒数"& VbCrLf TempStr = TempStr & "%" & chr(62) & VbCrLf ADODB_SaveToFile TempStr,"../../data/Dj95_Config.asp" Call AdminAlert("更新网站信息成功，正在返回...","Dj95_Set.asp",0) Response.End End Sub '█████████Dj95-判断绑定█████████ Sub Get_Dj95_Class(ATieID,Aname) Set Rs=Conn.Execute(" Select CD_ID,CD_Name From [Cmsdj_Class] Where CD_TieID like '%,"&ATieID&",%' ") If (Rs.eof And Rs.Bof) or Err.number<>0 then '如果不存在 Response.Write("") Else Response.Write("") End IF Rs.close:Set Rs=nothing End Sub '============================================================== '█████████Dj95-绑定分类█████████ Sub Dj95_bdclass() Dj95_ClassID=SafeRequest("DjClassID","post") My_ClassID=SafeRequest("ClassID","post") if Dj95_ClassID="" or My_ClassID="no" then Call UserAlertA("请先选中95DJ的栏目 和 你网站栏目 ","-1",1) :CloseConn() Response.End end if Set Rs=Conn.Execute(" Select * From [Cmsdj_Class] Where CD_ID="&My_ClassID&" ") If (Rs.eof And Rs.Bof) or Err.number<>0 then '如果不存在 Call AdminAlert("对不起,你选择的分类不存在，正在返回...","Dj95_Set.asp",0) Else CD_TieID=Rs("CD_TieID") End IF QQaa=","&Dj95_ClassID&"," Conn.Execute (" UPDATE [CmsDj_Class] SET CD_TieID='"&CD_TieID&QQaa&"' where CD_ID="&My_ClassID&" ") Rs.close:Set Rs=nothing :CloseConn() Call AdminAlert("绑定成功，正在返回...","Dj95_Set.asp",0) End Sub '============================================================== '█████████Dj95-取消绑定█████████ Sub Dj95_quxiao() Conn.Execute (" UPDATE [CmsDj_Class] SET CD_TieID='' where CD_SystemID=1 "):CloseConn() Call AdminAlert("已解除所有绑定，正在返回...","Dj95_Set.asp",0) End Sub '============================================================== CloseConn() %>