showdj.asp

学校网站源码fdfdffdfdfdfdfdfdfdf

<%
'程序名称：淮海高科管理系统[Huaihi] 
'程序作者：淮海高科
'作者邮箱：[e-mail]
'作者 Q Q：101101111
'作者电话：[phone]
'官方主页：http://Huaihi.com

%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%
if showdj="no" then
if userlogin="" then
response.write"<script>alert('请重新登陆！');window.close();</script>"
Response.End
end if
end if
if request("action")="" then
call pass()
title="影音娱乐→播放娱乐"
call checkshowcontent()
call top()
%>
<script language="javascript">
top.window.moveTo(0,0);
if (document.all) {
top.window.resizeTo(screen.availWidth,screen.availHeight);
}
else if (document.layers||document.getElementById) {
if (top.window.outerHeight<screen.availHeight||top.window.outerWidth<screen.availWidth){
top.window.outerHeight = screen.availHeight;
top.window.outerWidth = screen.availWidth;}}

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();
}
function GetFullScreen()
{
if(eval(Real+'GetFullScreen()'))
return true;
else
return false;
}
</SCRIPT>
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td><td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr>
<td valign=top align=center>
<%call br
set rs=server.CreateObject("adodb.recordset")
sql="select * from Huaihi_dj where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
%>
<table border="0" cellspacing="0" cellpadding="0" width=100%>
<tr><td class=showtop>&emsp;当前位置：<a href=index.asp>本站首页</a>→<a href=dj.asp>影音娱乐</a>→<%set rs3=server.CreateObject("adodb.recordset")
sql="select * from [Huaihi_djclass] where id="&rs("class")&" order by id desc"
rs3.open sql,conn,1,1
if not rs3.bof and not rs3.eof then
response.Write rs3("classname")
end if
rs3.close
set rs3=nothing%>→<b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td></tr></table>
<table border="0"   cellspacing="0" cellpadding="0" width=100%><tr>
<td  class=showcenter valign=top height=60>
<%
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("id"))
sql="select * from Huaihi_dj where id="&djid
set rs=conn.execute(sql)
dim url,player
url=rs("url")
player=rs("player")
title=rs("title")
content=rs("content")%><center>

<%
if rs("read")=0 then
call main()
elseif rs("read")=1 then
if useradmin>=1 then
call main()
else
response.write "<br><br><center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"
end if
elseif rs("read")=2 then
if useradmin>=2 then
call main()
else
response.write "<br><br><center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"
end if
end if
sub main()%>
<table border=1 cellspacing=0 cellpadding=0  frame=void width=100% bordercolor=<%=border%>>
<tr>
<td class=bg height=25 align=center colspan=4><b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td>
</tr>
<tr height=25>
<td class=bg  align=center width=70>娱乐作者：</td><td width=300>&nbsp;<%=rs("singer")%></td>
<td class=bg align=center width=70>娱乐发布：</td><td width=300>&nbsp;<%=rs("user")%></td></tr><tr height=25>
<td class=bg align=center width=70>播放格式：</td>
<td width=300>&nbsp;<%if rs("player")="media" then%>MEDIA视听格式<%elseif rs("player")="mediamtv" then%>MEDIA视频格式
<%elseif rs("player")="real" then%> real视听格式<%elseif rs("player")="realmtv" then%>real视频格式<%elseif rs("player")="flash" then%>Flash格式<%end if%>
</td>
<td class=bg align=center width=70>发表时间：</td><td width=300>&nbsp;<%=rs("date")%></td></tr>
<tr height=25><td class=bg align=center width=70>文件大小：</td><td width=300>&nbsp;<%=rs("size")%></td>
<td class=bg align=center width=70>点击次数：</td><td width=300>&nbsp;<%=rs("click")%>次</td>
</tr>
<tr>
<td valign=top colspan=4>
<%if player="real" then%>
<script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<object classid="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" id="player" name="player" width="100%" height="70">  
  <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="<%=rs("url")%>">
  <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>
<%elseif player="media" then%>
<OBJECT id=Player name=Player classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 border="0" width=100% height=70 type=application/x-oleobject standby="Loading Windows Media Player components...">
<param name="AudioStream" value="-1">
<param name="AutoSize" value="0">
<param name="AutoStart" value="-1">
<param name="AnimationAtStart" value="-1">
<param name="AllowScan" value="-1">
<param name="AllowChangeDisplaySize" value="-1">
<param name="AutoRewind" value="0">
<param name="Balance" value="10">\n")
<param name="BaseURL" value>
<param name="BufferingTime" value="5">
<param name="CaptioningID" value>
<param name="ClickToPlay" value="-1">
<param name="CursorType" value="0">
<param name="CurrentPosition" value="-1">
<param name="CurrentMarker" value="0">
<param name="DefaultFrame" value>
<param name="DisplayBackColor" value="0">
<param name="DisplayForeColor" value="16777215">
<param name="DisplayMode" value="0">
<param name="DisplaySize" value="4">
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="0">
<param name="EnablePositionControls" value="-1">
<param name="EnableFullScreenControls" value="0">
<param name="EnableTracker" value="-1">
<param name="Filename" value=godj.asp?action=media&id=<%=djid%>>
<param name="InvokeURLs" value="-1">
<param name="Language" value="-1">
<param name="Mute" value="0">
<param name="PlayCount" value="0">
<param name="PreviewMode" value="0">
<param name="Rate" value="1">
<param name="SAMILang" value>
<param name="SAMIStyle" value>
<param name="SAMIFileName" value>
<param name="SelectionStart" value="0">
<param name="SelectionEnd" value="0">
<param name="SendOpenStateChangeEvents" value="-1">
<param name="SendWarningEvents" value="-1">
<param name="SendErrorEvents" value="-1">
<param name="SendKeyboardEvents" value="0">
<param name="SendMouseClickEvents" value="0">
<param name="SendMouseMoveEvents" value="0">
<param name="SendPlayStateChangeEvents" value="-1">
<param name="ShowCaptioning" value="0">
<param name="ShowControls" value="-1">
<param name="ShowAudioControls" value="-1">
<param name="ShowDisplay" value="0">
<param name="ShowGotoBar" value="0">
<param name="ShowPositionControls" value="-1">
<param name="ShowStatusBar" value="-1">
<param name="ShowTracker" value="-1">
<param name="TransparentAtStart" value="0">
<param name="VideoBorderWidth" value="0">
<param name="VideoBorderColor" value="0">
<param name="VideoBorder3D" value="0">
<param name="Volume" value="0">
<param name="WindowlessVideo" value="0">
<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">
</OBJECT>
<%elseif player="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="100%" height="500"><PARAM NAME=movie VALUE="<%=url%>"><PARAM NAME=quality VALUE=high><EMBED src="<%=url%>" loop=false menu=false quality=high WIDTH="100%" height="500" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED></OBJECT>     
<%elseif player="realmtv" then%>