用户注册登录
由于当下是个信息时代,而信息又有好坏之分,为了避免恶意信息在本站传播固必须注册为本站用户才可管理成绩信息,当然这也有为了保障作者版权着想。另一部分就是登录板块了,只有成功登录系统才能进行相关操作,是对系统信息的维护。
2.信息处理的设计信息处理的设计信息处理
此版块主要是对成绩信息的一些相应处理,如查询、删除、插入、修改等。
四、源程序
1、留言时间、IP等源程序的设计、留言时间、
<%'设置每页显示多少条记录的分页常量ThisPageSizeConstThisPageSize=4'定义总记录数,总页数,当前页数,记数器变量DimThisRsCount,ThisPageCount,ThisCurrentPage,i'从URL中获取页码Page,并判断有效性ThisCurrentPage=Request("Page")IfRequest("Page")=""ThenThisCurrentPage=1ElseIfIsNumeric(ThisCurrentPage)ThenThisCurrentPage=int(ThisCurrentPage)ElseThisCurrentPage=1EndIfIfThisCurrentPage<1ThenThisCurrentPage=1
·2·
'获取总记录数ThisRsCount=Rs.RecordCount'设置每页显示多少条记录Rs.PageSize=ThisPageSize'获取总页数ThisPageCount=Rs.PageCount'判断当前页码的有效性IfThisCurrentPage>ThisPageCountThenThisCurrentPage=ThisPageCount'设置当前页码Rs.AbsolutePage=ThisCurrentPage'循环读取数据i=0DoWhileNotRs.EOFandi
留言内容:<%=rs("neirong")%>
留言人:留言地址:留言时间:
<%=rs("yonghu")%><%=rs("dress")%><%=rs("shijian")%>
·3·
width="450"
border="0"
cellpadding="3"
cellspacing="1"
bgcolor="#CCCCCC">
colspan="3" align="right" bgcolor="#FFFFFF"> href="xiugai.asp?id=<%=rs("id")%>">修改 |
<%i=i+1Rs.MoveNextLoop%>
"
onclick="returnconfirm('您确定要删除?')">删除< body>