asp网页课程设计大一-留言板(3)

来源：网络收集时间：2026-02-08

导读： rs.AbsolutePage=page_no Dim I I=5 Do While Not rs.Eof And I0 I=I-1 % center table width=700 border=1 align=center tr td发言人：/td td%=rs(name)%/td td发言时间：/td td%=rs(submit_date)%/td td a href=h

rs.AbsolutePage=page_no Dim I

I=5

Do While Not rs.Eof And I>0

I=I-1 %>

href="huifu.asp?ID=<%=rs("link_ID")%>"">[

回

复

留

言]</a></td>

</tr> <tr>

<a href="delete.asp?ID=<%=rs("link_ID")%>">[删除留言]

</a></td></tr>

</table> %> </table> <%

Response.Write "<p>共有" & page_total & "页，" Response.Write "当前显示" & page_no & "页，" Response.Write "请选择数据页: " For I=1 To page_total %> <% Next %>

</center>

rs.MoveNext

Loop

End if

</body> </html>

（1）、显示全部留言界面

图4.6 显示全部留言界面

代码如下： <%

dim conn

set conn=server.createobject("adodb.connection") provider="provider=microsoft.jet.oledb.4.0;" dbpath="data source=" & server.mappath("guest.mdb") conn.open provider & dbpath

set rs=server.createobject("ADODB.recordset") rs.open "link",conn,2,2 %> <html> <head>

<table border="0" width="90%"> <tr bgcolor="##CCFF99" align="center"> <%

for i=0 to rs.fields.count-1

response.write "<td>" & rs(i).name & "</td>" next %>

</tr> <%

rs.movefirst while not rs.eof row="<tr>"

for i=0 to rs.fields.count-1 row=row&"<td >" &rs(i)&"</td>" next

response.write row&"</tr>" rs.movenext wend %>

</tabel></center> <br><br><br><br><br><br>

          ;<a href="index.asp">返回留言版</a> </body> </html>

（2）、留言板查询页面

图4.7 留言板查询界面

代码如下：

<%

If Request.Form("huifu")<>"" Then

'获取传送过来的记录编号ID

asp网页课程设计大一-留言板(3).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.jiaowen.net/wenku/124056.html（转载请注明文章来源）

上一篇：电子商务论文,关于当当网的网站经营模式分析
下一篇：2015-2020年中国存储产品行业市场分析与投资前景预测报告