家庭/个人应用

开发平台：

ASP/ASPX

main.asp：源码内容

							<!--#include file="articleconn.asp"-->
<html>
<head>
<LINK href="img/style.css" type=text/css rel=stylesheet>
</head>
<body style="background-color: #FFFFFF" topmargin="0" leftmargin="0">
<TABLE cellSpacing=0 width=774 border=1 height="61" style="border-collapse: collapse" bordercolor="#C0C0C0">
<TBODY>
<form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="list.asp">
<TR align=middle>
<TD width=123 background="img/topbg.gif" height="36">电影名称</TD>
<TD width=36 background="img/topbg.gif" height="36">
  <p align="center">类别</p>
</TD>
<TD width=49 background="img/topbg.gif" height="36">
  <p align="center">日期</p>
</TD>
<TD width=111 background="img/topbg.gif" height="36">电影名称</TD>
<TD width=36 background="img/topbg.gif" height="36">
  <p align="center">类别</p>
</TD>
<TD width=51 background="img/topbg.gif" height="36">
  <p align="center">日期</p>
</TD>
<TD width=114 background="img/topbg.gif" height="36">电影名称</TD>
<TD width=36 background="img/topbg.gif" height="36">
  <p align="center">类别</p>
</TD>
<TD width=51 background="img/topbg.gif" height="36">
  <p align="center">日期</p>
</TD></TR>
<TR align=middle>
<%
dim i
i=0
page = request.querystring("Hits_Page")
set rs=server.createobject("adodb.recordset") 
sql="select articleid,title,typeid,dateandtime from learning where dateandtime<>date() order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<div align=center>未收录任何电影</div>"
else
rs.pagesize = "57"
if page = "" or page < "1" then
page = "1"
end if
if rs.pagecount > "0" then
rs.absolutepage = page
end if
do while not rs.eof
i=i+1
if i > rs.pagesize then
exit do
end if
%>
<TD width=123 height="24" align="center" bgcolor="#EFEFEF" onmouseover="this.style.backgroundColor='#E2F1A6'" onmouseout="this.style.backgroundColor='#EFEFEF'">  <table border="0" cellpadding="0" cellspacing="0" width="120%">
    <tr>
      <td width="81%"><a href="#" onClick="window.open('movie.asp?id=<%=rs("articleid")%>','Lcmusic')" ><%=rs("title")%></a></td>
    </tr>
  </table>
</TD>
<TD height="5">
  <p><%=rs("typeid")%></p>
</TD>
<TD width=51 height="5">
  <table border="0" cellpadding="0" cellspacing="0" width="121%">
    <tr>
      <td width="100%"><font size="1"><%=rs("dateandtime")%></font></td>
    </tr>
  </table>
</TD>
<% if i mod 3 =0 then%>
<TR align=middle>
<%
end if
if i>=57 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</TR>
</form></TR>
</TBODY></TABLE>
<table border="0" cellpadding="0" cellspacing="0" id="table1" height="100%">
	<tr>
		<td>　</td>
	</tr>
	<tr>
		<td><script src="http://www.1000n.com/tongji/count.asp?style=1"></script></td>
	</tr>
</table>
</body>
</html>

						