不走修改是怎么回事啊
点击修改超链接，不执行修改操作（修改操作在本页执行）
<form   name= "myform "   method= "Post "   action= "mgrzhaopin_show_new.asp?action=modify   ">
……
<a   href= "mgrzhaopin_show_new.asp?Action=modify&id= <%=rs( "id ")%> "> 修改 </a>
<%
action=request   ( "Action ")
select   case   action
case   "Modifysave "   call   savemodify()
case   else     call   showContent
end   select
%>
sub   Modify()
dim   ID
ID=trim(Request( "ID "))
if   ID= " "   then
FoundErr=1
ErrMsg=ErrMsg   &   " <br> <li> 请指定要修改的招聘信息 </li> "
exit   sub
else
ID=Clng(ID)
end   if
sql= "select   *   from   select_info   where   parent_id=0 "
Set   rs=Server.CreateObject( "Adodb.RecordSet ")
rs.Open   sql,conn,1,3
%>
<form   method= "post "   action= "mgrzhaopin_show_new.asp "   name= "form1 "   onSubmit= "javascript:return   checkadd(); ">
    <table   width= "47% "   border= "0 "   align= "center "   cellpadding= "2 "   cellspacing= "1 "   class= "border "   >
        <tr   bgcolor= "#6666FF "   class= "title ">  
            <td   height= "22 "   colspan= "2 ">   <div   align= "center "> <font   size= "2 "> <strong> 修   改   招   聘   信   息 </strong> </font> </div> </td>
        </tr>
        <tr>  
            <td   width= "16% "   class= "tdbg "> <strong> 职       位： </strong> </td>
            <td   width= "84% "   class= "tdbg "> <%=rs( "zhiwei ")%>   <input   name= "ID "   type= "hidden "   value= " <%=rs( "ID ")%> "> </td>
        </tr>
        <tr>  
            <td   width= "16% "   class= "tdbg "> <strong> 所属部门： </strong> </td>
            <td   width= "84% "   class= "tdbg ">   <select   name= "bumen "   id= "bumen ">      
  <%   do   while   not   rs.eof   %>
    <option   value= " <%=rs( "select_value ")%> "> <%=rs( "select_value ")%> </option>
    <%
            rs.movenext
    loop
    rs.close
    set   rs=nothing  
      %>
    </select>             </td>
        </tr>