<% IF SESSION("ADMIN")="" THEN RESPONSE.REDIRECT "LOGIN.ASP" END IF PAGE=REQUEST("PAGE") IF PAGE="" THEN PAGE=1 END IF SQL="SELECT * FROM CONTACT ORDER BY -1*ID" %> 客戶連絡事項列表
<% CURPAGE = 0 IF REQUEST.QUERYSTRING("PAGE")<>"" THEN CURPAGE = CINT(REQUEST.QUERYSTRING("PAGE")) IF REQUEST.QUERYSTRING("TOPAGE")<>"" THEN CURPAGE = CINT(REQUEST.QUERYSTRING("TOPAGE")) IF CURPAGE <= 0 THEN CURPAGE = 1 SET CN = SERVER.CREATEOBJECT("ADODB.CONNECTION") CN.OPEN "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="&SERVER.MAPPATH("CONTACT.MDB") SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL,CN,1,1,1 IF RS.EOF THEN RESPONSE.WRITE "
目前無客戶連絡資料
登出管理區
" ELSE COUNT=RS.RECORDCOUNT RS.PAGESIZE=3 TOTALPAGE=RS.PAGECOUNT RS.MOVEFIRST IF CURPAGE > TOTALPAGE THEN CURPAGE = TOTALPAGE RS.MOVE (CURPAGE-1) * 3 %>
客戶連絡事項
登出管理區

<% Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount %> <%If Page <> 1 Then ' 如果不是位於第一頁 %> >第一頁 &typer=<%=typer%>>上一頁 <% End If If Page <> RS.PAGECOUNT Then ' 如果不是位於最後一頁 %> &typer=<%=typer%>>下一頁 &typer=<%=typer%>>最後一頁

<%End If%>
分頁: <%FOR I=1 TO RS.PAGECOUNT %> <% IF I <> CINT(PAGE) THEN %> <% IF I < 10 THEN I = "0" & I END IF %> <% =I %> <% END IF NEXT %> <% END IF%> 目前在第 <%=CINT(PAGE)%> 頁•共 <%=RS.PAGECOUNT%> 頁•每頁 3 筆•共有 <%=RS.RECORDCOUNT%> 筆資料
<% i=0 DO WHILE NOT RS.EOF AND I<3 i=i+1 %>
<% %> <% if RS("CONAME")<>"" THEN%> <%ELSE%> <%END IF%> <% if RS("FAX")<>"" THEN%> <%ELSE%> <%END IF%>
公司名稱：
<%=RS("CONAME")%>無
姓　　名：
 <%=RS("USERNAME")%>　<%=BG%>
電子郵件：
 "><%=RS("E_MAIL")%>
連絡地址：
 <%=RS("ZIP")%>-<%=RS("ADDR")%>
連絡電話：
 <%=RS("PHONE")%>
連絡傳真：
<%=RS("FAX")%>無
連絡事項：
 <%=RS("MEMO")%>
">刪除
<% RS.MOVENEXT LOOP %>

<% Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount %> <%If Page <> 1 Then ' 如果不是位於第一頁 %> >第一頁 &typer=<%=typer%>>上一頁 <%End If If Page <> RS.PAGECOUNT Then ' 如果不是位於最後一頁 %> &typer=<%=typer%>>下一頁 &typer=<%=typer%>>最後一頁

<% RS.CLOSE CN.CLOSE %>
<%End If%>