ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Ãö©ó¤À­¶¿ï¾Ü¶µ¥Ø

[µo°Ý] Ãö©ó¤À­¶¿ï¾Ü¶µ¥Ø

¥»©«³Ì«á¥Ñ mtlz610 ©ó 2011-7-6 09:33 ½s¿è

«ôŪ¤FASP»PSQL¸ê®Æ®w³o¥»®Ñ®Ñ¸¹P5027
Àò¯q¨}¦h

¥Ñ©ó¦b¹ê»Úªº¾Þ§@¤W¹J¨ì¤F¨Ç°ÝÃD»P²~ÀV
¦b¦¹·Q½Ð±Ð¸Ñ¨M¤è¦¡

°ÝÃD¥X¦b¤À­¶¿ï¾Üªº³¡¤À
®Ñ¤¤ªº8-44­¶¤ºªº¤À­¶½d¨Ò
»P8-51ªºselect¼ÐÅÒ´«­¶

¦b¦¹¶K¤W¤p§Ìªº½s½X½Ð±Ð
¸Ó¦p¦ó¤~¯à¹F¦¨¨Ï¥Îselect¼ÐÅÒ¤À­¶ªº¾Þ§@
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <!--#include file="../sql_link/ad_sql_link.asp"-->
  3. <%
  4. set rs = server.CreateObject("adodb.recordset")
  5. cot = "select * from members_data order by mber_id desc"
  6. rs.open cot,sqlcon,3,3

  7. mycount=rs.recordcount

  8. rs.pagesize =3

  9. gopage=cint(request("topage"))

  10. if gopage<1 then
  11.         rs.absolutepage=1
  12.         gopage=1
  13. else
  14.         rs.absolutepage=gopage
  15. end if       
  16. %>

  17. <!DOCTYPE HTML>
  18. <html xmlns="http://www.w3.org/1999/xhtml">
  19. <head>

  20. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  21. <link rel="stylesheet" type="text/css" href="../css_set/body_set.css"/>
  22. <link rel="stylesheet" type="text/css" href="../css_set/ad_body_set.css" />

  23. <title>BeDog Admin - Index</title>
  24. </head>

  25. <body>
  26. <!--©³¹Ï³z¥Õ-¤£¥i§R°£!! --><div class="aera_center">

  27. <div style="width:900px; margin:auto; text-align:left; padding:20px 20px 5px 20px; ">
  28. <font style="font-size:22px;">BeDogºô¯¸«á¥xºÞ²z¤¶­±</font><br>
  29. BeDog Pet Services - Administrator Interface
  30. </div>
  31. <hr style="width:920px; margin:5px auto 5px auto; "/>

  32. <!--munu¶}©l-¤£¥i§R°£!! -->
  33. <!--#include file="ads_menu.htm" -->
  34. <!--munuµ²§ô-¤£¥i§R°£!! -->

  35. <table style="padding:10px 10px 30px 10px;">
  36.   <tr>
  37.     <td width="20" style="border-left:1px #F8CE8F solid; height:550px;"></td>
  38.     <td align="left" valign="top" width="720">
  39. <div class="cont_div" >
  40.     <p class="cont_word_tit_p">
  41.     ºÞ²zªÌ-·|­û¸ê®ÆºÞ²z
  42.     </p>
  43.    <p class="cont_word_tit_p">
  44.     <form method="post">
  45.     <select name="topage">
  46.     <%
  47.     for i=1 to rs.pagecount
  48.                 if cint(i)<>cint(request("topage")) then
  49.                         response.Write "<option value="&i&">"
  50.                         response.Write "²Ä"&i&"­¶</option>"
  51.                 else
  52.                         response.Write "<option value=" &i&" selected>"
  53.                         response.Write "²Ä"&i&"­¶</option>"
  54.                 end if
  55.         next
  56.         %>
  57.     </select>
  58.     <input name="°e¥X" type="submit" value="¸õ­¶" />
  59.     </form>
  60.     </p>
  61. <table border="0" cellpadding="5" cellspacing="1" style="padding:0px; margin:0px; font-size:12px;">
  62.   <tr style="background-color: #9C5B1B;">
  63.     <td>½s¸¹</td>
  64.     <td>Name </td>
  65.     <td>Tel</td>
  66.     <td>Address</td>
  67.     <td>EMR Contact</td>
  68.     <td colspan="2" align="center">¸ê®Æ¾Þ§@</td>
  69.   </tr>
  70.   <%
  71.   do while rcount<rs.pagesize
  72.   %>
  73.     <tr onMouseOver="this.style.backgroundColor='#823311'" onMouseOut="this.style.backgroundColor=''" >
  74.                   <td style="border-bottom:1px dotted #999;" align="center"><%=rs.fields("mber_id").value%></td>
  75.         <td style="border-bottom:1px dotted #999;"><%=rs.fields("mber_sex").value%><br><%=rs.fields("mber_f_name").value%>&nbsp;<%=rs.fields("mber_l_name").value%> </td>
  76.         <td style="border-bottom:1px dotted #999;"><%=rs.fields("mber_tel").value%></td>
  77.         <td style="border-bottom:1px dotted #999;">
  78.           <%=rs.fields("mber_adds_1").value%><%=rs.fields("mber_adds_2").value%><%=rs.fields("mber_adds_3").value%><%=rs.fields("mber_adds_4").value%><%=rs.fields("mber_adds_5").value%><%=rs.fields("mber_adds_6").value%><%=rs.fields("mber_adds_7").value%>
  79.           <br><%=rs.fields("mber_mail").value%></td>
  80.         <td style="border-bottom:1px dotted #999;"><%=rs.fields("s_mber_sex").value%>.<%=rs.fields("s_mber_f_name").value%>&nbsp;<%=rs.fields("s_mber_l_name").value%><br><%=rs.fields("s_mber_tel").value%></td>
  81.         <td style="border-bottom:1px dotted #999;">­×§ï¸ê®Æ</td>
  82.         <td style="border-bottom:1px dotted #999;">§R°£¸ê®Æ</td>
  83.         </tr>
  84.        <%
  85.            rs.movenext
  86.            rcount=rcount+1
  87.            loop
  88.            %>
  89. </table>
  90. ¥Ø«e¸ê®Æ¦@¦³<%=mycount%>µ§¡@¥Ø«eÅã¥Ü²Ä<%=rs.absolutepage%>­¶¡@¦@¦³<%=rs.pagecount%>­¶¸ê®Æ
  91. </div>
  92. </td>
  93. </table>
  94.             



  95. <!--©³¹Ï³z¥Õ-¨ì¦¹µ²§ô--></div>

  96. </body>
  97. </html>
