showvod.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

response.write"</object>"& vbCrLf 
response.write"<script language=""javascript"">"& vbCrLf 
response.write"player.SetEnableContextMenu(false);"& vbCrLf
response.write"player.SetWantErrors(true);"& vbCrLf
response.write"</script>"& vbCrLf
elseif player="media" then
response.write"<OBJECT id=Player name=Player classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 border=""0"" width=100% height=400 type=application/x-oleobject standby=""Loading Windows Media Player components..."">"& vbCrLf
response.write"<PARAM NAME=""AudioStream"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""AutoSize"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""AutoStart"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""AnimationAtStart"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""AllowScan"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""AllowChangeDisplaySize"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""AutoRewind"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""Balance"" value=""10"">"& vbCrLf
response.write"<PARAM NAME=""BaseURL"" value>"& vbCrLf
response.write"<PARAM NAME=""BufferingTime"" value=""5"">"& vbCrLf
response.write"<PARAM NAME=""CaptioningID"" value>"& vbCrLf
response.write"<PARAM NAME=""ClickToPlay"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""CursorType"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""CurrentPosition"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""CurrentMarker"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""DefaultFrame"" value>"& vbCrLf
response.write"<PARAM NAME=""DisplayBackColor"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""DisplayForeColor"" value=""16777215"">"& vbCrLf
response.write"<PARAM NAME=""DisplayMode"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""DisplaySize"" value=""4"">"& vbCrLf
response.write"<PARAM NAME=""Enabled"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""EnableContextMenu"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""EnablePositionControls"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""EnableFullScreenControls"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""EnableTracker"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""Filename"" value="&rs("url")&">"& vbCrLf
response.write"<PARAM NAME=""InvokeURLs"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""Language"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""Mute"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""PlayCount"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""PreviewMode"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""Rate"" value=""1"">"& vbCrLf
response.write"<PARAM NAME=""SAMILang"" value>"& vbCrLf
response.write"<PARAM NAME=""SAMIStyle"" value>"& vbCrLf
response.write"<PARAM NAME=""SAMIFileName"" value>"& vbCrLf
response.write"<PARAM NAME=""SelectionStart"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""SelectionEnd"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""SendOpenStateChangeEvents"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""SendWarningEvents"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""SendErrorEvents"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""SendKeyboardEvents"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""SendMouseClickEvents"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""SendMouseMoveEvents"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""SendPlayStateChangeEvents"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""ShowCaptioning"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""ShowControls"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""ShowAudioControls"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""ShowDisplay"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""ShowGotoBar"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""ShowPositionControls"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""ShowStatusBar"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""ShowTracker"" value=""-1"">"& vbCrLf
response.write"<PARAM NAME=""TransparentAtStart"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""VideoBorderWidth"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""VideoBorderColor"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""VideoBorder3D"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""Volume"" value=""0"">"& vbCrLf
response.write"<PARAM NAME=""WindowlessVideo"" value=""0"">"& vbCrLf
response.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"">"& vbCrLf
response.write"</OBJECT>"& vbCrLf
elseif player="flash" then
response.write"<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>"& vbCrLf
end if
response.write"</td></tr>"& vbCrLf
response.write"<script language=""javascript"">"& vbCrLf 
response.write"player.SetEnableContextMenu(false);"& vbCrLf
response.write"player.SetWantErrors(true);"& vbCrLf
response.write"</script>"& vbCrLf
response.write"<tr><td height=""20"" align=""center"" style=""padding-top: 4px"">"& vbCrLf
%>
<script language='javascript'>
function MM_findObj(n, d) {
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function JM_cc(ob){
var obj=MM_findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
alert("复制成功！您可以将本页推荐给你QQ或者论坛上的朋友一起分享！");
}
document.write('<input type=hidden name="page_url" value="'+window.location.href+'" size="64"><img title="复制地址，发给你的好友一起分享吧！" border="0" src="images/fz.gif" width="73" height="23" onClick=JM_cc("page_url")>');
</script>
<%
response.write"&nbsp;<a href=""#shotanpl""><img title=""给 <font color=red>"&rs("title")&"</font> 发表评论"" border=""0"" src=""images/pl.gif"" width=""65"" height=""23""></a>&nbsp;&nbsp;<a href=""showmusic.asp?action=musicerror&id="&musicid&"""><img title=""如果无法试听，请点此报错，谢谢！"" border=""0"" src=""images/bc.gif"" width=""65"" height=""23""></a>&nbsp;&nbsp;<a href='"&url&"' target=_self><img title='点击下载' border=""0"" src=""images/xz.gif"" width=""65"" height=""23""></a></td></tr></table></td><td background=""images/play06.gif""></td></tr>"& vbCrLf
response.write"<tr><td><img border=""0"" src=""images/play07.gif"" width=""23"" height=""45""></td><td background=""images/play08.gif""></td><td><img border=""0"" src=""images/play09.gif"" width=""28"" height=""45""></td></tr></table></div></TD></TR><tr><td class=bg height=25 align=center colspan=4>相关说明</td></tr><tr><td height=60  valign=top colspan=4 style=""padding:3px""><blockquote>"&content&"</blockquote></td></tr><tr><td class=bg colspan=4 style=""padding:2px"">"& vbCrLf
st_next "St_vod","vod","部"
response.write"</td></tr></table>"& vbCrLf
end sub
titlebom 4
response.write"<table border=0  cellspacing=""0"" cellpadding=""0"" align=center width=""100%""><tr align=middle><td width=0></td><td width=""49%"" height=150 align=right>"& vbCrLf
st_replace "st_showvodtaxis",""&st_showvodtaxis&""
br()
response.write"<td width=""2%""></td><td width=""49%"" height=150 align=left>"& vbCrLf
st_replace "st_showvodbest",""&st_showvodbest&""
br()
response.write"</TD><td width=0></td></TR></table>"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_vod where id="&request.querystring("id")
rs.open sql,conn,1,3
pl "vod",rs("id")
rs.close
set rs=nothing
br
response.write"</td></tr></table>"& vbCrLf
rs.close
set rs=nothing
foot
end if
if request.querystring("action")="voderror" then
sql="select * from St_vod where id="&request.querystring("id")
set rs=conn.execute(sql)
sql="UPDATE St_vod SET error=error+1 where id="&request.querystring("id")
conn.execute(sql)
rs.close
set rs=nothing
Response.write "<script>alert('谢谢你发现了错误的链接，我们会尽快恢复！');window.close();</script>"
end if%>