网页制作课程设计报告总结(12)

最规范,最全面的的计算机网页制作课程设计报告

Set db=Server.CreateObject("ADODB.Connection")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db4.mdb")

db.Open strConn

set rs=server.createobject("adodb.recordset")

dim sql

sql="Select * From liuyanban"

rs.open sql,db,3

rs.pagesize=10

if request("page")<>"" then

epage=cint(request("page"))

if epage<1 then epage=1

if epage>rs.pagecount then epage=rs.pagecount

else

epage=1

end if

rs.AbsolutePage=epage

%>

</p>

<p align="center"> <span class="STYLE3">留言板</span></p>

<p align="center">&nbsp;</p>

<%

for i=0 to rs.pagesize-1

if rs.bof or rs.eof then exit for

%>

<ul><%=rs(0)%>楼</ul>

<lh>留言人：<%=rs(1)%></lh><br>

<lh>留言标题:<%=rs(2)%></lh><br>

<lh>留言内容:<%=rs(3)%></lh><br>

</p>

<form action="chulizai.asp" method="post">

<p>昵称

<input type="text" name="uname">

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

</p>

<input type="text" name="title">

&nbsp;&nbsp;</p>

<p>&nbsp;&nbsp;&nbsp;

</p>

<textarea maxlength="1500" name="textarea" cols="50" rows="6" wrap="hard" ></textarea>

<br>

<input type="submit" name="submit" value="提交留言">