½Æ»s¥N½X
¹J¨ì·sªº°ÝÃD

µ{¦¡°õ¦æ¤§«á.¥i¥H¿ï¾Ü´«­¶
¤£¹L¦b²Ä¤@­¶ÂsÄý®É
¦bÅã¥Ü¥Ø«e­¶­±ªº¦a¤è·|Åܦ¨²Ä¤G­¶
¥Ñ©ó¸ê®Æ¥u¦³¤Qµ§
¦b²Ä¤G­¶ªº®É­Ô·|Åܦ¨-3­¶.

·í§Ú§ârs.pagesize§ï¦¨¨ä¥Lµ§¼Æ®É¨Ò¦prs.pagesize=3®É
¦b³Ì«á¤@­¶·|¥X²{¿ù»~°T®§
ADODB.Field ¿ù»~ '800a0bcd'
¥i¯à¬O BOF ©Î EOF ªº­È¬° True¡A©Î¥Ø«eªº¸ê®Æ¿ý¤w³Q§R°£¡C©Ò­n¨Dªº¾Þ§@»Ý­n¥Ø«eªº¸ê®Æ¿ý¡C
Free Style

·Ð½ÐºÞ²z­û¨ó§U.·P®¦
Free Style

TOP

¤j­P¤Wªº¼gªk¦p¤U
<%
'¤À­¶µ{¦¡
RS.PageSize=50
Page=CLng(Request.QueryString("Page"))
If Page>RS.PageCount Then Page=RS.PageCount End If
If Page="" or Page<1 Then
  Page=1
Else
  Page=Page
End If
If Not RS.EOF Then
   RS.AbsolutePage = Page
End If
%>

§A¦b±M¬ã¤@¤U
ASP«Ü¤[¨S¼g¤F~

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD