function.inc.asp

商业网站/图片管理系统/投票系统/新闻管理系统/

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

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

'翻页函数 参数列表：
'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
%>