<%
Set CmsDjMusic = New CmsDj_Com_Dj
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
%>
报告错误
报告错误
<%
dim new_id:new_id=SafeRequest("id","get")
if new_id="" then
%>
错误提示：
非法操作，请指定操作对象!
此窗口将在 7 秒后自动关闭!
<%
Response.End
else
if not isInteger(new_id) then
%>