function.inc.asp

[FIF]ASP互动视频VIP教程 书包

<%
'翻页函数 参数列表：
'sql 查询所有记录条数的SQL语句  
'page 当前页  
'pagelistnum每页显示记录数 
'link翻页链接除PAGE参数外
function fy(sql,page,pagelistnum,link)
  dim rs,znum,zpage
  page=cint(page)'将PAGE转换为整型
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,1
  znum=rs("num")
  '得到总页数
  zpage=znum\pagelistnum
  if znum mod pagelistnum>0 then zpage=zpage+1
  response.Write "共" & zpage & "页，第" & page & "页 "
  '得到第一页、上一页链接 
  if page=1 then
    response.Write "第一页 上一页 "
  else
    response.Write "<a href=" & link & "&page=1>第一页</a> <a href=" & link & "&page=" & (page-1) & ">上一页</a> "
  end if
  '得到上一页、最后页链接
  if page<zpage then
    response.Write "<a href=" & link & "&page=" & (page+1) & ">下一页</a> <a href=" & link & "&page=" & zpage & ">最后页</a>"
  else
    response.Write "下一页 最后页"
  end if
  rs.close
  set rs=nothing
end function

'截断字符串函数
function cutstr(str,length,addstr)
  if len(str)<=length then
    cutstr=str
  else
    cutstr=left(str,length)&addstr
  end if
end function

'在客户弹出提示消息
sub msgboxU(str)
  response.write("<script language=vbscript>msgbox "&chr(34)&str&chr(34)&"</script>")
end sub

%>