syscode_dj.asp

后台登陆admin.asp

else
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='?djcat_id="&rs2("djcat_id")&"'>├ "&rs2("djcat_name")&"</a><BR>"
end if
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
end sub

'=================================================
'过程名：class1_dj
'作  用：歌曲分类——横排
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub class1_dj()
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
if request("djcat_id")=cstr(rs1("djcat_id")) then
response.write "&nbsp;<font color=""#FF0000"">〖"&rs1("djcat_name")&"〗</font>"
else
response.write "&nbsp;<a href='?djcat_id="&rs1("djcat_id")&"'>〖"&rs1("djcat_name")&"〗</a>"
end if
sql="select * from djcat where sid="&rs1("djcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if request("djcat_id")=cstr(rs2("djcat_id")) then
response.write "&nbsp;<font color=""#FF0000"">├ "&rs2("djcat_name")&"</font>"
else
response.write "&nbsp;<a href='?djcat_id="&rs2("djcat_id")&"'>├ "&rs2("djcat_name")&"</a>"
end if
rs2.movenext
loop
response.write "<BR>"
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
end sub

'=================================================
'过程名：search_dj
'作  用：显示音乐搜索表单
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub search_dj()
Response.Write "<form name='form2' method='post' action='dj.asp'><div align=center><input type='radio' name='select' value='dj_name' checked class='inuptCG'>名称&nbsp;<input type='radio' name='select' value='dj_user' class='inuptCG'>歌手&nbsp;<input type='radio' name='select' value='review' class='inuptCG'>评论<input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onfocus=""this.value=''"" class='input'>&nbsp;<input type='submit' name='search'  value='搜索' onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'""></form>" & vbCrLf
end sub

'=================================================
'过程名：searchzj_dj
'作  用：显示音乐专集搜索表单
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub searchzj_dj()
Response.Write "<form name='form2' method='post' action='dj_Speciallist.asp'><div align=center><input type='radio' name='select' value='name' checked class='inuptCG'>专集名称&nbsp;<input type='radio' name='select' value='zjuser' class='inuptCG'>歌手姓名<BR><input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onfocus=""this.value=''"" class='input'>&nbsp;<input type='submit' name='search'  value='搜索' onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'""></form>" & vbCrLf
end sub

'=================================================
'过程名：displayList_dj
'作  用：带分页功能的歌曲列表
'参  数：popdjnum-热门点击数
'        nn--------------标题长度
'        Hxperpage-------每页显示条数
'        classyes--------是否显示分类，True为是，False为否
'        NewWindows------是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub displayList_dj(nn,Hxperpage,classyes,NewWindows)
Dim CurPage,Url_Add
Url_Add="?"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
    Response.End
  end if
end if
dim mtyid,hx01,hx66010,zj,HX
if request.querystring("djcat_id")<>"" then
   mtyid=int(djcat_id)
   set hx01=conn.execute("select djcat_id,djcat_name,sid from djcat order by djcat_id")
   do while not hx01.eof
   if mtyid=hx01("sid") then
      hx66010=hx66010+" or djcat_id="&hx01("djcat_id") '显示页所需变量dj.asp
   end if
   hx01.movenext
   loop
   hx01.close
   set hx01=nothing
   sql="select * from dj where passed=0 and (djcat_id="&djcat_id&hx66010&") order by istop desc,dj_id DESC"
   Url_Add=Url_Add&"djcat_id="&djcat_id&"&"
elseif request("keyword")<>"" and (request("select")="dj_name" or request("select")="dj_user" or request("select")="review" or request("select")="tjuser") then
   sql="select * from dj where passed=0 and "&request("select")&" like '%"&Jencode(checkspace(request("keyword")))&"%' order by istop desc,dj_id DESC"
   Url_Add=Url_Add&"select="&request("select")&"&keyword="&Server.URLEncode(request("keyword"))&"&"
else
   sql="select * from dj where passed=0 order by istop desc,dj_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=30 colSpan=7><FONT color=#b70000>&nbsp;<B>·</B></FONT>"
if request("djcat_id")<> "" then
Response.Write "本分类共有"
elseif request("select")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&rs.recordcount&"</span>首歌曲</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<form name='form' onsubmit=""javascript:return lbsong();"" target=""lbsong"" action='djplaylist.asp'>"
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<TD width='6%' height='26'>状态</TD><td width='*'>主 题</td><TD width='13%'>歌手</TD><td width='13%'>所属专集</td><TD width='8%'>人气</TD><TD width='6%'>试听</TD><TD width='6%'>连播</TD>" & vbCrLf
Response.Write "</tr>" & vbCrLf
if not rs.eof then
   Dim Hx_Nums,MultiPages,i
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""7"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
sql="select djcat_id,djcat_name from djcat where djcat_id="&rs("djcat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
if rs("istop")="1" then      
folder="<img src=""img/1.gif"" title=固顶音乐>"       
else
folder="<img src=""img/4.gif"" title=普通音乐>"       
end if      
if rs("istop")="0" then      
if rs("isbest")=1 then
folder="<img src=""img/2.gif"" title=推荐音乐>"
elseif rs("dj_count")>=popdjnum then
folder="<img src=""img/3.gif"" title=热门音乐>"       
else
folder="<img src=""img/4.gif"" title=普通音乐>"       
end if      
end if 
if rs("SpecialID")="0" then      
zj="［单曲］"       
else
set HX=conn.execute("select Name from djSpecial where SpecialID=" & rs("SpecialID") & "")
zj=""&HX(0)&""      
end if 
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if     
Response.Write "<TR>" & vbCrLf
Response.Write "<TD align=Center height='26'>"&folder&"</TD><td>"
if classyes=True then Response.Write "<a href='dj.asp?djcat_id="&rs("djcat_id")&"'>『"&gotTopic(rscat("djcat_name"),10)&"』</a>"
Response.Write "<a href='showdj.asp?dj_id=" & rs("dj_id")& "' Title='歌曲名称："&rs("dj_name")&"&#13&#10视听次数："&rs("dj_count")&"&#13&#10上传时间："&rs("dj_date")&"' "& nnn &">"&gotTopic(rs("dj_name"),nn)&"</a></TD>"
Response.Write "<TD align=Center><a href='dj.asp?select=dj_user&keyword="&rs("dj_user")&"' title='查找作者["&rs("dj_user")&"]的所有歌曲'>"&left(rs("dj_user"),4)&"</a></TD>"
Response.Write "<TD align=Center>"
if rs("SpecialID")="0" then 
Response.Write ""&left(zj,4)&"" 
else 
Response.Write "<a href='Showdj_Special.asp?Specialid="&rs("SpecialID")&"' Title='点击进入此专集'>"&left(zj,4)&"" 
end if
Response.Write "</TD>"
Response.Write "<TD align=Center>"&rs("dj_count")&"</TD>"
Response.Write "<TD align=Center><a href='djplaylist.asp?checked="&rs("dj_id")&"&player=+' onclick=""HxWindow(this.href,'dj','350','260','no','no','center');return false"" Title='点击单首弹窗试听'><img border='0' src='img/play_dj/bt_play.gif' width='14' height='14'></a></TD>"
Response.Write "<TD align=Center><input type='checkbox' name='checked' value='"&rs("dj_id")&"'></TD>"
Response.Write "</TR>" & vbCrLf
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td align=middle height='60' colSpan=7>"
if request("djcat_id")<> "" then
Response.Write "该分类暂时没有歌曲"
elseif request("keyword")<>"" then
Response.Write "没有找到包含[<b><font color=red>"&request("keyword")&"</font></b>]的歌曲！"
else
Response.Write "没有任何歌曲，请管理员到后台添加！"
end if
Response.Write "</td></tr>" & vbCrLf
end if
end if
Response.Write "<TR><TD colspan=7 align=Center height='26'><div align='center'>"
Response.Write "<input type='button' name='chkall' value='' onclick=""CheckAll(this.form)"" title=""选择显示的所有歌曲"" style=""width: 62px; height: 23px; background-image: url('img/ly1.gif'); border-style: none; border-width: medium"">&nbsp;" & vbCrLf         
Response.Write "<input type='button' name='chkOthers' value='' onclick=""CheckOthers(this.form)"" title=""反向选择歌曲"" style=""width: 62px; height: 23px; background-image: url('img/ly2.gif'); border-style: none; border-width: medium"">&nbsp;" & vbCrLf
Response.Write "<input type='submit' name='player' value='' title=""请先选择你想听的歌曲后再点击播放"" style=""width: 62px; height: 23px; background-image: url('img/ly3.gif'); border-style: none; border-width: medium"">" & vbCrLf
Response.Write "</div></TD></TR></form>" & vbCrLf
Response.Write(MultiPages)
Response.Write "</table>" & vbCrLf
rscat.close
set rscat=nothing
rs.close
set rs=nothing
end sub

'=================================================
'过程名：displayListzj_dj
'作  用：带分页功能的专集列表——带图片显示
'参  数：nn-标题长度,Hxperpage-每页显示条数
'        ImgWidth   ----图片宽度
'        ImgHeight  ----图片高度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub displayListzj_dj(nn,Hxperpage,ImgWidth,ImgHeight,NewWindows)
Dim CurPage,Url_Add
Url_Add="?"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
    Response.End
  end if
end if
dim djcat_id,mtyid,hx01,hx66010
if request.querystring("djcat_id")<>"" then
   djcat_id=request.querystring("djcat_id")
   mtyid=int(djcat_id)
   set hx01=conn.execute("select djcat_id,djcat_name,sid from djcat order by djcat_id")
   do while not hx01.eof
   if mtyid=hx01("sid") then
      hx66010=hx66010+" or ClassID="&hx01("djcat_id") 
   end if
      hx01.movenext
      loop
   hx01.close
   set hx01=nothing
   sql="select * from djSpecial where ClassID="&djcat_id&hx66010&" order by istop desc,SpecialID DESC"
   Url_Add=Url_Add&"djcat_id="&djcat_id&"&"
elseif request("keyword")<>"" and (request("select")="name" or request("select")="zjuser") then
   sql="select * from djSpecial where "&request("select")&" like '%"&Jencode(checkspace(request("keyword")))&"%' order by istop desc,SpecialID DESC"
   Url_Add=Url_Add&"select="&request("select")&"&keyword="&Server.URLEncode(request("keyword"))&"&"
else
   sql="select * from djSpecial order by istop desc,SpecialID DESC"
end if
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,1,1
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=30 colSpan=4><FONT color=#b70000>&nbsp;<B>·</B></FONT>"
if request("djcat_id")<> "" then
Response.Write "本分类共有"
elseif request("select")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&rs.recordcount&"</span>张专集</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
if not rs.eof then
   Dim Hx_Nums,MultiPages,i
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""4"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
Response.Write "<TD style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px' align=middle width='20%'><a href='Showdj_Special.asp?Specialid="&rs("SpecialID")&"' title='专辑："&rs("name")&"' "& nnn &"><img src='"&rs("pic")&"' width='"&ImgWidth&"' height='"&ImgHeight&"' border=0 alt='专辑："&rs("name")&"'></TD><TD width='30%' align='top'>&nbsp;专集名称："&gotTopic(rs("name"),nn)&"<br>&nbsp;歌手姓名："&rs("zjuser")&"<br>&nbsp;专辑语言："&rs("Yuyan")&"<br>&nbsp;唱片公司："&rs("Gongsi")&"</TD>"