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%>