PHP高手麻烦你帮我把下面这段代码转成PHP?
Response.Buffer=TrueResponse.ExpiresAbsolute=Now()-1Response.Expires=0Response.CacheC...
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
response.Charset="gb2312"
Set CmsDjMusic = New CmsDj_Com_Dj
Set CmsDjPublic = New CmsDj_Com_Public
dim Menu,SqlWhere,NoDate
Menu=SafeRequest("menu","auto")
NoDate="暂无数据"
Select Case Menu
Case "现场串烧" : SqlWhere="and CD_ClassID=1 order by CD_ID desc"
Case "中文舞曲" : SqlWhere="and CD_ClassID=2 order by CD_ID desc"
Case "英文舞曲" : SqlWhere="and CD_ClassID=3 order by CD_ID desc"
Case "慢摇舞曲" : SqlWhere="and CD_ClassID=4 order by CD_ID desc"
Case "酒吧Club" : SqlWhere="and CD_ClassID=5 order by CD_ID desc"
Case "最新推荐" : SqlWhere="and CD_IsBest<>0 order by CD_ID desc"
Case "最新上传" : SqlWhere="order by CD_ID desc"
Case "大家在听" : SqlWhere="and now()-CD_LastHitTime<=60/1440 order by CD_LastHitTime desc"
Case "网友推荐" : SqlWhere="order by CD_uHits desc"
Case "今日排行" : SqlWhere="order by CD_DayHits desc"
Case "本周排行" : SqlWhere="order by CD_WeekHits desc"
Case "下载排行" : SqlWhere="order by CD_DownHits desc"
Case "收藏排行" : SqlWhere="order by CD_FavHits desc"
Case "舞曲排行" : SqlWhere="order by CD_Hits desc"
Case "我的收藏" : SqlWhere="favtrue"
Case else : SqlWhere="and CD_Name like '%" & menu & "%' order by CD_ID desc" : NoDate="没有任何记录!"
End Select
if SqlWhere="favtrue" then
if UserLogined<>True then
NoDate="请先登陆再操作!"
CmsDj_Com_UserID="Null"
else
NoDate="暂无音乐, 赶快去收藏吧! ^_^"
哪位兄弟帮下忙 啊 展开
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
response.Charset="gb2312"
Set CmsDjMusic = New CmsDj_Com_Dj
Set CmsDjPublic = New CmsDj_Com_Public
dim Menu,SqlWhere,NoDate
Menu=SafeRequest("menu","auto")
NoDate="暂无数据"
Select Case Menu
Case "现场串烧" : SqlWhere="and CD_ClassID=1 order by CD_ID desc"
Case "中文舞曲" : SqlWhere="and CD_ClassID=2 order by CD_ID desc"
Case "英文舞曲" : SqlWhere="and CD_ClassID=3 order by CD_ID desc"
Case "慢摇舞曲" : SqlWhere="and CD_ClassID=4 order by CD_ID desc"
Case "酒吧Club" : SqlWhere="and CD_ClassID=5 order by CD_ID desc"
Case "最新推荐" : SqlWhere="and CD_IsBest<>0 order by CD_ID desc"
Case "最新上传" : SqlWhere="order by CD_ID desc"
Case "大家在听" : SqlWhere="and now()-CD_LastHitTime<=60/1440 order by CD_LastHitTime desc"
Case "网友推荐" : SqlWhere="order by CD_uHits desc"
Case "今日排行" : SqlWhere="order by CD_DayHits desc"
Case "本周排行" : SqlWhere="order by CD_WeekHits desc"
Case "下载排行" : SqlWhere="order by CD_DownHits desc"
Case "收藏排行" : SqlWhere="order by CD_FavHits desc"
Case "舞曲排行" : SqlWhere="order by CD_Hits desc"
Case "我的收藏" : SqlWhere="favtrue"
Case else : SqlWhere="and CD_Name like '%" & menu & "%' order by CD_ID desc" : NoDate="没有任何记录!"
End Select
if SqlWhere="favtrue" then
if UserLogined<>True then
NoDate="请先登陆再操作!"
CmsDj_Com_UserID="Null"
else
NoDate="暂无音乐, 赶快去收藏吧! ^_^"
哪位兄弟帮下忙 啊 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询