?? 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>
<div align="center">
<center>
<table border="1" width="778" style="border-collapse: collapse" bordercolor="#C3EF26" cellpadding="3" cellspacing="0">
<%do while not rs.eof%>
<tr>
<td width="71" height="20" bgcolor="#0099FF" valign="top" bordercolor="#0099FF">
<p align="center"><%=rs("type")%>>><%typeid=rs("type")%></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專區" then %>
<td width="135" bgcolor="#FFFFFF">
<a href="user/buy.asp" target="_blank">
<font color=blue>此為VIP會員影片</font></a></td>
<%else%>
<td width="135" bgcolor="#FFFFFF">
<a href="movie.asp?id=<%=rst("articleid")%>" target="_blank" class="mayi">
<%content=rst("title")
if len(content)>10 then content=left(content,10)&"…"
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>
</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>
</td>
</tr>
</table>
</center>
</div>
<!--#include file=Bottom.asp-->
</body>
</html>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -