留言本(lyb.asp页面)

<html>
<head>
<title>☆▲→湖北交通职业技术学院040321班小论坛←▲☆</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>
<script language="javascript">

</script>
<style type="text/css">

</style>
</head>
<body background="img/bg.jpg" class="bg">
<h2 align="center"><font color="#FF0000">〓花样年华〓</font>
<font color="#FF0000" size="4">-----☆第二转折之压力☆</font></h2>
<input type="button" value="我要留言" align="left" class="buttonface" onClick="javascript:window.navigate('fbly.asp');">
<div align="right" class="style10">
<a href="index.asp"><font color="#0033FF">返回主页面>>></font></a>
</div>
<hr noshade size="1" color="#99CC00">

<%sql="select * from subject order by createtime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof or rs.eof then
else
rs.pagesize=30
page=clng(request.QueryString("page"))
if page<1 or page="" then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
%>
<center>
<span class="style11">
<table width="80%" border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
</span>
<tr bordercolor="#66CCFF" bgcolor="#CCFF33">
<td colspan="3" bordercolor="#66CCFF" bgcolor="#FFFFCC" class="style11">         
<span class="style12">论坛主题</span>         
                  
                  
                   
         
现在是:<%=now%></td>
</tr>
<tr bordercolor="#99CCFF">
<th width="12%" align="center">作者</th>
<th width="68%" align="center">主题</th>
<th width="20%" align="center">时间</th>
</tr>
<%for i=1 to rs.pagesize%>
<tr bordercolor="#99CCFF">
<td width="12%" align="center"><%=rs("username")%></td>
<td width="68%" align="left" onMouseOver='this.style.backgroundColor="F5FFFA";' onmouseout='this.style.backgroundColor="";'>
<img alt="图片" align="absmiddle" src="img/xiaolian.GIF" width="20" border="0" height="20" hspace="10">
<a href="xsly.asp?subjectid=<%=rs("subjectid")%>"><font color="#FF00DD" size="2"><b><%=rs("topic")%></b></font></a></td>
<td width="20%" align="center"><%=rs("createtime")%></td>
</tr>
<%rs.movenext
if rs.eof then exit for
next
end if
%>
<tr>
<form action="lyb.asp?page=<%=page%>" name="form" method="get" onSubmit="return fucCheck()">
<table cellpadding="0" cellspacing="0" align="center" width="80%" 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=lyb.asp?page=1>首页</a>  "
response.Write "<a href=lyb.asp?page="&(page-1)&">上页</a>  "
end if
if page<>rs.pagecount then
response.Write "<a href=lyb.asp?page="&(page+1)&">下页</a>  "
response.Write "<a href=lyb.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>
</center>

</body>
</html>

posted on 2006-10-29 18:59 小角色阅读(179) 评论(0) 编辑收藏举报