心得分享

心得

在 这 询 问 了 不 少 问 题 ， 费 了 大 虾 们 不 少 时 间 来 为 我 解 答 ， 有 点 觉 得 自 己 没 什 么 贡 献 ， 现 借 着 刚 发 现 的 小 小 心 得 ， 在 这 贡 献 贡 献 ：

在 制 作 ASP 网 页 时 ， 常 有 的 是 把 Form POST 上 来 的 内 容 作 储 存 或 更 新 。 只 是 写 相 关 的 程 式 就 非 常 的 烦 人 了 。 我 在 制 作 毕 业 作 业 时 ， 无 意 中 发 现 了 以 下 这 方 式 来 减 少 编 程 。 虽 然 不 是 相 当 的 Flexible ， 希 望 能 够 抛 砖 引 玉 一 番 。 如 果 有 哪 位 大 虾 有 更 好 的 主 义 ， 欢 迎 提 出 ， 大 家 启 发 一 番 。 。 。 :P

在 使 用 前 有 个 必 需 注 意 的 事 项 ：
1。 在 FORM 中 使 用 的 Input Name 都 必 需 是 与 数 据 库 中 使 用 的 一 样

#########################################
Sample.asp
#########################################
<%
    '当 FORM POST 到 此 页 时 '
    If Request.Form("Submit") <> "" Then
        SQL = "Select * From myTable"
%>
<!--#include file="SaveForm.inc" -->
<%
    End If
%>

#################################################
SaveForm.inc
#################################################
<%  
    '## Module for saving Records ##'
    
    Set objRS = '你 的 数 据 库 连 接'
    
    If objRS.EOF Then
        objRS.AddNew
        Response.Write "<p><center>Saving record"
        For X = 1 to Request.Form.Count -1
            objRS(Request.Form.Key(x)) = Request.Form(x)
            Response.Write "."
        Next
        objRS.Update
        Response.Write "<p>Update Completed!"
    Else
        Response.Write "<center>Your Error Message Here!</center>"
    End If
    Response.End
%>