user_info_modi_success.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257   E-Mail:[e-mail]
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>

<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<%
Dim modi__MMColParam
modi__MMColParam = "1"
If (session("QYABC_userid") <> "") Then 
  modi__MMColParam = session("QYABC_userid")
End If
%>
<!--#Include file="inc/checksqlIn.Asp"-->

<%
Dim modi
Dim modi_numRows

Set modi = Server.CreateObject("ADODB.Recordset")
modi.ActiveConnection = MM_master_STRING
modi.Source = "SELECT * FROM userinfo WHERE userid = " + Replace(modi__MMColParam, "'", "''") + ""
modi.CursorType = 0
modi.CursorLocation = 2
modi.LockType = 1
modi.Open()

modi_numRows = 0
%>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="16%" valign="top"><table width="97%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <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"><table width="100%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
  <tr valign="baseline"> 
    <td colspan="3" align="right" nowrap><div align="center"><font color="#FF0000"><%=(modi.Fields.Item("studentname").Value)%>同学：您已成功修改信息，谢谢你的支持与合作！经修改后，你的信息如下。如需更改请<a href="user_info_modi.asp">点击这里返回修改</a>。</font> 
      </div></td>
  </tr>
  <tr valign="baseline"> 
    <td width="16%" align="right" nowrap>胸卡编号:</td>
    <td width="42%"><%=(modi.Fields.Item("studentnum").Value)%></td>
    <td width="42%">个人头像:</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">姓名:</td>
    <td><%=(modi.Fields.Item("studentname").Value)%></td>
    <td width="42%" rowspan="3"><img src="icon/<%=(modi.Fields.Item("HeadTopic").Value)%>.gif"></td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">所在专业:</td>
    <td><%=(modi.Fields.Item("Specia").Value)%></td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">所在班级:</td>
    <td><%=(modi.Fields.Item("MasterClass").Value)%></td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">密码:</td>
    <td class="style1"><span class="style1">保密&nbsp;</span></td>
    <td bgcolor="#E1FADE">&nbsp;</td>
  </tr>
  <tr valign="baseline"> 
    <td nowrap align="right">出生年月:</td>
    <td><%=(modi.Fields.Item("Birth").Value)%>&nbsp;</td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeBirth").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("Member").Value) %></td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeMember").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">校园IC卡号码:</td>
    <td><%=(modi.Fields.Item("ICNum").Value)%>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeICNum").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("GraduateSchool").Value) %>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeGraduateSchool").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("MasterDorm").Value)%>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeMasterDorm").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("DormTelphone").Value) %>&nbsp;</td>
    <td>←你设置这项内容<span class="style1"> 
      <% 
	select case (modi.Fields.Item("SeeDormTelphone").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("ParentsName").Value)%>&nbsp;&nbsp;</td>
    <td> ←你设置这项内容<span class="style1"> 
      <% 
	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)%>&nbsp;</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;&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;&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="user_info_modi.asp">点击这里返回修改</a>。</font>&nbsp; 
      </div></td>
  </tr>
</table></td>
  </tr>
</table>
<!--#include file="inc/bot.asp" -->
<%
modi.Close()
Set modi = Nothing
%>