www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > sowrm.asp
<!--#include file="connkkp.asp"--><% IF Session("auth") = True THEN Response.ContentType = "application/x-javascript" Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Session("auth") = False %><%=playstart%><%=chr(10)%><% if request("songid")<>"" then set rs=server.createobject("adodb.recordset") set Nrs=server.createobject("adodb.recordset") id=request("songid") sql="select * from Musiclist where id in (" & id & ")" rs.open sql,conn,1,3 while not rs.eof ListenUrl=rs("ListenUrl") LS_ID=rs("LS_ID") source=ListenUrl If (Weekday(Date())=2 Or DateDiff("w",Rs("Hits_Date"),Date())>0) And DateDiff("d",Rs("Hits_Date"),Date())>0 Then Rs("Hits_Weekday_1") = Rs("Hits_Weekday") Rs("Hits_Weekday") = 0 End If If DateDiff("m",Rs("Hits_Date"),Date())>0 Then Rs("Hits_Month_1") = Rs("Hits_Month") Rs("Hits_Yesterday") = Rs("Hits_Today") Rs("Hits_Month") = 0 Rs("Hits_Today") = 0 Rs("Hits_Date") = Date() Else If DateDiff("d",Rs("Hits_Date"),Date())>0 Then Rs("Hits_Yesterday") = Rs("Hits_Today") Rs("Hits_Today") = 0 Rs("Hits_Date") = Date() End If End If Rs("Hits") = Rs("Hits")+1 Rs("Hits_Today") = Rs("Hits_Today")+1 Rs("Hits_Weekday") = Rs("Hits_Weekday")+1 Rs("Hits_Month") = Rs("Hits_Month")+1 Rs.Update if LS_ID<>"" then sql="select ListenServerUrl from DJServer where LServerID="&LS_ID Nrs.open sql,conn,1,1 ListenServerUrl=Nrs("ListenServerUrl") source=ListenServerUrl+ListenUrl Nrs.close end if %><%=source%><%=chr(10)%><% rs.movenext wend rs.Close set rs=nothing end if conn.close set conn=nothing %> <%ELSE%><%=request("songid")%> <%END IF%>