edit.asp

学生学籍信息 这是一个针对学生学籍信息的管理软件

          <option value="30" <%If (Not isNull((updateset.Fields.Item("birthday").Value))) Then If ("30" = CStr((updateset.Fields.Item("birthday").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>30</option>
          <option value="31" <%If (Not isNull((updateset.Fields.Item("birthday").Value))) Then If ("31" = CStr((updateset.Fields.Item("birthday").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>31</option>
          <%
While (NOT updateset.EOF)
%>
          <option value="<%=(updateset.Fields.Item("birthday").Value)%>" <%If (Not isNull((updateset.Fields.Item("birthday").Value))) Then If (CStr(updateset.Fields.Item("birthday").Value) = CStr((updateset.Fields.Item("birthday").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(updateset.Fields.Item("birthday").Value)%></option>
          <%
  updateset.MoveNext()
Wend
If (updateset.CursorType > 0) Then
  updateset.MoveFirst
Else
  updateset.Requery
End If
%>
        </select>
        日</td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">政治面貌:</td>
      <td> <input <%If (CStr((updateset.Fields.Item("politics").Value)) = CStr("党员")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="politics" value="党员">
        党员 
        <input <%If (CStr((updateset.Fields.Item("politics").Value)) = CStr("团员")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="politics" value="团员">
        团员 
        <input <%If (CStr((updateset.Fields.Item("politics").Value)) = CStr("民主党派")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="politics" value="民主党派">
        民主党派 
        <input <%If (CStr((updateset.Fields.Item("politics").Value)) = CStr("群众")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="politics" value="群众">
        群众 </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">家庭所在地:</td>
      <td> <select name="privince" id="privince">
          <option value="（未知）" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("（未知）" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>（未知）</option>
          <option value="黑龙江" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("黑龙江" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>黑龙江</option>
          <option value="辽宁" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("辽宁" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>辽宁</option>
          <option value="吉林" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("吉林" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>吉林</option>
          <option value="北京" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("北京" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>北京</option>
          <option value="天津" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("天津" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>天津</option>
          <option value="上海" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("上海" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>上海</option>
          <option value="重庆" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("重庆" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>重庆</option>
          <option value="山东" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("山东" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>山东</option>
          <option value="山西" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("山西" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>山西</option>
          <option value="河南" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("河南" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>河南</option>
          <option value="河北" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("河北" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>河北</option>
          <option value="湖南" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("湖南" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>湖南</option>
          <option value="湖北" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("湖北" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>湖北</option>
          <option value="陕西" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("陕西" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>陕西</option>
          <option value="浙江" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("浙江" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>浙江</option>
          <option value="福建" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("福建" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>福建</option>
          <option value="云南" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("云南" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>云南</option>
          <option value="江西" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("江西" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>江西</option>
          <option value="贵州" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("贵州" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>贵州</option>
          <option value="广西" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("广西" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>广西</option>
          <option value="广东" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("广东" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>广东</option>
          <option value="四川" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("四川" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>四川</option>
          <option value="江苏" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("江苏" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>江苏</option>
          <option value="内蒙古" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("内蒙古" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>内蒙古</option>
          <option value="西藏" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("西藏" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>西藏</option>
          <option value="宁夏" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("宁夏" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>宁夏</option>
          <option value="甘肃" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("甘肃" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>甘肃</option>
          <option value="台湾" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("台湾" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>台湾</option>
          <option value="香港" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("香港" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>香港</option>
          <option value="澳门" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("澳门" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>澳门</option>
          <option value="海南" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("海南" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>海南</option>
          <option value="青海" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("青海" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>青海</option>
          <option value="新疆" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If ("新疆" = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>新疆</option>
          <%
While (NOT updateset.EOF)
%>
          <option value="<%=(updateset.Fields.Item("privince").Value)%>" <%If (Not isNull((updateset.Fields.Item("privince").Value))) Then If (CStr(updateset.Fields.Item("privince").Value) = CStr((updateset.Fields.Item("privince").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(updateset.Fields.Item("privince").Value)%></option>
          <%
  updateset.MoveNext()
Wend
If (updateset.CursorType > 0) Then
  updateset.MoveFirst
Else
  updateset.Requery
End If
%>
        </select>
        省 
        <input type="text" name="homeaddress" value="<%=(updateset.Fields.Item("homeaddress").Value)%>" size="20">
        市（镇） </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">档案情况:</td>
      <td> <input <%If (CStr((updateset.Fields.Item("fileyn").Value)) = CStr("有")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="fileyn" value="有">
        有 
        <input <%If (CStr((updateset.Fields.Item("fileyn").Value)) = CStr("无")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="fileyn" value="无">
        无</td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">奖惩记录:</td>
      <td><input <%If (CStr((updateset.Fields.Item("awardyn").Value)) = CStr("有")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="awardyn" value="有">
        有 
        <input <%If (CStr((updateset.Fields.Item("awardyn").Value)) = CStr("无")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="awardyn" value="无">
        无 </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">奖惩详细信息:</td>
      <td> <textarea name="awardinfo" cols="40" rows="4" id="awardinfo"><%=(updateset.Fields.Item("awardinfo").Value)%></textarea></td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">休、复、停、退学记录:</td>
      <td> <input <%If (CStr((updateset.Fields.Item("retireyn").Value)) = CStr("有")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="retireyn" value="有">
        有 
        <input <%If (CStr((updateset.Fields.Item("retireyn").Value)) = CStr("无")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="retireyn" value="无">
        无 </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">休、复、停、退学详细信息:</td>
      <td> <textarea name="retireinfo" cols="40" rows="4" id="retireinfo"><%=(updateset.Fields.Item("retireinfo").Value)%></textarea> 
      </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">备注:</td>
      <td> <textarea name="otherinfo" cols="40" rows="4" id="otherinfo"><%=(updateset.Fields.Item("otherinfo").Value)%></textarea> 
      </td>
    </tr>
    <tr valign="baseline"> 
      <td colspan="2" align="right" nowrap><br> <div align="center"> 
          <input type="submit" value="修改">
        </div></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1">
  <input type="hidden" name="MM_recordId" value="<%= updateset.Fields.Item("ID").Value %>">
</form>
<p>&nbsp;</p>
</body>
</html>
<%
updateset.Close()
Set updateset = Nothing
%>