admin_teacher_modi.asp

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

    <tr valign="baseline">
      <td 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 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 align="right">个人联系电话:</td>
      <td><input type="text" name="PersonalTelphone" value="<%=(modi.Fields.Item("PersonalTelphone").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeePersonalTelphone" id="SeePersonalTelphone">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeePersonalTelphone").Value))) Then If ("0" = CStr((modi.Fields.Item("SeePersonalTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeePersonalTelphone").Value))) Then If ("1" = CStr((modi.Fields.Item("SeePersonalTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeePersonalTelphone").Value))) Then If ("3" = CStr((modi.Fields.Item("SeePersonalTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeePersonalTelphone").Value))) Then If ("4" = CStr((modi.Fields.Item("SeePersonalTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">电子邮箱:</td>
      <td><input type="text" name="Email" value="<%=(modi.Fields.Item("Email").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeeEmail" id="SeeEmail">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeeEmail").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeEmail").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeeEmail").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeEmail").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeeEmail").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeEmail").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeEmail").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeEmail").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">QQ:</td>
      <td><input type="text" name="QQ" value="<%=(modi.Fields.Item("QQ").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeeQQ" id="SeeQQ">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeeQQ").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeQQ").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeeQQ").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeQQ").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeeQQ").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeQQ").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeQQ").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeQQ").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">个人网站:</td>
      <td><input type="text" name="HomePages" value="<%=(modi.Fields.Item("HomePages").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeeHomePages" id="SeeHomePages">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeeHomePages").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeHomePages").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeeHomePages").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeHomePages").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeeHomePages").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeHomePages").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeHomePages").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeHomePages").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">工作单位名称:</td>
      <td><input type="text" name="OfficeName" value="<%=(modi.Fields.Item("OfficeName").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeeOfficeName" id="SeeOfficeName">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeeOfficeName").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeOfficeName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeeOfficeName").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeOfficeName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeeOfficeName").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeOfficeName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeOfficeName").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeOfficeName").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">工作单位电话:</td>
      <td><input type="text" name="OfficeTelphone" value="<%=(modi.Fields.Item("OfficeTelphone").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeeOfficeTelphone" id="SeeOfficeTelphone">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeeOfficeTelphone").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeOfficeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeeOfficeTelphone").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeOfficeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeeOfficeTelphone").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeOfficeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeOfficeTelphone").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeOfficeTelphone").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">工作单位邮编:</td>
      <td><input type="text" name="OfficeZipcode" value="<%=(modi.Fields.Item("OfficeZipcode").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeeOfficeZipcode" id="SeeOfficeZipcode">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeeOfficeZipcode").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeOfficeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeeOfficeZipcode").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeOfficeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeeOfficeZipcode").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeOfficeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeOfficeZipcode").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeOfficeZipcode").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">工作单位详细地址:</td>
      <td><input type="text" name="OfficeAddress" value="<%=(modi.Fields.Item("OfficeAddress").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeeOfficeAddress" id="SeeOfficeAddress">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeeOfficeAddress").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeOfficeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeeOfficeAddress").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeOfficeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeeOfficeAddress").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeOfficeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeOfficeAddress").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeOfficeAddress").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">所做工作内容:</td>
      <td><input type="text" name="Post" value="<%=(modi.Fields.Item("Post").Value)%>" size="50">
          <span class="style2 style1">
          <select name="SeePost" id="SeePost">
            <option value="0" <%If (Not isNull((modi.Fields.Item("SeePost").Value))) Then If ("0" = CStr((modi.Fields.Item("SeePost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←任何人都可以查看这内容</option>
            <option value="1" <%If (Not isNull((modi.Fields.Item("SeePost").Value))) Then If ("1" = CStr((modi.Fields.Item("SeePost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供同班教师查看这内容</option>
            <option value="3" <%If (Not isNull((modi.Fields.Item("SeePost").Value))) Then If ("3" = CStr((modi.Fields.Item("SeePost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←只供好友查看这内容</option>
            <option value="4"  <%If (Not isNull((modi.Fields.Item("SeePost").Value))) Then If ("4" = CStr((modi.Fields.Item("SeePost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>←不给任何人查看这内容</option>
          </select>
        </span> </td>
    </tr>
    <tr>
      <td rowspan="2" align="right" valign="top" nowrap>个人简介:</td>
      <td valign="top"><textarea name="Introduction" cols="68" rows="7"><%=(modi.Fields.Item("Introduction").Value)%></textarea>
      </td>
    </tr>
    <tr>
      <td valign="top"><span class="style2 style1">
        <select name="SeeIntroduction" id="SeeIntroduction">
          <option value="0" <%If (Not isNull((modi.Fields.Item("SeeIntroduction").Value))) Then If ("0" = CStr((modi.Fields.Item("SeeIntroduction").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>↑任何人都可以查看这内容</option>
          <option value="1" <%If (Not isNull((modi.Fields.Item("SeeIntroduction").Value))) Then If ("1" = CStr((modi.Fields.Item("SeeIntroduction").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>↑只供同班教师查看这内容</option>
          <option value="3" <%If (Not isNull((modi.Fields.Item("SeeIntroduction").Value))) Then If ("3" = CStr((modi.Fields.Item("SeeIntroduction").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>↑只供好友查看这内容</option>
          <option value="4"  <%If (Not isNull((modi.Fields.Item("SeeIntroduction").Value))) Then If ("4" = CStr((modi.Fields.Item("SeeIntroduction").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>↑不给任何人查看这内容</option>
        </select>
        ＊</span>可以写一些关于个人的经历、特长、梦想、思想等。</td>
    </tr>
    
    <tr valign="baseline"> 
      <td nowrap align="right">&nbsp;</td>
      <td><div align="right"> 
          <input type="submit" value="提交修改信息">
        </div></td>
    </tr>
  </table>
  
  
<input type="hidden" name="MM_recordId" value="<%= modi.Fields.Item("userid").Value %>">
<input type="hidden" name="MM_update" value="form1">
</form>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
modi.Close()
Set modi = Nothing
%>