<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
response.Charset="gb2312"
Set CmsDjView = New CmsDj_Com_View
Set CmsDjMusic = New CmsDj_Com_Dj
Set CmsDjPublic = New CmsDj_Com_Public
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
l=SafeRequest("l","get")
action=SafeRequest("action","get")
if action="good_bad" then
id=trim(request.QueryString("id"))
Set Rs=CmsDjMusic.GetRs("CD_ID,CD_uHits,CD_dHits",0,"CD_ID="&ID)
OuHits=rs("CD_uHits")
OdHits=rs("CD_dHits")
if OuHits=OdHits then
uHits = "50%"
dHits = "50%"
else
nCount = Int(OuHits)+Int(OdHits)
uHits = FormatPercent(OuHits/nCount,0)
dHits = FormatPercent(OdHits/nCount,0)
end if
if uHits<"0" then
uHits=Replace(uHits,uHits,"0"&uHits)
elseif dHits<"0" then
dHits=Replace(dHits,dHits,"0"&dHits)
end if
showuser=""
showuser=showuser&"
"
showuser=showuser&"
好听("&OuHits&")
"
showuser=showuser&"
"
showuser=showuser&"
"&uHits&"
"
showuser=showuser&"
"
showuser=showuser&"
"
showuser=showuser&"
"
showuser=showuser&"
难听("&OdHits&")
"
showuser=showuser&"
"
showuser=showuser&"
"&dHits&"
"
showuser=showuser&"
"
showuser=showuser&"
"
Response.Write(escape(showuser))
elseif action="doHits" then
id=request("id")
dowhat=request("dowhat")
djID=md5(trim(id)+123)
if Request.Cookies("Ylmv_Com")("doHits_dj" & djID)<>"yes" then
Response.Cookies("Ylmv_Com")("doHits_dj" & djID)="yes"
Response.Cookies("Ylmv_Com").Expires=date+1
else
Response.Write(escape("Err_145"))
Response.End
end if
Set Rs=CmsDjMusic.GetRs("CD_ID,CD_uHits,CD_dHits",0,"CD_ID="&ID)
if dowhat="good" then
Rs("CD_uHits")=Rs("CD_uHits")+1
else
Rs("CD_dHits")=Rs("CD_dHits")+1
end if
Rs.UpDate
Rs.Close
set Rs=nothing
elseif action="get_dance" then
showuser=""
if UserLogined<>True then
Response.Write(escape("
"))
response.end
end if
m=0
Set Rs=CmsDjPublic.GetRs("",0,"CD_AA=2 and CD_CC="&Cmsdj_Com_UserID&" order by CD_ID desc")
if not Rs.eof then
do while not rs.eof
m=m+1
showuser=showuser&"
"
if m>=20 then exit do
rs.movenext
loop
else
showuser=showuser&"
暂无音乐, 赶快去收藏吧! ^_^
"
end if
rs.close
set rs=nothing
Response.Write(escape(showuser))
elseif action="commentadd" then
If DateDiff("s",Request.Cookies("7xiwlcomment")("vtime"),Now())<60 Then
Response.Write(escape("Err_106"))
Response.End
End IF
Response.Cookies("7xiwlcomment")("vtime")=Now()
id = SafeRequest("id","get")
content = SafeRequest("content","get")
If UserLogined<>True Then
CmsDj_Com_UserName="游客"
End If
Arr1=Array("channel","ClassID","cid","content","cuid","cname","ctime","cip")
Arr2=Array(0,0,id,RemoveHTML(content),CmsDj_Com_UserID,CmsDj_Com_UserName,Now(),Request.ServerVariables("REMOTE_ADDR"))
Call CmsDjView.add(Arr1,Arr2)
Response.Write(escape("Err_105"))
elseif action="comment" then
id=SafeRequest("id","get")
page=int(request.QueryString ("page"))
if page<=0 or page="" then page=1'初始化分页参数
showconnent="
"
i=0
showconnent="
"
Set Rs = CmsDjView.GetRs("",0,"channel=0 and cid="&id&" order by ctime desc")
If Not(rs.bof And rs.EOF) Then
rs.pagesize=50 '每页数据
rs.AbsolutePage=page
m=rs.recordcount '总记录
n=rs.PageCount '总页数
z=rs.pagesize '每页数量
do while not rs.eof and i")
next
vcontent = Replace(vcontent,chr(13)&chr(10)," ")
showconnent=showconnent&"