終於完成 myASP 的應用程式產生器之一 : 顯示表單

解決綑綁排序問題後, 應用程式產生器第一部之 "show_table" 功能就大功告成了, 花了一個星期邊寫邊改, 打造出來的東西與當初腦中的構想大致符合. 造輪子的苦工雖然耗時, 但是對於以後可以加速開發應用系統, 那可就非常值得了, 更何況也可藉此機會整理 JS 與 XHTML 的筆記.

製作這樣的程式碼只要三步驟勾選, 不出1分鐘就可以嵌入 myASP 應用程式模組裡面, 這在以前可能要花我至少半個小時去舊作品尋找, 修改, 測試. 下面就是程式所產生的程式碼 :

%>

<fieldset style="margin:5px;">

  <legend align="left"><B>【Fieldset標題】</B></legend>

  <div style="margin:5px;">

    <table class="table_module_body" style="margin:3px;width:98%;" cellpadding="3">

      <caption align="left">表格標題</caption>

      <tr>

        <td align="center" class="table_cell_title">編輯</td>

        <td align="center" class="table_cell_title">欄位標題1</td>

        <td align="center" class="table_cell_title">欄位標題4</td>

        <td align="center" class="table_cell_title">欄位標題3</td>

        <td align="center" class="table_cell_title">欄位標題2</td>

        <td align="center" class="table_cell_title">欄位標題0</td>

      </tr>

<%

  SQL="SELECT * FROM APP_settings";

  RS=aconn.Execute(SQL);

  if (RS.EOF) {

%>

      <tr>

        <td colspan="6">目前資料表內尚無資料!</td>

      </tr>

<%

  var n=0;

  while (!RS.EOF) {

%>

      <tr>

        <td align="center" class="table_cell_content" width="30">

          <a href="admin.asp?op=APP&function=edit_APP_settings&" title="編輯">

            <img src="sys_images/edit1.gif" border="0" width="15" height="15">

          </a>

        </td>

        <td align="left" class="table_cell_content"><%=RS("max_tab").Value%></td>

        <td align="left" class="table_cell_content"><%=RS("version").Value%></td>

        <td align="left" class="table_cell_content"><%=RS("system_name").Value%></td>

        <td align="left" class="table_cell_content"><%=RS("session_timeout").Value%></td>

        <td align="left" class="table_cell_content"><%=RS("install_date").Value%></td>

      </tr>

<%

        ++n;

        RS.MoveNext();

        }

  RS.Close();

  RS=null;

%>

    </table>

    <div style="text-align:center;">顯示紀錄共有<%=n%> 筆</div>

  </div>

</fieldset>

<script type="text/javascript">

  function script1() {

    }

</script>

<%