📄 allmovie.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="head.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="images/style.css">
<title>全部影片</title>
</head>
<body>
<script language"javascript">
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",10);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<div align="center">
<center>
<table width="778" border="0" cellspacing="0" style="border-collapse: collapse" class=cs1>
<tr>
<td width="10"> </td>
<td width="760"> <font color="#3B5915">
<span lang="zh-cn">共有电影：</span>(<%
function gettipnum1()
dim tmprs1
tmprs1=conn.execute("Select Count(articleid) from learning")
gettipnum1=tmprs1(0)
set tmprs1=nothing
if isnull(gettipnum1) then gettipnum1=0
end function
%><font color="#FF0000"><%=gettipnum1()%></font>部) 今天更新：<span lang="zh-cn"><%
function todays()
dim tmprs
tmprs=conn.execute("Select count(articleid) from learning Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function%>(<font color="#FF0000"><%=todays()%></font>部)
</span>
</tr>
</table>
<table border="1" width="778" style="border-collapse: collapse" bordercolor="#C3EF26" cellpadding="3" cellspacing="0">
<%set rs=server.createobject("adodb.recordset")
sql="select type from type"
rs.open sql,conn,1,1
do while not rs.eof%>
<tr>
<td width="71" height="20" bgcolor="#EFFFAD" valign="top">
<p align="center"><%=rs("type")%>>><%typeid=rs("type")%><br>(<font color="#FF0000"><%=conn.execute("Select Count(articleid) from learning where typeid='"&typeid&"'")(0)%></font>部)</td>
<td width="778" height="20" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%" id="AutoNumber1">
<tr>
<%set rst=server.createobject("adodb.recordset")
sql="select articleid,title,typeid from learning where typeid='"&typeid&"'order by articleid desc"
rst.open sql,conn,1,1
if rst.eof and rst.bof then
response.write"该栏目还没有影片"
else
dim row_count
row_count=1
do while not rst.eof
if rs("type")="VIP专区" or rs("type")="成人片" then %>
<td width="135" bgcolor="#FFFFFF">
<a target="_blank">
<font color=blue>此为VIP会员影片</font></a></td>
<%else%>
<td width="135" bgcolor="#FFFFFF">
<a href="../html/<%=rst("articleid")%>.html" class="mayi">
<%content=rst("title")
if len(content)>6 then content=left(content,6)&"…"
response.write content
%></a></td>
<% end if
if row_count mod 7 =0 then%>
</tr>
<tr>
<%
end if
row_count=row_count+1
rst.movenext
loop
end if%>
</tr>
</table>
</td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</table>
<table align="center" border="0" cellPadding="0" cellSpacing="0" width="750">
<tr>
<td><TABLE height=46 cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
</TR>
</TBODY>
</TABLE>
</BODY></HTML><!--#include file="end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -