showdj.asp

本程序采用花香内核

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
if guestdj="no" and request.Cookies("HX_USER")("User_Name")="" 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
if request.querystring("dj_id")="" then response.redirect "show_error.asp?eid=栏目ID或记录ID不能为空!"
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")
djcatid=rs("djcat_id")
djname=rs("dj_name")
djword=rs("dj_word")
djcount=rs("dj_count")
djdcount=rs("dj_dcount")
djdate=rs("dj_date")
djuser=rs("dj_user")
tjuser=rs("tjuser")
djdesc=rs("dj_desc")
review=rs("review")
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
start="歌曲音乐 - "&djname&""
%>
<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>
<%call head()
call menu()
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; 您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='dj.asp'>歌曲音乐</a>" & vbCrLf
sql="select djcat_id,djcat_name,sid from djcat where djcat_id="&djcatid
set rs1=conn.execute(sql)
sql="select djcat_id,djcat_name from djcat where djcat_id="&rs1("sid")
set rs2=conn.execute(sql)
Response.Write " >> <a href=""dj.asp?djcat_id="&rs2("djcat_id")&""">"&rs2("djcat_name")&"</a>" 
Response.Write " >> <a href=""dj.asp?djcat_id="&rs1("djcat_id")&""">"&rs1("djcat_name")&"</a> >> 正文" 
rs1.close 
rs2.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　歌曲视听</td></tr></table>" & vbCrLf
Response.Write "<table width=""100%""  border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
%>
<span id='size' style="position:absolute;top: -50px;">http://hx66.net/home/showdj.asp?dj_id=<%=djid%></span>
<tr> 
<td width=100% colspan=3 align="center" HEIGHT=40><b><font color=ff6600><b><%=djname%></b></font><b></td>
</tr> 
<tr> 
<td height="30" align="center" width="15%">加入时间</td>
<td width="30%" >&nbsp;<%=djdate%>　</td>
<td rowspan="11" align="center" width="420">
<%if djpic="rm" then%>
<script LANGUAGE="javaScript">              
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:对不起，未发现你要点播的文件。\n\n请更换其他影片！";
var ERR_NotLocateServer="播放器提示您:无法定位舞曲服务器。请更换其他舞曲！";
var ERR_UnkownError="播放器提示您:在线用户过多，服务器限制，请抢线或稍后观看！";
</script>
<table width="420" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr><td height="250" align="left" background='iMG/dj.gif' valign="top" ><div name=Mtext style="width:420;height:240px;font-face:Arial;padding:13;overflow=auto;border:inset 0px;">歌词：<BR><%=Ubb2Html(formatStr(autourl(djword)),true,true)%></div></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%>
<table width="420" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr><td height="250" align="left" background='iMG/dj.gif' valign="top" ><div name=Mtext style="width:420;height:240px;font-face:Arial;padding:13;overflow=auto;border:inset 0px;">歌词：<BR><%=Ubb2Html(formatStr(autourl(djword)),true,true)%></div></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=420 height=69 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")
document.write ("<param name=\"SAMIFileName\" value>\n")
document.write ("<param name=\"SelectionStart\" value=\"0\">\n")
document.write ("<param name=\"SelectionEnd\" value=\"0\">\n")
document.write ("<param name=\"SendOpenStateChangeEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendWarningEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendErrorEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendKeyboardEvents\" value=\"0\">\n")
document.write ("<param name=\"SendMouseClickEvents\" value=\"0\">\n")
document.write ("<param name=\"SendMouseMoveEvents\" value=\"0\">\n")
document.write ("<param name=\"SendPlayStateChangeEvents\" value=\"-1\">\n")
document.write ("<param name=\"ShowCaptioning\" value=\"0\">\n")
document.write ("<param name=\"ShowControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowAudioControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowDisplay\" value=\"0\">\n")
document.write ("<param name=\"ShowGotoBar\" value=\"0\">\n")
document.write ("<param name=\"ShowPositionControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowStatusBar\" value=\"-1\">\n")
document.write ("<param name=\"ShowTracker\" value=\"-1\">\n")
document.write ("<param name=\"TransparentAtStart\" value=\"0\">\n")
document.write ("<param name=\"VideoBorderWidth\" value=\"0\">\n")
document.write ("<param name=\"VideoBorderColor\" value=\"0\">\n")
document.write ("<param name=\"VideoBorder3D\" value=\"0\">\n")
document.write ("<param name=\"Volume\" value=\"0\">\n")
document.write ("<param name=\"WindowlessVideo\" value=\"0\">\n")
document.write ("<embed type=\"application/x-mplayer2\" pluginspage=\"http://www.microsoft.com/windows/mediaplayer/download/default.asp\" Name=\"Player\" width=\"360\" height=\"70\" border=\"0\" SHOWSTATUSBAR=\"-1\" SHOWCONTROLS=\"0\" SHOWGOTOBAR=\"0\" SHOWDISPLAY=\"-1\" INVOKEURLS=\"-1\" AUTOSTART=\"1\" CLICKTOPLAY=\"0\" DisplayForeColor=\"12945678\">\n")
document.write ("</OBJECT>\n")
//-->
</script>
</td></tr></table>
<%elseif djpic="flash" then%>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" WIDTH="420" height="302"><PARAM NAME=movie VALUE="<%=djurl%>"><PARAM NAME=quality VALUE=high><EMBED src="<%=djurl%>" loop=false menu=false quality=high WIDTH="100%" height="100%" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED></OBJECT>     
<%elseif djpic="rmmtv" then%>
<SCRIPT language=javascript>
Real='document.player.'
function DoPlay()
{eval(Real+'DoPlay()');}
function DoStop()
{eval(Real+'DoStop()');}
function DoPlayPause()
{eval(Real+'DoPlayPause()');}
function SetFullScreen()
{
eval(Real+'SetFullScreen()');
fullscreen=true;
DoPlayPause();
DoPlay();