📄 user_info_show.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" -->
<!--#Include file="inc/checksqlIn.Asp"-->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="4,5,1,6,7"
MM_authFailedURL="login.asp?error=2"
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
%>
<%
Dim modi__asa_num
modi__asa_Num = "1"
If (Request.QueryString("userid") <> "") Then
modi__asa_Num = Request.QueryString("userid")
End If
%>
<%
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__asa_num, "'", "''") + ""
modi.CursorType = 0
modi.CursorLocation = 2
modi.LockType = 1
modi.Open()
modi_numRows = 0
%>
<%
Dim myinfo__MMColParam
myinfo__MMColParam = "1"
If (session("QYABC_userid") <> "") Then
myinfo__MMColParam = session("QYABC_userid")
End If
%>
<%
Dim myinfo
Dim myinfo_numRows
Set myinfo = Server.CreateObject("ADODB.Recordset")
myinfo.ActiveConnection = MM_master_STRING
myinfo.Source = "SELECT Specia, MasterClass FROM userinfo WHERE userid= " + Replace(myinfo__MMColParam, "'", "''") + ""
myinfo.CursorType = 0
myinfo.CursorLocation = 2
myinfo.LockType = 1
myinfo.Open()
myinfo_numRows = 0
%>
<% If Not modi.EOF Or Not modi.BOF Then %>
<%
if (modi.Fields.Item("MasterClass").Value)=(myinfo.Fields.Item("MasterClass").Value) then
See="0"
end if
%>
<!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><%=(modi.Fields.Item("studentname").Value)%>详细信息-<%=WebName%></title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>
<body>
<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> </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="90%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#42df31">
<tr>
<td bgcolor="#FFFFFF" width=647><table width="700" border="1" align="center" cellpadding="5" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr valign="baseline">
<td colspan="2" align="left" nowrap><%=(modi.Fields.Item("studentname").Value)%>用户详细信息</td>
</tr>
<tr valign="baseline">
<td width="21%" align="right" nowrap>胸卡编号:</td>
<td width="79%"><%=(modi.Fields.Item("studentnum").Value)%></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">姓名:</td>
<td><%=(modi.Fields.Item("studentname").Value)%></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">性别:</td>
<td><%=(modi.Fields.Item("studentsex").Value)%></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>
<%
dim asan_Birth
asan_Birth=modi.Fields.Item("Birth").Value
select case modi.Fields.Item("SeeBirth").Value
case "0"
Response.Write(asan_Birth)
case "1"
if See="0" then
Response.Write(asan_Birth)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">政治面貌:</td>
<td>
<%
dim asan_Member
asan_Member=modi.Fields.Item("Member").Value
select case modi.Fields.Item("SeeMember").Value
case "0"
Response.Write(asan_Member)
case "1"
if See="0" then
Response.Write(asan_Member)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">校园IC卡号码:</td>
<td>
<%
dim asan_ICNum
asan_ICNum=modi.Fields.Item("ICNum").Value
select case modi.Fields.Item("SeeICNum").Value
case "0"
Response.Write(asan_ICNum)
case "1"
if See="0" then
Response.Write(asan_ICNum)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">所在宿舍:</td>
<td>
<%
dim asan_MasterDorm
asan_MasterDorm=modi.Fields.Item("MasterDorm").Value
select case modi.Fields.Item("SeeMasterDorm").Value
case "0"
Response.Write(asan_MasterDorm)
case "1"
if See="0" then
Response.Write(asan_MasterDorm)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">宿舍电话号码:</td>
<td>
<%
dim asan_DormTelphone
asan_DormTelphone=modi.Fields.Item("DormTelphone").Value
select case modi.Fields.Item("SeeDormTelphone").Value
case "0"
Response.Write(asan_DormTelphone)
case "1"
if See="0" then
Response.Write(asan_DormTelphone)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">原毕业学校:</td>
<td>
<%
dim asan_GraduateSchool
asan_GraduateSchool=modi.Fields.Item("GraduateSchool").Value
select case modi.Fields.Item("SeeGraduateSchool").Value
case "0"
Response.Write(asan_GraduateSchool)
case "1"
if See="0" then
Response.Write(asan_GraduateSchool)
else
Response.Write("保密")
end if
case else
Response.Write("保密")
end select %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">家长姓名:</td>
<td>
<%
dim asan_ParentsName
asan_ParentsName=modi.Fields.Item("ParentsName").Value
select case modi.Fields.Item("SeeParentsName").Value
case "0"
Response.Write(asan_ParentsName)
case "1"
if See="0" then
Response.Write(asan_ParentsName)
else
Response.Write("保密")
end if
case else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -