最近居然搞起了ASP
最近因为需要用到ASP,不得不学点基本的东西,写得郁闷之余随便做了小抄贴上来……..pagination.asp:
<!–#include file=”include/conn.asp”–>
<%
Set rs = Server.CreateObject(”ADODB.Recordset”)
sql =”select content from question”
rs.open sql,conn,1,3
if rs.recordcount>0 Then ‘ 记录集不为空则处理记录
rs.pagesize = 5 ‘ 设置每页显示的记录数
num=rs.recordcount ‘ 记录总数
pagenum=rs.pagecount ‘ 页总数
page=request(”page”) ‘ 获取页码的原始信息
‘ 处理页码原始信息的开始！
If page <> “” then
page = cint(page)
if err.number <> 0 then
err.clear
page = 1
end if
if page < 1 then
page = 1
end if
else
page = 1
End if
if page*rs.pagesize > num and not((page-1)*rs.pagesize < num)then
page=1
end if
‘ 处理页码原始信息的结束！设置当前页码
rs.absolutepage = page
%>
<%’判断当前页是否是最后一页，并根据判断设置记录的重复显示%>
<% if page<>pagenum then
lablenum=rs.pagesize
else
lablenum=num-(page-1)*rs.pagesize
end if
if page=1 then
i=1
else
i=lablenum*page-4
end if
response.write “<form id=’Tform’ name=’Tform’ method=’post’ action=’mark.asp’>”
for j=1 to lablenum
str=rs(”content”)
str1=Replace(str,”A)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’A'> A)”)
str2=Replace(str1,”B)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’B'> B)”)
str3=Replace(str2,”C)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’C'> C)”)
str4=Replace(str3,”D)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’D'> D)”)
i=i+1
response.write “<p>”+str4+”</p>”
rs.movenext
Next
end if
if page=pagenum then
response.write “<input type=’submit’ name=’submit’ value=’交卷’ />”
response.write “</form>”
end if
rs.close
set rs=nothing
%>
<table width=”500″ border=”1″>
<tr>
<td>共有<%=num%>题 |当前是<%=page%>/<%=pagenum%>页 | 共<%=pagenum%>页</td>
<td><a href=”pagination.asp?page=1″>首页</a></a>
<label></label></td>
<td><%if page>1 then%>
<a href=”pagination.asp?page=<%=page-1%>”>
<%end if%>
上一页</a></a></td>
<td><%if page<pagenum then%>
<a href=”pagination.asp?page=<%=page+1%>”>
<%end if%>
下一页</a></a></td>
<td><a href=”pagination.asp?page=<%=pagenum%>”>尾页</a></td>
</tr>
</table>