📄 index.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>好吧免费电影 http://www.hao8.cn 生成HTML版</title>
<style type="text/css">
<!--
td { font-size: 12px; line-height: 17px }
body { font-size: 12px; line-height: 17px }
p { margin-top: 1px; margin-bottom: 1px }
a:link { text-decoration: none; color: black }
a:visited { text-decoration: none; color: black }
a:active { text-decoration: none }
a:hover { text-decoration: underline; color: red }
-->
</style>
<script language= "javascript">
function newpage(htmlurl) {
var newwin=window.open(htmlurl,"newWin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=20,left=200,width=400,height=350");
newwin.focus();
return false;
}
</script>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function checkadd()
{
if (document.search.keyword.value.length<1)
{
alert("请输入查询关键字！");
document.search.keyword.focus();
return false;
}
if (document.search.keyword.value=="输入关键字")
{
alert("请输入查询关键字！");
document.search.keyword.focus();
return false;
}
}
//-->
</SCRIPT>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<center>
<%
sql="select * from data order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if rs.eof then
response.write "<p align=center><font color=#FF0000>暂时没有任何电影！</font></p>"
else
const maxperpage=50
dim currentpage
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
%>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="30">
<tr>
<td background="images/bak.gif" height="30" width="758" colspan="2">
<%
sql="select * from item"
set rs_item=server.createobject("adodb.recordset")
rs_item.open sql,connstr,1,1
if rs_item.eof then
response.write "<p align=center><font color=#FF0000>暂时没有分类！</font></p>"
else
response.write "<p align=center><a href=admin.asp>全部电影</a>/<a href=fsoindex.asp target=_blank>制</a> "
do while not rs_item.eof
response.write "<a href=type.asp?item="&rs_item("name")&">"&rs_item("name")&"</a>/<a href=fsotype.asp?item="&rs_item("name")&" target=_blank>制</a> "
rs_item.movenext
loop
end if
rs_item.close
%>
</td>
</tr>
<tr>
<td height="30" width="447"><%=totalput%>
</td>
<form action="admin/search.asp" method="post" name="search" onsubmit="return checkadd()">
<td height="30" width="313" align="center">
<img border="0" src="images/dian.gif"> <b>输入电影名：</b><input maxLength="20" name="keyword" onfocus="this.value=''" size="18" value="输入关键字" style="border: 1 solid #000000">
<input type="submit" width="20" height="20" value="查找" style="font-size: 12px" name="search">
</td>
</form>
</tr>
</table>
<table border="1" width="760" cellspacing="0" cellpadding="0" bordercolorlight="#F1F1F1" bordercolordark="#FFFFFF">
<tr>
<td width="30%" background="images/bg.gif" height="30"> <img border="0" src="images/biao_left.gif" width="15" height="15"> 影片名字</td>
<td width="20%" background="images/bg.gif" height="30" align="center">在线播放</td>
<td width="10%" background="images/bg.gif" height="30" align="center">电影类型</td>
<td width="10%" background="images/bg.gif" height="30" align="center">播放格式</td>
<td width="10%" background="images/bg.gif" height="30" align="center">点击</td>
<td width="10%" background="images/bg.gif" height="30" align="center">加入日期</td>
<td width="10%" background="images/bg.gif" height="30" align="center">推荐度</td>
</tr>
<%
i=0
do while i< maxperpage and not rs.eof
%>
<tr>
<td height="30"> <img border="0" src="images/dian.gif"> <%=rs("name")%> <%if rs("yesno")<>"1" then%><font color=#FF0000></font><%end if%> </td>
<td height="30" align="center">
<%
if rs("address1")<>"" then
response.write"<a href=admin/list.asp?id="&rs("id")&">[播放]</a> "
end if
%>
</td>
<td height="30" align="center"><a href="type.asp?item=<%=rs("item")%>"> <%=rs("item")%></a></td>
<td height="30" align="center"><%=rs("type")%></td>
<td height="30" align="center"><%=rs("hits")%></td>
<td height="30" align="center"><%=rs("date")%></td>
<td height="30" align="center"><font color="red"><%=rs("mark")%></td>
</tr>
<%
i=i+1
rs.movenext
loop
end if
set rs=nothing
%>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%
sql="select * from data order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if rs.eof then
response.write "<p align=center><font color=#FF0000>暂时没有任何电影！</font></p>"
else
%>
<table border="1" width="760" cellspacing="0" cellpadding="0" bordercolorlight="#F1F1F1" bordercolordark="#FFFFFF">
<tr>
<td width="30%" background="images/bg.gif" height="30"> <img border="0" src="images/biao_left.gif" width="15" height="15"> 影片名字</td>
<td width="20%" background="images/bg.gif" height="30" align="center">在线播放</td>
<td width="10%" background="images/bg.gif" height="30" align="center">电影类型</td>
<td width="10%" background="images/bg.gif" height="30" align="center">播放格式</td>
<td width="10%" background="images/bg.gif" height="30" align="center">点击</td>
<td width="10%" background="images/bg.gif" height="30" align="center">加入日期</td>
<td width="10%" background="images/bg.gif" height="30" align="center">推荐度</td>
</tr>
<%
i=0
do while i< maxperpage and not rs.eof
%>
<tr>
<td height="30"> <img border="0" src="images/dian.gif"> <%=rs("name")%> <%if rs("yesno")<>"1" then%><font color=#FF0000></font><%end if%> </td>
<td height="30" align="center">
<%
if rs("address1")<>"" then
response.write"<a href=admin/list.asp?id="&rs("id")&">[播放]</a> "
end if
%>
</td>
<td height="30" align="center"><a href="type.asp?item=<%=rs("item")%>"> <%=rs("item")%></a></td>
<td height="30" align="center"><%=rs("type")%></td>
<td height="30" align="center"><%=rs("hits")%></td>
<td height="30" align="center"><%=rs("date")%></td>
<td height="30" align="center"><font color="red"><%=rs("mark")%></td>
</tr>
<%
i=i+1
rs.movenext
loop
end if
set rs=nothing
%>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -