点击修改超链接，不执行修改操作（修改操作在本页执行）
<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>
<%
response.Write(sql)
response.End()
%>
<tr>