📄 detailstudent.asp

📁 网络教学管理系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID ,strTName ,strSSql
	strTName = trim(Request.QueryString("Name"))
	strID = trim(Request.QueryString("ID"))
	If strID & "" = "" And strTName = "" Then
		Response.Write("参数错误！")
		Response.End
	ElseIf strID = "" And strTName <> "" Then
		strSSql = "Name = '"& strTName &"'"
	ElseIf strID <> "" And strTName = "" Then
		strSSql = "ID = " &strID
	End If
	Dim rs ,strSql
	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSql = "SELECT * FROM Student WHERE " & strSSql
	rs.open strSql,conn,1,1
	If rs.EOF Then
		Response.Write("对不起，没有您想要查的学生信息！")
		Response.End
	End If
	Dim strSName ,strSno ,strSex ,strSchoolID ,strZhuanyeID ,strClassID ,strNianyue ,strNationality ,strNative ,strTel ,strZhengzhimianmao ,strCardID ,strQQ ,strMsn ,strEmail
	strSno = rs("Sno").Value
	strSName = rs("Name").Value
	strSex = rs("Sex").Value
	strSchoolID = rs("SchoolID").value
	strZhuanyeID = rs("zhuanyeID").value
	strClassID = rs("ClassID").value
	strNianyue = rs("Nianyue").value
	strNationality =rs("Nationality").value
	strNative = rs("Native").value
	strTel =rs("Tel").value
	strZhengzhimianmao = rs("Zhengzhimianmao").value
	strCardID = rs("CardID").value
	strQQ = rs("QQ").value
	strMsn = rs("Msn").value
	strEmail = rs("Email").value
	rs.close

	
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
.STYLE1 {font-size: 14px}
-->
</style></head>

<body bgcolor="#B1DB99" leftmargin="5" topmargin="5">
<table width="755">
  <tr>
    <td colspan="7" background="images/Down_bg.gif"><div align="center" class="STYLE1">学生详细信息</div></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td width="68">学号：</td>
    <td width="123"><%=strSno%></td>
    <td width="67">姓名：</td>
    <td width="102"><%=strSName%></td>
    <td width="82">性别：</td>
    <td width="125"><%=strSex%></td> 
	<td width="156" rowspan="6">&nbsp;</td>
  </tr>
  <tr  bgcolor="#66C06D">
    <%
		Dim strSchoolName
		If strSchoolID = "" Then 
			strSchoolName = ""
		Else
			strSql = "SELECT * FROM School WHERE ID = " & strSchoolID
			rs.open strSql,conn,1,1
			If Not rs.EOF Then
				strSchoolName = rs("Name").value
			Else
				strSchoolName = ""
			End If
			rs.close
		End If

	%>
	<td>学院：</td>
    <td><%=strSchoolName%></td>
    <%
  		Dim strZhuanyeName
		If strZhuanyeID = "" Then
			strZhuanyeName = ""
		Else
			strSql = "SELECT * FROM zhuanye WHERE ID = " & strZhuanyeID
			rs.open strSql,conn,1,1
			If Not rs.EOF Then
				strZhuanyeName = rs("Name").value
			Else
				strZhuanyeName = ""
			End If
			rs.close
		End If

	%>
  
 
	<td>专业:</td>
     <td><%=strZhuanyeName%></td>
     <%
  		Dim strClassName
		If strClassID = "" Then
			strClassName = ""
		Else
			strSql = "SELECT * FROM Class WHERE ID = " & strClassID
			rs.open strSql,conn,1,1
			If Not rs.EOF Then
				strClassName = rs("Name").value
			Else
				strClassName = ""
			End If
			rs.close
			Set rs = Nothing
		End If
	%>
	<td>班级：</td>
    <td><%=strClassName%></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td>出生年月：</td>
    <td><%=strNianyue%></td>
    <td>民族：</td>
    <td><%=strNationality%></td>
    <td>籍贯：</td>
    <td><%=strNative%></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td>电话：</td>
    <td><%=strTel%></td>
    <td>政治面貌：</td>
    <td><%=strzhengzhimianmao%></td>
    <td>身份证号：</td>
    <td><%=strCardID%></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td>QQ: </td>
    <td><%=strQQ%></td>
    <td>MSN: </td>
    <td><%=strMSN%></td>
    <td>Email: </td>
    <td><%=strEmail%></td>
  </tr>
    <tr bgcolor="#66C06D">
      <td colspan="6"><div align="center"><%If trim(strID) <> trim(Session("ID")) And Session("UserName") <> strTName Then %><a href="Add_Msg.asp?ManTo=<%=strSName%>">给TA发短信息</a><%Else%>&nbsp;<%End If%></div></td>
    </tr>
    <tr>
    <td colspan="7" background="images/Top_bg.gif">&nbsp;</td>
  </tr>
</table>
<%
	conn.close
	Set conn = Nothing
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -