📄 teacherinfo.asp

📁 一个教育系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="fenlei.asp"-->
<%
id = trim(request("id"))

if id = "" then
 conn.close
 set conn = nothing
 response.write "<script>alert('请不要捣乱');top.window.location.href='dex.asp';</script>"
 response.end
end if

if session("admin") = "admin" then
 isadmin = true
else
 isadmin = false
end if

if session("teacherid") <> "" then
 isteacher = true
else
 isteacher = false
end if

sql = "select * from teacher where teacherid="&id
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/css.css" type="text/css">
<title>个人专集</title>
</head>
<body text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<%
if not isadmin and not isteacher then
%>
<!--#include file="head.asp"-->
<%
end if
if rs.bof and rs.eof then
 rs.close
 set rs = nothing
 conn.close
 set conn = nothing
 response.write "<center>没有找到您要查看的教师</center>"
 response.end
else
%>
<br>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width="740" border=1>
<tr><td align="center" class="header" colspan=3>个人资料</td></tr>
<tr><td width=80 align="right"><b>所属<%=strfenlei1%>：</b></td><td width=420>&nbsp;<%=rs("fenlei1")%></td>
    <td align="center" valign="middle" rowspan=7 width=240>
<%
if left(rs("photourl"),6) = "files/" then
 response.write "<a href="&rs("photourl")&" target=_blank><img src="&rs("photourl")&" border=0 height=150 width=200></a>"
else
 response.write "暂无照片"
end if
%>
    </td>
</tr>
<tr><td width=80 align="right"><b>所属<%=strfenlei2%>：</b></td><td width=420>&nbsp;<%=rs("fenlei2")%></td></tr>
<tr><td width=80 align="right"><b>教师姓名：</b></td><td width=420>&nbsp;<%=rs("teacher")%></td></tr>
<tr><td width=80 align="right"><b>E-Mail：</b></td><td width=420>&nbsp;<a href=mailto:<%=rs("email")%>><%=rs("email")%></a></td></tr>
<tr><td width=80 align="right"><b>个人主页：</b></td><td width=420>&nbsp;<a href=<%=rs("homepage")%> target=_blank><%=rs("homepage")%></a></td></tr>
<tr><td width=80 align="right"><b>QQ号码：</b></td><td width=420>&nbsp;<%=rs("qq")%></td></tr>
<tr><td width=80 align="right"><b>通讯地址：</b></td><td width=420>&nbsp;<%=rs("address")%></td></tr>
<tr><td width=80 align="right" valign="top"><b>个人简介：</b></td><td valign="top" colspan=2>&nbsp;&nbsp;<%=rs("intro")%>&nbsp;</td></tr>
<%
rs.close
end if
sql = "select * from type"
rs.open sql,conn,1,1
set rs1 = server.createobject("adodb.recordset")
do while not rs.eof
 sql1 = "select count(mainid) from main where idofteacher="&id&" and idoftype="&rs("typeid")
 rs1.open sql1,conn,1,1
 counter = rs1(0)
 rs1.close
 if counter mod 3 = 0 then
  iframeheight = 20*(int(counter/3)+1)
 else
  iframeheight = 20*(int(counter/3)+2)
 end if
 if iframeheight > 220 then iframeheight = 220
%>
<tr><td align="center" class="header" colspan=3>已在本站发布的<%=rs("type")%>（共<%=counter%>件）</td></tr>
<tr><td align="center" colspan=3>
<iframe name="titleof<%=rs("typeid")%>" frameborder=0 width=100% height=<%=iframeheight%> scrolling=no src=titlelist.asp?type=<%=rs("typeid")%>&id=<%=id%>></iframe>
</td></tr>
<%
 rs.movenext
loop
set rs1 = nothing
rs.close
set rs = nothing
%>
</table>
<%
if not isadmin and not isteacher then
%>
<!--#include file="foot.asp"-->
<%
end if
%>
</body>
</html>
<%
conn.close
set conn = nothing
%>
⌨️ 快捷键说明

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