admin_student_modi_success.asp

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

      <% 
	select case (modi.Fields.Item("SeeParentsName").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">家庭住址邮编:</td>
    <td><%=(modi.Fields.Item("HomeZipcode").Value)%></td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeHomeZipcode").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">家庭详细住址:</td>
    <td><%=(modi.Fields.Item("HomeAddress").Value)%>&nbsp;</td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeHomeAddress").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">家庭电话:</td>
    <td><%=(modi.Fields.Item("HomeTelphone").Value)%>&nbsp;</td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeHomeTelphone").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">个人联系电话:</td>
    <td><%=(modi.Fields.Item("PersonalTelphone").Value)%>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeePersonalTelphone").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">电子邮箱:</td>
    <td><%=(modi.Fields.Item("Email").Value)%>&nbsp;</td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeEmail").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">QQ:</td>
    <td><%=(modi.Fields.Item("QQ").Value)%>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeQQ").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">个人网站:</td>
    <td><%=(modi.Fields.Item("HomePages").Value)%>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeHomePages").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">工作单位名称:</td>
    <td><%=(modi.Fields.Item("OfficeName").Value)%>&nbsp;</td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeOfficeName").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">工作单位电话:</td>
    <td><%=(modi.Fields.Item("OfficeTelphone").Value)%>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeOfficeTelphone").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">工作单位邮编:</td>
    <td><%=(modi.Fields.Item("OfficeZipcode").Value)%>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeOfficeZipcode").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">工作单位详细地址:</td>
    <td><%=(modi.Fields.Item("OfficeAddress").Value)%>&nbsp;</td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeOfficeAddress").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">所做工作内容:</td>
    <td><%=(modi.Fields.Item("Post").Value)%>&nbsp;</td>
    <td>&nbsp;←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeePost").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr> 
    <td nowrap align="right" valign="top">个人简介:</td>
    <td valign="top"><%=modi.Fields.Item("Introduction").Value%>&nbsp;</td>
    <td valign="top">&nbsp;←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeIntroduction").Value) 
	case "0"
	Response.Write("供任何人")
	case "1"
	Response.Write("供同班学生")
	case "3"
	Response.Write("供自己的好朋友")
	case "4"
	Response.Write("保密，不给任何人")
	end select	
	%>
      </span>查看！</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">&nbsp;</td>
    <td>&nbsp;</td>
    <td bgcolor="#E1FADE"><div align="right"><font color="#FF0000">如需更改请<a href="admin_student_modi.asp?id=<%=(modi.Fields.Item("userid").Value)%>">点击这里返回修改</a>。</font>&nbsp; 
      </div></td>
  </tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
modi.Close()
Set modi = Nothing
%>