太過Eazy沒啥大腦寫法=  =|||

<%
set rs=Nothing

Set Conn = Server.CreateObject("ADODB.connection")
DBPath = Server.MapPath("../admin/sell.mdb")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From article"
rs.Open Sql, Conn, 1,1

ReDim arr_id(rs.RecordCount)