📄 allmovie.asp
字号:
<!--#include file=articleconn.asp-->
<!--#include file=ip.asp-->
<!--#include file=top.asp-->
<% set rs=server.createobject("adodb.recordset")
sql="select type from type"
rs.open sql,conn,1,1%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="css/style.css">
<title>青苑影院-全部影片</title>
</head>
<body>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD width=4><IMG height=4 src="img/e_innerbox_leftop.gif"
width=4></TD>
<TD width=770 background=img/e_innerbox_topbg.gif></TD>
<TD width=4><IMG height=4 src="img/e_innerbox_rightop.gif"
width=4></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD width=4 background=img/e_innerbox_leftbg.gif></TD>
<TD vAlign=top width=770 bgColor=#f7f7f7>
<TABLE cellSpacing=0 cellPadding=0 width=770 background="img/isCommendmenubg.gif" border=0>
<TBODY>
<TR><TD width=27 height=28> </TD>
<td>
<!--webbot
bot="HTMLMarkup" startspan --><font color="#ffffff">你现在的位置: <a href="index.asp"><FONT COLOR="#FFffff"> 青苑影院</a></font> -->全部影片 本站<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="#FFffff"><%=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%><%=todays()%> 部</span></td>
<!--webbot bot="HTMLMarkup" endspan -->
<script language="JavaScript">
var NS4 = (document.layers);
var IE4 = (document.all);
// window to search.
var win = window;
var n = 0;
function findInPage(str) {
var txt, i, found;
if (str == "")
return false;
if (NS4) {
if (!win.find(str))
while(win.find(str, false, true))
n++;
else
n++;
if (n == 0)
alert("抱谦!找不到你要的内容,请到论坛发帖子！");
}
if (IE4) {
txt = win.document.body.createTextRange();
for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) {
txt.moveStart("character", 1);
txt.moveEnd("textedit");
}
if (found) {
txt.moveStart("character", -1);
txt.findText(str);
txt.select();
txt.scrollIntoView();
n++;
}
else {
if (n > 0) {
n = 0;
findInPage(str);
}
else
alert("抱谦!找不到你要的内容,请到论坛发帖子！");
}
}
return false;
}
</script>
<td><FONT COLOR="#FFffff">影片搜索:</FONT></td>
<td><form name="search" onSubmit="return findInPage(this.string.value);">
<input name="string" value="输入关键字" type="text" size=20 onChange="n = 0;"
style="border: 1px solid #3655AA; font-size:9pt;color:#000000"">
</td>
<td>
<input type="submit" value="搜索" style=" font-size:9pt;color:#000000""> </TD></TR></TBODY></TABLE></TD>
<TD width=4
background=img/e_innerbox_rightbg.gif></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=4><IMG height=4 src="img/e_innerbox_leftbutt.gif"
width=4></TD>
<TD width=770 background=img/e_innerbox_buttbg.gif></TD>
<TD width=4><IMG height=4 src="img/e_innerbox_rightbutt.gif"
width=4></TD></TR>
<TR>
<TD colSpan=3 height=5></TD></TR></TBODY></TABLE>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100" align="center" valign="top"><A href="http://www.gq160.com" target=_blank><img src="images/04.gif" width="778" align="center" height="100" border="0"></A></td>
</tr>
</table>
<div align="center">
<center>
<table border="1" width="770" style="border-collapse: collapse" bordercolor="#C3EF26" cellpadding="3" cellspacing="0">
<%do while not rs.eof%>
<tr>
<td width="71" height="28" bgcolor="#0099FF" valign="top" background="images/top-bg4.gif">
<p align="center"><FONT COLOR="#FF0000"><b><IMG src="../images/d5.gif"> <%=rs("type")%><%typeid=rs("type")%></FONT></b></td> </tr>
<td width="770" height="20" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="770" id="AutoNumber1"><tr>
<TABLE cellSpacing=2 cellPadding=0 width='760' align='center' bgColor=#ffdc9b border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr bgcolor="#FFF0F0">
<td width="100%" valign="top">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr bgcolor="#FFFFFF">
<%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专区" then %>
<td width="20%" bgcolor="#FFF0F0" style="BORDER-BOTTOM: #a4d3ff 1px dashed" align=justify>
<a href="user/buy.asp" target="_blank">
<font color=blue>此为VIP会员影片</font></a></td>
<%else%>
<td width="20%" bgcolor="#FFF0F0" style="BORDER-BOTTOM: #a4d3ff 1px dashed" align=justify><FONT COLOR="#FF0000">·</FONT>
<a href="movie.asp?id=<%=rst("articleid")%>" target="_blank" class="mayi">
<%content=rst("title")
if len(content)>9 then content=left(content,9)&"…"
response.write content
%></a></td>
<% end if
if row_count mod 5 =0 then%>
</tr>
<tr>
<%
end if
row_count=row_count+1
rst.movenext
loop
end if%>
</tr>
</table>
</tr>
</table>
</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="770">
<tr>
<td>
</td>
</tr>
</table>
</center>
</div>
<!--#include file=Bottom1.asp-->
</body>
</html>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -