📄 admin_sms_pro_info.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="asaning/Connections/master.asp" -->
<!--#include file="inc/checksqlIn.Asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="1,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
%>
<%
Dim modi__asa_num
modi__asa_Num = "1"
If (Request.QueryString("name") <> "") Then
modi__asa_Num = Request.QueryString("name")
End If
%>
<%
Dim modi
Dim modi_numRows
Set modi = Server.CreateObject("ADODB.Recordset")
modi.ActiveConnection = MM_master_STRING
modi.Source = "SELECT * FROM userinfo WHERE Name = '" + 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 Name = '" + Replace(myinfo__MMColParam, "'", "''") + "'"
myinfo.CursorType = 0
myinfo.CursorLocation = 2
myinfo.LockType = 1
myinfo.Open()
myinfo_numRows = 0
%>
<%
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>详细信息-<%=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">
<link href="asaning/inc/STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body>
<p class="style1"> </p>
<!--#include file="asaning/info_head.asp" -->
<table width="100%" 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="right" nowrap><div align="center"></div></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("Sex").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
Response.Write("保密")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -