电影全部(dyqb.asp页面)

<html>
<head>
<title>网站说明的全部内容显示--多留言多灌水,同学们我数据库空间很大的,呵呵!!!^-^</title>
<meta http-equiv="content-type" content="text/html;sharset=gb2312">
<link rel="stylesheet" href="css/STYLE.CSS">
<script language="javascript">
function fucCheck()
{
var i,j,strTemp,NUM;
NUM=document.form.page.value;
strTemp="0123456789";
if (NUM==""){
alert("请输入要转到的页数!!!\n\n交院出了个陈刚毅(名人广告)^-^!!!");
form.page.focus();
return (false);
}
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
alert("只能输入数字!!!\n\n广告无处不在,希望广告商加盟^@^!!!");
form.page.focus();
return (false);
}
}
}
</script>
</head>
<body background="img/bg.jpg" class="bg">
<p></p>
<p></p>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="903" align="center">
<center class="title">
电影网站筹建说明
</center>
<p></p>
</td>
</tr>
</table>
<center><hr noshade width="100%">
</center>
<%set rs=server.CreateObject("adodb.recordset")
sql2="select * from dy order by id desc"
rs.open sql2,conn,1,1
if rs.eof or rs.bof then
else
rs.pagesize=30
page=cint(request.QueryString("page"))
if page<1 or page="" then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
%>
<table cellpadding="0" cellspacing="0" align="center" width="850" style="border:2 solid #CC33CC; border-color:#CCCCCC" bordercolor="#CCCCCC" border="1">
<tr>
<th width="69" align="center" bgcolor="#999999" >排序</th>
<th width="93" align="center" bgcolor="#999999" >留言朋友</th>
<th width="434" align="center" bgcolor="#999999">查看全部内容</th>
<th width="124" align="center" bgcolor="#999999">邮箱地址</th>
<th width="116" align="center" bgcolor="#999999">发布时间</th>
</tr>
<%for i=1 to rs.pagesize%>
<tr>
<td align="center" width="69" bgcolor="#FFFFFF" onMouseMove='this.style.backgroundColor="#B0C4DE";' onMouseOut='this.style.backgroundColor="#ffffff";'><font color="#FF0000"><%=rs("id")%></font>楼</td>
<td align="center" width="93" bgcolor="#FFFFFF" onMouseMove='this.style.backgroundColor="#B0C4DE";' onMouseOut='this.style.backgroundColor="#ffffff";'><font color="#009900"><%=rs("name")%></font></td>
<td align="center" width="434" bgcolor="#FFFFFF" onMouseMove='this.style.backgroundColor="#B0C4DE";' onMouseOut='this.style.backgroundColor="#ffffff";'><%=rs("dynr")%></td>
<td align="center" width="124" bgcolor="#FFFFFF" onMouseMove='this.style.backgroundColor="#B0C4DE";' onMouseOut='this.style.backgroundColor="#ffffff";'><a href=" mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
<td align="center" width="116" bgcolor="#FFFFFF" onMouseMove='this.style.backgroundColor="#B0C4DE";' onMouseOut='this.style.backgroundColor="#ffffff";'><font color="#FF00FF"><%=rs("time")%></font></td>
</tr>
<%rs.movenext
if rs.eof then exit for
next
end if%>
<tr>
<form action="dyqb.asp?page=<%=page%>" name="form" method="get" onSubmit="return fucCheck()">
<table bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" align="center" width="850" style="border:2 solid #CC33CC; border-color:#CCCCCC" bordercolor="#CCCCCC" border="1">
<tr>
<td align="center" height="30">
<% response.Write rs.pagesize&"条记录一页  "
response.Write page&"/"&rs.pagecount&"  "
if page=1 then
response.Write "首页  "
response.Write "上页  "
end if
if page<>1 then
response.Write "<a href=dyqb.asp?page=1>首页</a>  "
response.Write "<a href=dyqb.asp?page="&(page-1)&">上页</a>  "
end if
if page<>rs.pagecount then
response.Write "<a href=dyqb.asp?page="&(page+1)&">下页</a>  "
response.Write "<a href=dyqb.asp?page="&rs.pagecount&">尾页</a>  "
end if
if page=rs.pagecount then
response.Write "下页  "
response.Write "尾页  "
end if
%>
转到<input type="text" size="3" name="page" value=<%=page%> class="text" onFocus="this.className='textedit';this.select()">页
<input type="submit" class="buttonface" value="Goto">
</td>
</tr>
</table>
</form>
</tr>
</table>

</body>
</html>

posted on 2006-10-29 19:03 小角色阅读(236) 评论(0) 收藏举报