麻烦版主帮我看看那段代码，为什么总是提交的时候不成功。 - 编程论坛

麻烦版主帮我看看那段代码，为什么总是提交的时候不成功。

麻烦版主帮我看看那段代码，为什么总是提交的时候不成功。谢谢
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>

<script language="javascript">
<%
   '判断是否提交
   IF Request("IsSubmit")="True" Then
      Dim rsAct,ygh',BH变量生命
      Set rsAct=Server.CreateObject("ADODB.RecordSet")'创建记录集
      Select Case Request("Action")
             Case "Add"'添加操作

                  '获得最新的编号
                  ygh=request.QueryString("id")
                 Dim rsMaxID
                  Set rsMaxID=conn.Execute("select Max(编号) from pxinfo")
                  BH=rsMaxID.Fields(0).Value+1
                  rsMaxID.Close
                  Set rsMaxID=Nothing
                  '添加代码
                  rsAct.Open "select * from pxinfo",conn,1,3
                  rsAct.AddNew
                  rsAct("编号")=BH
                  rsAct("员工号")=ygh
                  rsAct("培训时间")=Request("pxsj")
                  rsAct("培训内容")=Request("pxnr")
                  rsAct("培训地点")=Request("pxdd")
                  rsAct("培训结果")=Request("pxjg")
                  rsAct.Update
                  Response.Write "alert('添加成功');"
             Case "Edit"'修改操作

                  '修改代码
                  rsAct.Open "select * from pxinfo Where 编号='"&request("BH")&"'",conn,1,3
                  IF Not rsAct.EOF Then
                    rsAct("培训时间")=Request("pxsj")
                  rsAct("培训内容")=Request("pxnr")
                  rsAct("培训地点")=Request("pxdd")
                  rsAct("培训结果")=Request("pxjg")
                      rsAct.Update
                      Response.Write "alert('修改成功');"
                  Else
                      Response.Write "alert('修改失败');"
                  End IF
      End Select
   End IF
%>
function GotoPage(Url)
{
   Url=Url.replace("{$Page}",this.PGNumber.value)
   self.location=Url;
}
</script>
<%
       dim ActionCmd
       if request("Action")="" then
              ActionCmd="Add"
        else
             ActionCmd=request("Action")
     end if
%>
</head>
<body>
<p align="center"><font color="#FF0000" size="6" face="仿宋_GB2312"><strong>添加
  员工计算机培训记录</strong></font></p>
<div align="center">
  <table width="907" style="border:1px;" border="1" cellpadding="0" cellspacing="0" bgcolor="#00FFFF">
    
    <tr bordercolor="#333333" bgcolor="#99FFCC">
      <td width="163" valign="center">
        <div align="center" class="style1"><font color="#3366FF" size="5">培训时间</font></div></td>
      <td width="170" valign="center">
        <div align="center" class="style1"><font color="#3366FF" size="5">培训内容</font></div></td>
      <td width="113" valign="center">
        <div align="center" class="style1"><font color="#3366FF" size="5">培训地点</font></div></td>
      <td width="127" valign="center">
        <div align="center" class="style1"><font color="#3366FF" size="5">培训结果</font></div></td>
      <td width="121" valign="center">
        <div align="center" class="style1"><font color="#3366FF" size="5">操作</font></div></td>
    </tr>
    <%
           Dim rspage,str
           set rspage=server.CreateObject("adodb.recordset")
           str="select * from pxinfo where 员工号='"&request("id")&"'"
            rspage.open str,conn,2,4
           do while not rspage.eof
                   response.Write("<tr>")
                         response.Write("<td align=center>"&rspage("培训时间")&"</td>")
                         response.Write("<td align=center>"&rspage("培训内容")&"</td>")
                         response.Write("<td align=center>"&rspage("培训地点")&"</td>")
                         response.Write("<td align=center>"&rspage("培训结果")&"</td>")
                         response.Write("<td align=center><a href=../admin/admin_bjpxjl.asp?Action=Edit&ID="&rspage("员工号")&"&BH="&rspage("编号")&" target=_self>编辑</a></td>")
                  response.Write("</tr>")
            rspage.movenext
            loop
    %>
  </table>
  </div>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>  </p>
<div align="center">
<table width="907" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="907" height="369"><div align="center">
<form action="../admin/admin_tjpxjl.asp?Action=<%=ActionCmd%>&ID=<%=Request("id")%> &BH=<%=request("BH")%> method="post" name="form1" target="_self">
<%
   '操作判断
   Dim pxsj,pxnr,pxdd,pxjg
   '变量初始化
   ygh=-1
   pxsj=""
   pxnr=""
   pxdd=""
   pxsj=""
   '判断当前是否为修改操作
   IF Request("Action")="Edit" Then
      '读取修改的内容
      Dim rsRead
      Set rsRead=conn.Execute("select * from pxinfo Where 编号="&Request("BH"))
      IF Not rsRead.EOF Then'判断是否读取到内容
         ygh=rsRead("员工号")
         pxsj=rsRead("培训时间")
         pxnr=rsRead("培训内容")
         pxdd=rsRead("培训地点")
         pxjg=rsRead("培训结果")
      End IF
      rsRead.Close
      Set rsRead=Nothing
   End IF
%>
<table width="392" border="1" cellpadding="0" cellspacing="0">
  
  <tr bordercolor="#333333">
    <td height="30" valign="center"> <div align="center" class="style8"><font color="#3366FF" size="4">培训时间</font></div></td>
    <td valign="center"> <div align="center">
        <input type="text" name="pxsj" value="<%=pxsj%>">
      </div></td>
  </tr>
  <tr bordercolor="#333333">
    <td height="21" valign="center"> <div align="center" class="style5 style9"><font color="#3366FF" size="4">培训内容</font></div></td>
    <td valign="center"> <div align="center">
        <input type="text" name="pxnr" value="<%=pxnr%>">
      </div></td>
  </tr>
  <tr bordercolor="#333333">
    <td height="26" valign="center"> <div align="center" class="style8"><font color="#3366FF" size="4">培训地点</font></div></td>
    <td valign="center"> <div align="center">
        <input type="text" name="pxdd" value="<%=pxdd%>" >
      </div></td>
  </tr>
  <tr bordercolor="#333333">
    <td height="21" valign="center"> <div align="center" class="style8"><font color="#3366FF" size="4">培训结果</font></div></td>
    <td valign="center"> <div align="center">
        <input type="text" name="pxjg" value="<%=pxjg%>" >
      </div></td>
  </tr>
  <tr bordercolor="#333333">
    <td height="36" colspan="2" valign="top"> <p align="center"> </p>
      <p align="center">
        <input type="hidden" name="IsSubmit" value="True">
             
        <input type="submit" name="Submit" value="提交">
                 
        <input type="reset" name="ClearForm" value="重填">
            </p></td>
  </tr>
</table>
</form>
</table>
</div>
</body>
</html>