<%
'翻頁函數 參數列表：
'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

%>