<%
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=request("l")
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)
dHits = FormatPercent(OdHits/nCount)
end if
if uHits<"0" then
uHits=Replace(uHits,uHits,"00"&uHits)
elseif dHits<"0" then
dHits=Replace(dHits,dHits,"00"&dHits)
end if
showuser=""
showuser=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&"
"
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_top" then
typeid=trim(request.QueryString("type"))
showuser=""
m=0
Set Rs=CmsDjMusic.GetRs("CD_ID,CD_Name,CD_ClassID",0,"CD_Passed=0 and CD_Deleted=0 and CD_ClassID="&typeid&" order by CD_Hits 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="get_favtop" then
showuser=""
m=0
Set Rs=CmsDjMusic.GetRs("CD_ID,CD_Name,CD_ClassID",0,"CD_Passed=0 and CD_Deleted=0 order by CD_FavHits 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="comment" then
id = SafeRequest("id","get")
content = SafeRequest("content","get")
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_146"))
elseif action="user_login" then
name=unescape(request("name"))
if request("name")="" then
Response.Write(escape("Err_100"))
Response.End
elseif InStr(name," ")<>0 or InStr(name,"'")<>0 or InStr(name,"`")<>0 or InStr(name,"=")<>0 or InStr(name,"-")<>0 or InStr(name,",")<>0 or InStr(name,"""")<>0 then
Response.Write(escape("Err_101"))
Response.End
elseif request("pwd")="" then
Response.Write(escape("Err_102"))
Response.End
else
pwd=md5(unescape(request("pwd")))
Set CmsDjUser = New CmsDj_Com_User
Set Rs=CmsDjUser.GetRs("",0,"username='" & name & "' and password='" & pwd &"'")
if rs.bof and rs.eof then
Response.Write(escape("Err_103"))
Response.End
else
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs.update
Response.Cookies(Uservar&"CMSDJ_USER")("User_Name")=name
Response.Cookies(Uservar&"CMSDJ_USER")("User_Pwd")=pwd
Response.Cookies(Uservar&"CMSDJ_USER")("uid")=rs("userid")
Response.Cookies(Uservar&"CMSDJ_USER")("LoginTimes")=rs("LoginTimes")
Response.Cookies(Uservar&"CMSDJ_CHECK")("uid")=rs("userid")
Response.Cookies(Uservar&"CMSDJ_USER")("Md5Name") = md5(wdsn&name)
Response.Cookies(Uservar&"CMSDJ_CHECK")("uid")=rs("userid")
Response.Cookies(Uservar&"CMSDJ_CHECK").Expires=Date+365
rs.close
set rs=nothing
end if
end if
Response.Write(escape("Err_147"))
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&"