目的：有些表单自定义字段是前台客户提交的，有些字段是后台回复的（前台可以不让这个字段显示出来），现在的后台只能回复一个字段，简单修改，可回复多个字段，前台可以通过某一字段的值，查询到该条表单的全部信息，包括后台回复的字段（查询方法大家可以搜一下）。在这里只是说明修改回复多个字段的方法。

修改admin/form.asp:(需要修改两处)

Sub Replay()
   on error resume next
   Dim FormID:FormID=KS.ChkClng(KS.G("FormID"))
   Dim ID:ID=KS.ChkClng(KS.G("id"))
   Dim TableName:TableName=LFCls.GetSingleFieldValue("Select TableName From KS_Form Where ID=" & FormID)
   Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
   RS.Open "Select * From " & TableName &" Where ID=" & ID,conn,1,1
   If RS.Eof Then
    response.end
   End If
         %>
   <iframe src="about:blank" style="display:none" name="hiddenframe"></iframe>
   <form action="KS.Form.asp?action=replaysave&formid=<%=formid%>&id=<%=id%>" method="post" name="myform" target="hiddenframe">
    <br>
    <div style="margin:6px;text-align:center;font-weight:bold;color:red">查看回复</div>
   
          <table width="99%" align='center' border='0' cellpadding='1'  cellspacing='1' class='ctable'>
  <tr>
    <td width="15%">注文票番号:</td>
    <td width="35%"><%=rs("id")%></td>
    <td width="20%"></td>
    <td width="30%"><%=rs("AddDate")%></td>
  </tr>
  <tr>
    <td>氏　　名:</td>
    <td><input type="text" class="upfile" style="width:100px" name="KS_dd_id" value="<%=rs("KS_dd_id")%>" />
<font  color="red"> * </font></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>電話番号:</td>
    <td><input type="text" class="upfile" style="width:100px" name="KS_dd_tel" value="<%=rs("KS_dd_tel")%>"><font color="red"> * </font></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>

  <tr>
    <td>E_mail：</td>
    <td><input type="text" class="upfile" style="width:100px" name="KS_dd_email" value="<%=rs("KS_dd_email")%>"><font color="red"> * </font></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>

.......

Sub ReplaySave()
   Dim FormID:FormID=KS.ChkClng(KS.G("FormID"))
   Dim ID:ID=KS.ChkClng(KS.G("id"))
   Dim TableName:TableName=LFCls.GetSingleFieldValue("Select TableName From KS_Form Where ID=" & FormID)
   Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
   RS.Open "Select * From " & TableName &" Where ID=" & ID,conn,1,3
         RS("KS_dd_id")=Request.Form("KS_dd_id")
   RS("KS_dd_tel")=Request.Form("KS_dd_tel")
   RS("KS_dd_email")=Request.Form("KS_dd_email")

。。。。。

红色部分为修改过的，大家对比看一下就会明白。