📄 filmchaxun.asp
字号:
<!-- #include file="conn.asp"-->
<%
key=request("key")
big=request("big")
sql1="select * from Movie where "&big&" like '%"&key&"%'"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
response.Write"<script language='javascript'>alert('此影片暂无，请重新搜索!');history.go(-1);</script>"
response.end
end if
if key="" then
response.Write"<script language='javascript'>alert('不能为空，请重新搜索!');history.go(-1);</script>"
response.end
end if
l=1
dim currentpage,page_count,Pcount
dim totalrec,endpage
perpage=5
if request("page")="" then
currentPage=1
else
currentPage=cint(request("page"))
end if
rs1.PageSize = perpage
rs1.AbsolutePage=currentpage
page_count=0
totalrec=rs1.recordcount
%>
<%
key=request("key")
sql="select * from Moviebig"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if key="" then
response.Write"<script language='javascript'>alert('不能为空，请重新搜索!');history.go(-1);</script>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; chars1et=gb2312">
<title>无标题文档</title>
<link href="css/Site.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<!-- #include file="top.asp"-->
</td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="00" cellspacing="0">
<tr>
<td width="25%" height="223" valign="top">
<!-- #include file="left.asp"-->
<p> </p></td>
<td width="75%" valign="top"> <table width="100%" height="0%" border="0" cellpadding="00" cellspacing="0">
<tr>
<%do while (not rs1.eof) and (not page_count = rs1.PageSize)%>
<td height="100%" valign="top"> <table width="100%" border="1" align="left" cellpadding="4" cellspacing="0" bordercolorlight="#DDDDDD" bordercolordark="#FFFFFF">
<tr bgcolor="#EEEEEE">
<td colspan="2" align="center" valign="top"> <div align="left"></div>
<div align="left"><strong><%=rs1("lx")%>--<%=rs1("mc")%></strong></div></td>
</tr>
<tr bgcolor="#EEEEEE">
<td width="118" rowspan="5" align="center" valign="top" bgcolor="#FFFFFF"><a href="gotoplay.asp?id=<%=rs1("id")%>" target="_blank"><img src="<%=rs1("tupian")%>" width="118" height="134" border="0"></a></td>
<td width="444" align="center" bgcolor="#FFFFFF"> <div align="left"><strong>领衔主演：</strong>
<%=left(rs1("yanyuan"),7)%></div></td>
</tr>
<tr bgcolor="#EEEEEE">
<td align="center" bgcolor="#FFFFFF"> <div align="left"><strong>影片格式：</strong><%=rs1("geshi")%></div></td>
</tr>
<tr bgcolor="#EEEEEE">
<td align="center" bgcolor="#FFFFFF"> <div align="left"><strong>推荐级别：</strong><%=rs1("jibie")%></div></td>
</tr>
<tr bgcolor="#EEEEEE">
<td align="center" valign="top" bgcolor="#FFFFFF"><div align="left"><strong>观看次数：</strong><%=rs1("cishu")%></div></td>
</tr>
<tr bgcolor="#EEEEEE">
<td align="center" valign="top" bgcolor="#FFFFFF"><div align="left"><strong>需要点数：</strong>
<%
dianshu=rs1("dianshu")
if dianshu="0" then
response.write("免费")
else
response.write(dianshu)
end if
%>
</div></td>
</tr>
</table></td>
<%if l mod 2=0 then%>
<tr></tr>
<%end if%>
<%rs1.movenext
page_count = page_count + 1
l=l+1
loop
%>
</table>
<table width="100%" height="32" border="0" cellpadding="00" cellspacing="0">
<tr>
<td><form name="form1" method="post" action="">
<table width="100%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolorlight="#DDDDDD" bordercolordark="#FFFFFF">
<tr bgcolor="#EEEEEE">
<td align="center" bgcolor="#FFFFFF"><font color="#333333">
<%
lx=request("lx")
If currentPage <> 1 Then
Response.Write "<a href=index.asp?page=1&lx="&lx&">[第一页]</A> "
Response.Write "<A HREF=index.asp?Page=" & (currentPage-1) &"&lx="&lx&">[上一页]</A> "
End If
If currentPage <> rs1.PageCount Then
Response.Write "<A HREF=index.asp?Page=" & (currentPage+1) & "&lx="&lx&">[下一页]</A> "
Response.Write "<A HREF=index.asp?Page=" & rs1.PageCount & "&lx="&lx&">[最后一页]</A> "
End If
%>
</font>页次:[<font color="#663300"><%=currentPage%></font>/<font color="#663300"><%=rs1.PageCount%></font>]页,共<font color="#663300"><%=totalrec%></font>幅作品
跳到： <font size="2">
<select name="select32" onchange='javascript:window.open(this.options[this.selectedIndex].value,"_parent")'>
<%For m = 1 To rs1.PageCount + 1%>
<% if m = rs1.PageCount + 1 then%>
<option value="index.asp?page=<%=m%>&lx=<%=lx%>" selected>请选择</option>
<%else%>
<option value="index.asp?page=<%=m%>&lx=<%=lx%>" selected>第<%=m%>页</option>
<% end if %>
<%
Next
%>
</select>
</font>页</td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<!-- #include file="mop.asp"-->
</td>
</tr>
</table>
<script language="JavaScript">
if (window.Event)
document.captureEvents(Event.MOUSEUP);
function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
}
document.oncontextmenu = nocontextmenu; // for IE5+
document.onmousedown = norightclick; // for all others
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -