vod.asp

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

<!--#include file="inc/St_conn.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<!--#include file="inc/St_function.asp"-->
<%
sql="select * from St_vod where pass=true and date=#"&date()&"#"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
one=rs.recordcount
title=""&shotanvod&""
loadhead
response.write"<table border='0' cellspacing='0' cellpadding='0' align='center' class='dabg'><tr><td class='left'></td><td class='width' valign='top'><table width='100%' border='0'  cellspacing='0' cellpadding='0'><td valign=top>"& vbCrLf 
st_replace "st_login",""&st_login&""
st_replace "st_search",""&st_search&""
st_replace "st_vodtaxis",""&st_vodtaxis&""
st_replace "st_vodbest",""&st_vodbest&""
st_replace "st_vodclassify",""&st_vodclassify&""
br()
response.write"</td><td width='5'></td><td valign=top align=right>"& vbCrLf 
if request.querystring("action")<>"list" then
st_replace "st_vodpic",""&st_vodpic&""
end if
if request("class")<>"" then
sql="select * from St_vod where class="&request("class")&" order by id DESC"
else
sql="select * from St_vod order by id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
shotantop="共有影片&nbsp;"&totalcs&"&nbsp;个,今日更新&nbsp;<font color=red>"&one&"</font>&nbsp;个"
titletop ""&shotantop&"",0,2,0,"","","",0
response.write"<table cellspacing='0' cellpadding='0' border=1 bordercolor=#e6e6e6 class=2bg width=100% rules=rows frame=void id=sttable>"& vbCrLf 
if not rs.bof and not rs.eof then
rs.pagesize=cint(shotanshow(6))
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof
br()
response.write"<table width=""98%"" height=""127"" border=""1"" align=center cellpadding=""0"" cellspacing=""0"" bgcolor=""#CCCCCC"" style=""border-collapse: collapse"" bordercolor=#e6e6e6><tr class=""tr""><td width=""140"" height=""108"" rowspan=""5"" align=""center""><a target=""vod"" href=""showvod.asp?ID="&rs("ID")&"""><span style=""text-decoration: none"">"& vbCrLf
if rs("pic")="" then
response.write"<img alt=""影片名称："&rs("title")&"&lt;br&gt;影片主演："&rs("singer")&"&lt;br&gt;推荐等级：<img src="&rs("commend")&">&lt;br&gt;添加时间："&rs("date")&"&lt;br&gt;点击次数："&rs("click")&""" src='images/nopic.gif' width=""134"" height=""107"" border=""0"" align=absmiddle>"& vbCrLf
else
response.write"<img src="&rs("pic")&" width=""134"" height=""107"" border=""0"" alt=""影片名称："&rs("title")&"&lt;br&gt;影片主演："&rs("singer")&"&lt;br&gt;推荐等级：<img src="&rs("commend")&">&lt;br&gt;添加时间："&rs("date")&"&lt;br&gt;点击次数："&rs("click")&""" align=""right""></a>"& vbCrLf
end if
response.write"</a></td><td width=""446"" height=""23"">&nbsp;&nbsp;影片名称：<a target=""vod"" href=""showvod.asp?ID="&rs("ID")&"""><font color="&rs("color")&">"&rs("title")&"</font></a><td width=""374"" height=""23"">&nbsp;&nbsp;推荐等级：<img src="&rs("commend")&"></td></td></tr><tr><td width=""446"" height=""23"" bgcolor=""#FFFFFF"">&nbsp;&nbsp;影片主演："&rs("singer")&"</td><td width=""374"" height=""23"" bgcolor=""#FFFFFF"">&nbsp;&nbsp;影片类型："& vbCrLf
set rsclass=server.CreateObject("adodb.recordset")
sqlclass="select * from St_vodclass where id="&rs("class")&" order by id desc"
rsclass.open sqlclass,conn,1,1
if not rsclass.bof and not rsclass.eof then
response.Write "<a href=""vod.asp?action=list&class="&rsclass("id")&""">"&rsclass("classname")&"</a>"
end if
rsclass.close
set rsclass=nothing
response.write"</td></tr><tr><td width=""446"" height=""23"" bgcolor=""#FFFFFF"">&nbsp;&nbsp;添加时间："&rs("date")&"</td><td width=""374"" height=""23"" bgcolor=""#FFFFFF"">&nbsp;&nbsp;观看次数："&rs("click")&"</td></tr>"& vbCrLf
response.write"<tr class=stbreak><td height=""23"" bgcolor=""#FFFFFF"" colspan=""2"">&nbsp;&nbsp;影片简介："&st_cutword(rs("content"),130)&"</td></tr><tr><td vlign=""middle"" height=""15"" align=""center"" bgcolor=""#FFFFFF"" colspan=""2""><div style=""width: 328; height:20""><p><a title=""点击在线观看"" target=""vod"" href=""showvod.asp?ID="&rs("ID")&"""><img src=""images/rm.GIF"" border=0 vlign=""middle"">在线观看</a></div></td></tr>"& vbCrLf
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center><font color=red><b>暂时没有影片！</</b></font></td></tr>"
else
response.write"<tr class=bg><td colspan=3 height=25 align=center>"& vbCrLf 
pginfo "影片","部" 
response.write"</td></tr>"& vbCrLf 
end if
response.write"</table>"& vbCrLf 
br
titlebom 2
br
response.write"</td></tr></table></td><td class=right></td></tr></table>"& vbCrLf 
rs.close
set rs=nothing
foot%>