<span class="style45">
-
ตั้งค่า conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("sap_mis.mdb")
conn.Open "driver={ไดรเวอร์ Microsoft Access (*.mdb)};dbq=" &
ชุด DBPath rs = server.createobject("adodb.recordset")
sql = "เลือก sap_adon_record.* จากลำดับ sap_adon_record โดย s_id desc"
rs.open sql, conn, 1, 1
-
</span>
<table width="98%" height="10" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#336699" bordercolordark="#FFFFFF" class="style45" >
<%ถ้า rs.EOF แล้ว%>
<tr>
<td align="center"><span style="color: #339933"><a href="add.asp">系统中暂时没有记录，请点击此处添加！</a></span>
</td>
</tr>
<%อื่น%>
<tr>
<td align="center" bgcolor="#f000ff" class="style45">111</td>
<td align="center" bgcolor="#f000ff" class="style45">222</td>
<td align="center" bgcolor="#f000ff" class="style45">333</td>
<td align="center" bgcolor="#f000ff" class="style45">444</td>
<td align="center" bgcolor="#f000ff" class="style45">555</td>
<td align="center" bgcolor="#f000ff" class="style45">666</td>
<td align="center" bgcolor="#f000ff" class="style45">777</td>
</tr>
-
โชว์ดัม=20
Totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=clng(request.querystring("page"))
ถ้า requestpage="" หรือ requestpage=0 แล้ว
คำขอหน้า=1
สิ้นสุดถ้า
ถ้า resquestpage>maxpage แล้ว
resquestpage=maxpage
สิ้นสุดถ้า
ไม่ใช่ requestpage=1 แล้ว
rs.move (คำขอหน้า-1)*rs.pagesize
สิ้นสุดถ้า
สำหรับ i=1 ถึง rs.pagesize และไม่ใช่ rs.bof%>
<tr>
<td align="center" class="style45"><a href='show.asp?s_id=<%=rs("s_id")%>' target="_blank"><%=rs("prname" )%></a></td>
<td align="center" class="style45"><%=rs("trscod")%></td>
<td align="center" class="style45"><%=rs("crname")%></td>
<td align="center" class="style45"><%=rs("crdate")%></td>
<td align="center" class="style45"><%=rs("prtype")%></td>
<td align="center" class="style45"><%=rs("fction")%></td>
<td align="center" class="style45"><a href='edit.asp?s_id=<%=rs("s_id")%>'>编辑</a></td>
</tr>
-
rs.movenext
ถ้า rs.eof ให้ออกเพื่อ
ต่อไป
-
</ตาราง>
<table width="98%" height="10" align="center" border="1" bordercolor="#336699" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" >
<tr>
<td align="center" class="style45"><a href=add.asp>添加记录</a> | <a href=readExcel.asp target="_self">EXCEL文件批量导入</a> | <a href=srch.asp>高级查询</a>
</td>
</tr>
<tr>
<td align=center>
<span class="style45">
-
ถ้า requestpage-1 mod 10=0 แล้ว
p=(หน้าคำขอ-1) 10
อื่น
p=(หน้าคำขอ-1) 10
สิ้นสุดถ้า
ถ้า requestpage=1 แล้ว
response.write "<font face=webdings color=""#FF0000"">9</font>"
อื่น
response.write "<a href=index.asp?page=1 title=首页><font face=webdings>9</font></a>"
สิ้นสุดถ้า
ถ้า p*10>0 แล้ว response.write "<a href=index.asp?page="&p*10&" title=上十页><font face=webdings>7</font></a>"
ตอบกลับเขียน "<b>"
สำหรับ ii=p*10+1 ถึง P*10+10
ถ้า ii=หน้าคำขอแล้ว
response.write "<font color=""#FF0000"">"&ii&"</font> "
อื่น
response.write "<a href=index.asp?page="&ii&">"&ii&"</a> "
สิ้นสุดถ้า
ถ้า ii=maxpage ให้ออกเพื่อ
ต่อไป
ตอบกลับเขียน "</b>"
ถ้า ii<maxpage แล้ว response.write "<a href=index.asp?page="&ii&" title=下十页><font face=webdings>8</font></a>"
ถ้า requestpage=maxpage แล้ว
response.write "<font face=webdings color=""#FF0000"">:</font> "
อื่น
response.write "<a href=index.asp?page="&maxpage&" title=尾页><font face=webdings>:</font></a>"
สิ้นสุดถ้า
response.write" 总共有"&maxpage&"页 共"&totalrecord&"个记录 每页"&shownum&"个"
สิ้นสุดถ้า
-
</span></td>
</tr>
</ตาราง>
<span class="style45">
-
฿.ปิด
ตั้งค่า rs = ไม่มีเลย
เชื่อมต่อปิด
ตั้ง conn = ไม่มีอะไร
-