📄 index.asp
字号:
<!-- #include file="conn.asp"-->
<%
sql="select * from Moviebig"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%
sqlmc="select * from mingcheng"
set rsmc=server.CreateObject("adodb.recordset")
rsmc.open sqlmc,conn,1,1
%>
<%
if request("action")="zhuxiao" then
session("Customer")=""
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; chars1et=gb2312">
<title>欢迎光临<%=rsmc("mc")%></title>
<style type="text/css">
<!--
@import url("css/style.css");
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_openBrWindow('tanchu.asp','','width=550,height=400')" oncontextmenu="return false" onselectstart="return false">
<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="24%" valign="top">
<!-- #include file="left.asp"--></td>
<td width="76%" valign="top"> <table width="100%" height="0%" border="0" cellpadding="00" cellspacing="0">
<%
lx=request("lx")
if lx="" then
sql1="select * from Moviesmall"
else
sql1="select * from Moviesmall where lx='"&lx&"'"
end if
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
l=1
dim currentpage,page_count,Pcount
dim totalrec,endpage
perpage=10
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
%>
<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")%>&mc=<%=rs1("mc")%>" 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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -