user_info_modi.asp

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

          <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="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="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="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="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="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="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="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="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="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="nowrap" align="right">&nbsp;</td>
          <td><div align="right">
              <input name="submit" type="submit" value="提交修改信息" />
          </div></td>
        </tr>
      </table>
      <input type="hidden" name="MM_update" value="form1" />
      <input type="hidden" name="MM_recordId" value="<%= modi.Fields.Item("studentnum").Value %>" />
    </form></td>
	<script language=JavaScript1.2>

// 一个简单的测试是否IE浏览器的表达式
isIE = (document.all ? true : false);

// 得到IE中各元素真正的位移量，即使这个元素在一个表格中
function getIEPosX(elt) { return getIEPos(elt,"Left"); }
function getIEPosY(elt) { return getIEPos(elt,"Top"); }
function getIEPos(elt,which) {
 iPos = 0
 while (elt!=null) {
  iPos += elt["offset" + which]
  elt = elt.offsetParent
 }
 return iPos
}

function getXBrowserRef(eltname) {
 return (isIE ? document.all[eltname].style : document.layers[eltname]);
}

function hideElement(eltname) { getXBrowserRef(eltname).visibility = 'hidden'; }

// 按不同的浏览器进行处理元件的位置
function moveBy(elt,deltaX,deltaY) {
 if (isIE) {
  elt.left = elt.pixelLeft + deltaX;
  elt.top = elt.pixelTop + deltaY;
 } else {
  elt.left += deltaX;
  elt.top += deltaY;
 }
}

function toggleVisible(eltname) {
 elt = getXBrowserRef(eltname);
 if (elt.visibility == 'visible' || elt.visibility == 'show') {
   elt.visibility = 'hidden';
 } else {
   fixPosition(eltname);
   elt.visibility = 'visible';
 }
}

function setPosition(elt,positionername,isPlacedUnder) {
 positioner = null;
 if (isIE) {
  positioner = document.all[positionername];
  elt.left = getIEPosX(positioner);
  elt.top = getIEPosY(positioner);
 } else {
  positioner = document.images[positionername];
  elt.left = positioner.x;
  elt.top = positioner.y;
 }
 if (isPlacedUnder) { moveBy(elt,0,positioner.height); }
}


         // 判断浏览器
         isIE = (document.all ? true : false);