ASP列出表單通用語法

李亮寬

<%
        set conn=server.createobject("ADODB.connection")
        DBPath = Server.MapPath("資料庫檔名.mdb")
        conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
        sql="SELECT 資料表 WHERE id="& id &" and pw="& pw &"ORDER BY id DESC"
        set rs=conn.execute(sql)
                if not rs.eof then
                do while not rs.eof

%>

        <tr>
                <td><%=rs("id")%>　</td>
        </tr>
        
               
<%         
                rs.movenext
                loop
       End if
%>
        </table>