📄 admin_student_modi_success.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257 E-Mail:qystu@163.com
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="5,6,7"
MM_authFailedURL="login.asp?error=3"
MM_grantAccess=false
If session("QYABC_userid") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="inc/checksqlIn.Asp" -->
<%
Dim modi__MMColParam
modi__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
modi__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim modi
Dim modi_numRows
Set modi = Server.CreateObject("ADODB.Recordset")
modi.ActiveConnection = MM_master_STRING
modi.Source = "SELECT studentnum, studentname, studentsex, Paskk, HeadTopic, Birth, SeeBirth, Specia, MasterClass, GraduateSchool, SeeGraduateSchool, ICNum, SeeICNum, Member, SeeMember, MasterDorm, SeeMasterDorm, DormTelphone, SeeDormTelphone, ParentsName, SeeParentsName, HomeZipcode, SeeHomeZipcode, HomeAddress, SeeHomeAddress, HomeTelphone, SeeHomeTelphone, PersonalTelphone, SeePersonalTelphone, Email, SeeEmail, QQ, SeeQQ, HomePages, SeeHomePages, OfficeName, SeeOfficeName, OfficeTelphone, SeeOfficeTelphone, OfficeZipcode, SeeOfficeZipcode, OfficeAddress, SeeOfficeAddress, Post, SeePost, Introduction, SeeIntroduction, userid FROM userinfo WHERE userid = " + Replace(modi__MMColParam, "'", "''") + ""
modi.CursorType = 0
modi.CursorLocation = 2
modi.LockType = 1
modi.Open()
modi_numRows = 0
%>
<%
Dim userinfo__MMColParam
userinfo__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
userinfo__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim userinfo
Dim userinfo_numRows
Set userinfo = Server.CreateObject("ADODB.Recordset")
userinfo.ActiveConnection = MM_master_STRING
userinfo.Source = "SELECT studentnum, studentname, MasterClass FROM userinfo WHERE userid = " + Replace(userinfo__MMColParam, "'", "''") + ""
userinfo.CursorType = 0
userinfo.CursorLocation = 2
userinfo.LockType = 1
userinfo.Open()
userinfo_numRows = 0
%>
<%
dim asanhandle_content,asanteachername,asanteachernum,asanhappen_ip
asanhandle_content="为学号"+(userinfo.Fields.Item("studentnum").Value)+"在"+(userinfo.Fields.Item("MasterClass").Value)+"班的"+(userinfo.Fields.Item("studentname").Value)+"修改信息"
asanteachername=session("QYABC_username")
asanteachernum=session("QYABC_userid")
asanhappen_ip=Request.ServerVariables("Remote_Addr")
%>
<%
set hanellog = Server.CreateObject("ADODB.Command")
hanellog.ActiveConnection = MM_master_STRING
hanellog.CommandText = "INSERT INTO doitlog (handle_content, teachername, userid, happen_ip) VALUES ('"&asanhandle_content&"','"&asanteachername&"','"&asanteachernum&"','"&asanhappen_ip&"' ) "
hanellog.CommandType = 1
hanellog.CommandTimeout = 0
hanellog.Prepared = true
hanellog.Execute()
%>
<%
userinfo.Close()
Set userinfo = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改结果-<%=WebName%></title>
<style type="text/css">
<!--
body {
background-color: #E1FADE;
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="700" 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="admin_student_modi.asp?id=<%=(modi.Fields.Item("userid").Value)%>">点击这里返回修改</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><span class="style1">保密 </span></td>
<td bgcolor="#E1FADE"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">出生年月:</td>
<td><%=(modi.Fields.Item("Birth").Value)%> </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)%></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) %></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)%></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) %></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)%> </td>
<td> ←你设置这项内容<span class="style1">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -