太過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)