asp数字分页示例共三个
<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(request(”page”))>m then
page=m
end if
page=cint(page)
if not rs.eof then
rs.absolutepage=page
end if
if m>page+3 then
endpage=page+3
else
endpage=m
end if
if page>4 then
pagetitle=pagetitle & “ ” & “….”
end if
for i=page-3 to endpage
if not i<1 then
if i = page then
pagetitle=pagetitle & “ ” & “<B>[” & i & “]</B>”
else
pagetitle=pagetitle & “ ” & “[” & “<a href=userlist.asp?page=” & i & “>” & i & “<a>” & “]”
end if
end if
next
if page+3 < m then
pagetitle=pagetitle & “ ” & “….”
end if
%>
您可以看到,有一个“pagetitle”的变量,您只要用
<%=pagetitle%>,就可以把它调用出来,实现您的效果。
另一个
<%
sql="Select * from [table] order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
page=cint(request("page"))
n=rs.RecordCount
PageSize=10
rs.pagesize=PageSize
m=cint(rs.pagecount)
if page="" then
page=1
elseif page<1 then
page=1
end if
if cint(request("page"))>m then
page=m
end if
相关文档:
文件1.上传界面文件 upload.htm
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>
......
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
function checkAll(){
&nbs ......
ASP中如何用JS从子窗口传递值变量到父窗口表单中?
悬赏分:15 - 解决时间:2008-6-10 00:06
父窗口中有一表单,现在是点表单后的上传打开子窗口,经过无组件上传文件成功后子窗口提示成功,并用response.write(FileName) 输出路径成功.但如何传递到父窗口文本域内提交数据库呢?查资料是用JS回传写成: resp ......
对于三层架构的概念性意义,网络上有很多专文探讨,若想深入了解,可以自寻解答.本文仅作为一种应用性探讨,讲的更多的是实现的细节.
简单地讲,三层架构是将代码按其作用分成三部分,每部分解决自己负责的流程.
从表入深,分别是:
界面层-UI&nb ......