📄 detailteacher.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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#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 Teacher WHERE "&strSSql
rs.open strSql,conn,1,1
If rs.EOF Then
Response.Write("对不起，没有您所要查的老师信息！")
Response.End
End If
Dim strSName ,strTno ,strSex ,strSchoolID ,strZhuanyeID ,strTel ,strQQ ,strMsn ,strEmail ,strPic
strTno = rs("Tno").value
strSName = rs("Name").Value
strSex = rs("Sex").Value
strSchoolID = rs("SchoolID").value
strZhuanyeID = rs("zhuanyeID").value
strTel =rs("Tel").value
strQQ = rs("QQ").value
strMsn = rs("Msn").value
strEmail = rs("Email").value
strPic = rs("Pic").value
rs.close
%>
<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="531">
<tr>
<td colspan="7" background="images/Down_bg.gif" align="center"><span class="STYLE1">教师详细信息</span></td>
</tr>
<tr bgcolor="#66C06D">
<td width="68" bgcolor="#66C06D"><div align="right">教师号：</div></td>
<td width="123"><%=strTno%></td>
<td width="67" bgcolor="#66C06D"><div align="right">姓名：</div></td>
<td width="102"><%=strSName%></td>
<td width="82" bgcolor="#66C06D"><div align="right">性别：</div></td>
<td width="125"><%=strSex%></td>
<td width="80" rowspan="4" bgcolor="#FFFFFF" align="center">
<%
If strPic <> "" Then
%><img src="/Uploadfile/photo/<%=strPic%>" width="80" height="100" />
<%
Else
Response.Write("<a href='Pic/EDataBase.asp'>上传照片")
End If
%>
</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 bgcolor="#66C06D"><div align="right">学院：</div></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 bgcolor="#66C06D"><div align="right">专业：</div></td>
<td><%=strZhuanyeName%></td>
<td bgcolor="#66C06D"><div align="right">电话：</div></td>
<td><%=strTel%></td>
</tr>
<tr bgcolor="#66C06D">
<td bgcolor="#66C06D"><div align="right">QQ： </div></td>
<td><%=strQQ%></td>
<td bgcolor="#66C06D"><div align="right">MSN： </div></td>
<td><%=strMSN%></td>
<td bgcolor="#66C06D"><div align="right">Email： </div></td>
<td><%=strEmail%></td>
</tr>
<tr bgcolor="#66C06D">
<td height="25" colspan="6" bgcolor="#66C06D"><div align="center"><%If trim(strID) <> trim(Session("ID")) And Session("UserName") <> strTName Then %><a href="Add_Msg.asp?ManTo=<%=strSName%>">给TA发短信息</a><%Else%> <%End If%></div></td>
</tr>
<tr>
<td height="16" colspan="7" background="images/Top_bg.gif"> </td>
</tr>
</table>
<%
conn.close
Set conn = Nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -