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

'截?cái)嘧址瘮?shù)
function cutstr(str,length,addstr)
	if len(str)<length then
	   cutstr=str
	else
	   cutstr=left(str,length)&addstr
	end if
end function

'翻頁(yè)函數(shù) 參數(shù)列表：
'sql 查詢所有記錄條數(shù)的SQL語(yǔ)句  
'page 當(dāng)前頁(yè)  
'pagelistnum每頁(yè)顯示記錄數(shù) 
'link翻頁(yè)鏈接除PAGE參數(shù)外
function fy(sql,page,pagelistnum,link)
  dim rs,znum,zpage
  page=cint(page)'將PAGE轉(zhuǎn)換為整型
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,1
  znum=rs("num")
  '得到總頁(yè)數(shù)
  zpage=znum\pagelistnum
  if znum mod pagelistnum>0 then zpage=zpage+1
  response.Write "共" & zpage & "頁(yè)，第" & page & "頁(yè) "
  '得到第一頁(yè)、上一頁(yè)鏈接 
  if page=1 then
    response.Write "首頁(yè) < "
  else
    response.Write "<a href=" & link & "&page=1>首頁(yè)</a> <a href=" & link & "&page=" & (page-1) & "><</a> "
  end if
  '得到上一頁(yè)、最后頁(yè)鏈接
  if page<zpage then
    response.Write "<a href=" & link & "&page=" & (page+1) & ">></a> <a href=" & link & "&page=" & zpage & ">末頁(yè)</a>"
  else
    response.Write "> 末頁(yè)"
  end if
  rs.close
  set rs=nothing
end function
%>