showdj.asp
来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 374 行 · 第 1/2 页
ASP
374 行
<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<%
if guestdj="no" and session("userlogin")="" then
response.write"<SCRIPT language=JavaScript>alert(' 此页不允许游客观看！请登陆后操作 ！');"
response.write"JavaScript:window.close()</SCRIPT>"
response.end
end if
dim founderr
founderr=false
if request.querystring("dj_id")="" then
founderr=true
Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
'else
'if not isInteger(request.querystring("dj_id")) then
'founderr=true
'Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
'end if
end if
Session("auth") = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
dim djid
djid=cint(request.querystring("dj_id"))
sql="select * from dj where dj_id="&djid
set rs=conn.execute(sql)
dim djurl,djpic
djurl=rs("dj_url")
djpic=rs("dj_pic")
djname=rs("dj_name")
djword=rs("dj_word")
djcount=rs("dj_count")
djdcount=rs("dj_dcount")
reviewcount=rs("reviewcount")
sql="UPDATE dj SET dj_count = dj_count + 1 where dj_id="&djid
conn.execute(sql)
rs.close
set rs=nothing
if request.querystring("action")="" then
%>
<html>
<head>
<title><%=djname%></title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
BODY {
SCROLLBAR-FACE-COLOR: #000000;
SCROLLBAR-HIGHLIGHT-COLOR: #023055;
SCROLLBAR-SHADOW-COLOR: #023055;
SCROLLBAR-3DLIGHT-COLOR: #000000;
SCROLLBAR-ARROW-COLOR: #FF6600;
SCROLLBAR-TRACK-COLOR: #000000;
SCROLLBAR-DARKSHADOW-COLOR: #FFFFFF;
}
A{
font-size:10pt;
color: ffff00;
text-decoration:none;
}
A:hover{color:#ffffff;text-decoration:none;}
TD {FONT-SIZE: 10pt; COLOR: #7fff00}
</style>
<script>
var travel=true
var hotkey=98
var destination="showdj.asp?action=djerror&dj_id=<%=djid%>"
if (document.layers)
document.captureEvents(Event.KEYPRESS)
function gogo(e){
if (document.layers){
if (e.which==hotkey&&travel)
window.location=destination
}
else if (document.all){
if (event.keyCode==hotkey)
window.location=destination
}
}
document.onkeypress=gogo
function copyUrl(obj)
{
var rng = document.body.createTextRange();rng.moveToElementText(obj);rng.scrollIntoView();rng.select();rng.execCommand("Copy");rng.collapse(false);
alert("复制成功，请把此网址在你喜欢的论坛或QQ里面发给你的朋友！");
}
</script>
</HEAD>
</head>
<body bgcolor="#000000" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<span id='size' style="position:absolute;top: -50px;">http://FTWL.CB35.COM/showdj.asp?dj_id=<%=djid%></span>
<%if djpic="rm" then%>
<script language="javascript">
Resize_WindowX = 410;
Resize_WindowY = 410;
self.resizeTo(Resize_WindowX,Resize_WindowY);
</SCRIPT>
<script LANGUAGE="javaScript">
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:对不起，未发现你要点播的文件。\n\n请更换其他影片！";
var ERR_NotLocateServer="播放器提示您:无法定位舞曲服务器。请更换其他舞曲！";
var ERR_UnkownError="播放器提示您:在线用户过多，服务器限制，请抢线或稍后观看！";
</script>
<table width="400" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr><td height="*" align="left" background='iMG/dj0.gif' valign="top" ><div name=Mtext style="width:400;height:250px;font-face:Arial;padding:13;overflow=auto;border:inset 0px;">歌词：<BR><%=Ubb2Html(formatStr(autourl(djword)),true,true)%></div></td></tr>
<tr><td height="30" align="center">
评论：<font color=red><b><%=reviewcount%></b></font> 篇 点击：<font color=red><b><%=djcount%></b></font> 次 下载：<font color=red><b><%=djdcount%></b></font> 次 <a href='view.asp?action=dj&dj_id=<%=djid%>' target='_blank' title="发表你的评论或查看别人的评论">评论<a> <a href='#' title="复制本页网址发给你的朋友" onclick='copyUrl(document.all.size)'>复制<a> <a href="opendj.asp?dj_id=<%=djid%>&url=" title="下载本歌曲">下载</a>
</td></tr>
<tr><td height="70" align="center" valign="bottom">
<object classid="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" id="player" name="player" width="400" height="72">
<param name="_ExtentX" value="9657">
<param name="_ExtentY" value="847">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="<%=djurl%>">
<param name="CONTROLS" value="StatusBar,ControlPanel">
<param name="LOOP" value="-1">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="EnableContext Menu" value="0">
<param name="ShowDisplay" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
</object>
</td></tr></table>
<script language="javascript">
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<%elseif djpic="asf" then%>
<script language="javascript">
Resize_WindowX = 410;
Resize_WindowY = 410;
self.resizeTo(Resize_WindowX,Resize_WindowY);
</SCRIPT>
<table width="400" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr><td height="*" align="left" background='iMG/dj0.gif' valign="top" ><div name=Mtext style="width:400;height:250px;font-face:Arial;padding:13;overflow=auto;border:inset 0px;">歌词：<BR><%=Ubb2Html(formatStr(autourl(djword)),true,true)%></div></td></tr>
<tr><td height="30" align="center">
评论：<font color=red><b><%=reviewcount%></b></font> 篇 试听：<font color=red><b><%=djcount%></b></font> 次 下载：<font color=red><b><%=djdcount%></b></font> 次 <a href='view.asp?action=dj&dj_id=<%=djid%>' target='_blank' title="发表你的评论或查看别人的评论">评论<a> <a href='#' title="复制本页网址发给你的朋友" onclick='copyUrl(document.all.size)'>复制<a> <a href="opendj.asp?dj_id=<%=djid%>&url=" title="下载本歌曲">下载</a>
</td></tr>
<tr><td height="70" align="center" valign="bottom">
<script language="javascript">
<!--
var str
str="url.asp?action=wma&dj_id=<%=djid%>";
document.write ("<OBJECT id=Player name=Player classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 border=\"0\" width=400 height=70 type=application/x-oleobject standby=\"Loading Windows Media Player components...\">\n")
document.write ("<param name=\"AudioStream\" value=\"-1\">\n")
document.write ("<param name=\"AutoSize\" value=\"0\">\n")
document.write ("<param name=\"AutoStart\" value=\"-1\">\n")
document.write ("<param name=\"AnimationAtStart\" value=\"-1\">\n")
document.write ("<param name=\"AllowScan\" value=\"-1\">\n")
document.write ("<param name=\"AllowChangeDisplaySize\" value=\"-1\">\n")
document.write ("<param name=\"AutoRewind\" value=\"0\">\n")
document.write ("<param name=\"Balance\" value=\"10\">\n")
document.write ("<param name=\"BaseURL\" value>\n")
document.write ("<param name=\"BufferingTime\" value=\"5\">\n")
document.write ("<param name=\"CaptioningID\" value>\n")
document.write ("<param name=\"ClickToPlay\" value=\"-1\">\n")
document.write ("<param name=\"CursorType\" value=\"0\">\n")
document.write ("<param name=\"CurrentPosition\" value=\"-1\">\n")
document.write ("<param name=\"CurrentMarker\" value=\"0\">\n")
document.write ("<param name=\"DefaultFrame\" value>\n")
document.write ("<param name=\"DisplayBackColor\" value=\"0\">\n")
document.write ("<param name=\"DisplayForeColor\" value=\"16777215\">\n")
document.write ("<param name=\"DisplayMode\" value=\"0\">\n")
document.write ("<param name=\"DisplaySize\" value=\"4\">\n")
document.write ("<param name=\"Enabled\" value=\"-1\">\n")
document.write ("<param name=\"EnableContextMenu\" value=\"0\">\n")
document.write ("<param name=\"EnablePositionControls\" value=\"-1\">\n")
document.write ("<param name=\"EnableFullScreenControls\" value=\"0\">\n")
document.write ("<param name=\"EnableTracker\" value=\"-1\">\n")
document.write ("<param name=\"Filename\" value='" + str + "'>\n")
document.write ("<param name=\"InvokeURLs\" value=\"-1\">\n")
document.write ("<param name=\"Language\" value=\"-1\">\n")
document.write ("<param name=\"Mute\" value=\"0\">\n")
document.write ("<param name=\"PlayCount\" value=\"0\">\n")
document.write ("<param name=\"PreviewMode\" value=\"0\">\n")
document.write ("<param name=\"Rate\" value=\"1\">\n")
document.write ("<param name=\"SAMILang\" value>\n")
document.write ("<param name=\"SAMIStyle\" value>\n")
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?