showvod.asp

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

<!--#include file="inc/St_conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="inc/St_function.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<%
if showvod="no" then
if userlogin="" then
response.write"<script>alert('请登陆后操作！');location.href='index.asp';</script>"& vbCrLf
Response.End
end if
end if
if request("action")="" then
set rstitle=conn.execute("select title from St_vod where id="&request.querystring("id"))
title=rstitle("title")&"--影视天地"
rstitle.close
set rstitle=nothing
chkcontent()
loadhead
%>
<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>
<%response.write"<table border=""0""  cellspacing=""0"" cellpadding=""0"" align=center class=dabg><tr><td class=left></td><td class=width><table width=100% border=0  cellspacing=""0"" cellpadding=""0""><tr><td valign=top align=center>"& vbCrLf
br
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_vod where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
set rsst=server.CreateObject("adodb.recordset")
sql="select * from St_vodclass where id="&rs("class")&" order by id desc"
rsst.open sql,conn,1,1
if not rsst.bof and not rsst.eof then
shotantop="当前位置：<a href=index.asp>本站首页</a>-<a href=vod.asp>影视天地</a>-<a href=vod.asp?class="&rsst("id")&">"&rsst("classname")&"</a><font color="&rs("color")&">-<b>"&rs("title")&"</b></font>"
else
shotantop="<font color=red>没有分类</font>"
end if
rsst.close
set rsst=nothing
titletop ""&shotantop&"",60,4,0,"","","",0
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 vodid
vodid=cint(request.querystring("id"))
sql="select * from St_vod where id="&vodid
set rs=conn.execute(sql)
dim url,player
url=rs("url")
player=rs("player")
title=rs("title")
content=rs("content")
response.write"<center>"& vbCrLf
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()
response.write"<table border=1 cellspacing=0 cellpadding=0  frame=void class=width><tr><td class=bg height=25 align=center colspan=3><b><font color="&rs("color")&">"&rs("title")&"</font></b></td></tr><tr height=25><td align=center width=280 rowspan=""6"">"& vbCrLf
if rs("pic")="" then
response.write"<img src=images/nopic.gif>"
else
response.write"<img width=180 height=180 src="&rs("pic")&">"
end if
response.write"</td><td class=bg  align=center width=70>影片主演：</td><td width=300>&nbsp;"&rs("singer")&"</td></tr><tr height=25><td class=bg align=center width=70>推荐等级：</td><td width=300>&nbsp;<img src="&rs("commend")&">"& vbCrLf
response.write"</td></tr><tr height=25><td class=bg align=center width=70>影片大小：</td><td width=300>&nbsp;"&rs("size")&"</td></tr><tr height=25><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;"&rs("date")&"</td></tr><tr height=25><td class=bg align=center width=70>点击次数：</td><td width=300>&nbsp;"&rs("click")&"次</td></tr>"& vbCrLf
response.write"<tr><td valign=top colspan=3 height=""200""><div align=""center""><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td><img border=""0"" src=""images/play01.gif"" width=""23"" height=""38""></td><td background=""images/play02.gif"">"& vbCrLf
response.write"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td>"& vbCrLf
response.write"<td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td><td><p align=""center""><img border=""0"" src=""images/play10.gif"" width=""13"" height=""38""></td></tr></table></td><td><img border=""0"" src=""images/play03.gif"" width=""28"" height=""38""></td></tr><tr><td background=""images/play04.gif""></td><td width=""450""><table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" height=""100%""><tr><td><p align=""center"">"& vbCrLf
if player="real" then
response.write"<object id=""player"" name=""player"" classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" width=100% height=425>"& vbCrLf
response.write"<PARAM NAME=""ExtentY"" VALUE=""3836"">"& vbCrLf
response.write"<PARAM NAME=""AUTOSTART"" VALUE=""-1"">"& vbCrLf
response.write"<PARAM NAME=""SHUFFLE"" VALUE=""0"">"& vbCrLf
response.write"<PARAM NAME=""PREFETCH"" VALUE=""0"">"& vbCrLf
response.write"<PARAM NAME=""NOLABELS"" VALUE=""-1"">"& vbCrLf
response.write"<PARAM NAME=""SRC"" value="&rs("url")&">"& vbCrLf
response.write"<PARAM NAME=""CONTROLS"" value=""Imagewindow,StatusBar,ControlPanel"">"& vbCrLf
response.write"<PARAM NAME=""CONSOLE"" VALUE=""Clip1"">"& vbCrLf
response.write"<PARAM NAME=""LOOP"" VALUE=""0"">"& vbCrLf
response.write"<PARAM NAME=""NUMLOOP"" VALUE=""0"">"& vbCrLf
response.write"<PARAM NAME=""CENTER"" VALUE=""0"">"& vbCrLf
response.write"<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"& vbCrLf