深圳升蓝软件
数据库开发 .Net技术  |  ASP技术 PHP技术 JSP技术 应用技术类   
Hiblue Software

心得分享


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

在 制 作 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
%>
       
Copyright © 2001-2008 Shenzhen Hiblue Software Team All rights reserved