user_info_modi.asp

《学校机房作业管理系统》采用ASP+Aceesss+ ServU构架

        <td align="center"><a href="user_search.asp">查找用户</a><a href="sms_index.asp"></a><a href="admin_exercise_subject_add.asp"></a><a href="admin_news_index.asp"></a></td>
      </tr>
      <tr>
        <td align="center"><a href="user_student_list.asp">学生列表</a><a href="sms_mysend_list.asp"></a><a href="admin_exercise_subject_mylist.asp"></a><a href="admin_news_index.asp"></a></td>
      </tr>
      <tr>
        <td align="center"><a href="user_teacher_list.asp">教师列表</a><a href="sms_write.asp"></a><a href="admin_exercise_content_add.asp"></a><a href="admin_news_add.asp"></a></td>
      </tr>
      <tr>
        <td align="center"><a href="user_sort_list.asp"><font color="#FF0000">按类列表</font></a></td>
      </tr>
      <tr>
        <td align="center"><a href="admin_exercise_content_mylist.asp"></a><a href="user_our_class.asp" target="_self">查看本班同学信息</a><a href="admin_news_add.asp"></a></td>
      </tr>
      <tr>
        <td align="center"><a href="user_all_list.asp" target="_self">查看系统全部用户</a></td>
      </tr>
      <tr>
        <td align="center"><a href="admin_news_add.asp"></a></td>
      </tr>
    </table></td>
    <td width="84%" align="center" valign="middle"><form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
      <script>function showimage(){document.images.tus.src="icon/"+document.form1.icon.options[document.form1.icon.selectedIndex].value+".gif";}</script>
      <table width="750" border="1" align="center" cellpadding="5" cellspacing="3" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">胸卡编号:</td>
          <td><%=(modi.Fields.Item("studentnum").Value)%></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">姓名:</td>
          <td><%=(modi.Fields.Item("studentname").Value)%></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">所在专业:</td>
          <td><%=(modi.Fields.Item("Specia").Value)%></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">所在班级:</td>
          <td><%=(modi.Fields.Item("MasterClass").Value)%></td>
        </tr>
        <tr valign="baseline">
          <td align="right" valign="top" nowrap="nowrap">出生年月:</td>
          <td><input type="text" name="Birth" value="<%=(modi.Fields.Item("Birth").Value)%>" size="16" readonly="" />
            <a href="#"><img 
      src="images/time.gif" alt="点击这里，选择日期！" name="daysOfMonthPos" width="28" height="24" border="0" align="absmiddle" id="daysOfMonthPos" 
      onmouseup="toggleDatePicker('daysOfMonth','form1.Birth')" /></a>
            <span class="style2 style1">＊点左图选取时间，</span>格式为：2007-3-5
            <div id="daysOfMonth" style="POSITION: absolute; visibility: hidden; z-index: 0;"></div>
            <span class="style2 style1">
            <select name="SeeBirth" id="SeeBirth">
              <option value="0" <%If (Not isNull((modi.Fields.Item("SeeBirth").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeBirth").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
              <option value="1" <%If (Not isNull((modi.Fields.Item("SeeBirth").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeBirth").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
              <option value="3" <%If (Not isNull((modi.Fields.Item("SeeBirth").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeBirth").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
              <option value="4" <%If (Not isNull((modi.Fields.Item("SeeBirth").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeBirth").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
            </select>
            </span></td>
        </tr>
        <tr valign="baseline">
          <td align="right" valign="top" nowrap="nowrap">个人头像:</td>
          <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="icon/<%if request.cookies("icon")<>"" then%><%=request.cookies("icon")%><%else%><%= modi.Fields.Item("HeadTopic").Value %><%end if%>.gif" alt="当前头像" name="tus" id="tus" /></td>
              </tr>
              <tr>
                <td><select name="icon" onchange="showimage()">
                    <option value="<%if request.cookies("icon")<>"" then%><%=request.cookies("icon")%><%else%><%= modi.Fields.Item("HeadTopic").Value %><%end if%>" selected="selected">选择头像</option>
                    <%for i=1 to 12%>
                    <option value="b_w<%=i%>">女孩<%=i%></option>
                    <%next%>
                    <%for i=1 to 12%>
                    <option value="b_m<%=i%>">男孩<%=i%></option>
                    <%next%>
                </select></td>
              </tr>
          </table></td>
        </tr>
        
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">政治面貌:</td>
          <td><select name="Member" id="Member">
              <option value="共产党员" <%If (Not isNull((modi.Fields.Item("Member").Value))) Then If ("共产党员" = CStr((modi.Fields.Item("Member").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>共产党员</option>
              <option value="共青团员" <%If (Not isNull((modi.Fields.Item("Member").Value))) Then If ("共青团员" = CStr((modi.Fields.Item("Member").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>共青团员</option>
              <option value="人民群众" selected="selected" <%If (Not isNull((modi.Fields.Item("Member").Value))) Then If ("人民群众" = CStr((modi.Fields.Item("Member").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>人民群众</option>
            </select>
              <span class="style2 style1">
              <select name="SeeMember" id="SeeMember">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeMember").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeMember").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeMember").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeMember").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeMember").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeMember").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4" <%If (Not isNull((modi.Fields.Item("SeeMember").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeMember").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">校园IC卡号码:</td>
          <td><input name="ICNum" type="text" id="ICNum" value="<%=(modi.Fields.Item("ICNum").Value)%>" size="32" />
              <span class="style2 style1">
              <select name="SeeICNum" id="SeeICNum">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeICNum").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeICNum").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeICNum").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeICNum").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeICNum").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeICNum").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4" <%If (Not isNull((modi.Fields.Item("SeeICNum").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeICNum").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">原毕业学校:</td>
          <td><input name="GraduateSchool" type="text" id="GraduateSchool" value="<%=(modi.Fields.Item("GraduateSchool").Value)%>" size="32" />
              <span class="style2 style1">
              <select name="SeeGraduateSchool" id="SeeGraduateSchool">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeGraduateSchool").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeGraduateSchool").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeGraduateSchool").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeGraduateSchool").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeGraduateSchool").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeGraduateSchool").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4" <%If (Not isNull((modi.Fields.Item("SeeGraduateSchool").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeGraduateSchool").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">所在宿舍:</td>
          <td><input name="MasterDorm" type="text" id="MasterDorm" value="<%=(modi.Fields.Item("MasterDorm").Value)%>" size="32" />
              <span class="style2 style1">
              <select name="SeeMasterDorm" id="SeeMasterDorm">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeMasterDorm").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeMasterDorm").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeMasterDorm").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeMasterDorm").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeMasterDorm").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeMasterDorm").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4" <%If (Not isNull((modi.Fields.Item("SeeMasterDorm").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeMasterDorm").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">宿舍电话号码:</td>
          <td><input name="DormTelphone" type="text" id="DormTelphone" value="<%=(modi.Fields.Item("DormTelphone").Value)%>" size="32" />
              <span class="style2 style1">
              <select name="SeeDormTelphone" id="SeeDormTelphone">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeDormTelphone").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeDormTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeDormTelphone").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeDormTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeDormTelphone").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeDormTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4" <%If (Not isNull((modi.Fields.Item("SeeDormTelphone").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeDormTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">家长姓名:</td>
          <td><input type="text" name="ParentsName" value="<%=(modi.Fields.Item("ParentsName").Value)%>" size="32" />
              <span class="style2 style1">
              <select name="SeeParentsName" id="SeeParentsName">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeParentsName").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeParentsName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeParentsName").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeParentsName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeParentsName").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeParentsName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeParentsName").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeParentsName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span> </td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">家庭住址邮编:</td>
          <td><input type="text" name="HomeZipcode" value="<%=(modi.Fields.Item("HomeZipcode").Value)%>" size="32" />
              <span class="style2 style1">
              <select name="SeeHomeZipcode" id="SeeHomeZipcode">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeHomeZipcode").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeHomeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeHomeZipcode").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeHomeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeHomeZipcode").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeHomeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeHomeZipcode").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeHomeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span> </td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">家庭详细住址:</td>
          <td><input type="text" name="HomeAddress" value="<%=(modi.Fields.Item("HomeAddress").Value)%>" size="50" />
              <span class="style2 style1">
              <select name="SeeHomeAddress" id="SeeHomeAddress">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeHomeAddress").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeHomeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeHomeAddress").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeHomeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeHomeAddress").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeHomeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeHomeAddress").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeHomeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span> </td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">家庭电话:</td>
          <td><input type="text" name="HomeTelphone" value="<%=(modi.Fields.Item("HomeTelphone").Value)%>" size="50" />
              <span class="style2 style1">
              <select name="SeeHomeTelphone" id="SeeHomeTelphone">
                <option value="0" <%If (Not isNull((modi.Fields.Item("SeeHomeTelphone").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeHomeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
                <option value="1" <%If (Not isNull((modi.Fields.Item("SeeHomeTelphone").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeHomeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班学生查看这内容</option>
                <option value="3" <%If (Not isNull((modi.Fields.Item("SeeHomeTelphone").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeHomeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
                <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeHomeTelphone").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeHomeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
              </select>
            </span> </td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">个人联系电话:</td>