📄 myprofile.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Inc/CheckUser.asp"-->
<%
dim uid
uid = Request.QueryString("id")
if uid = "" then
Response.Write("<script>alert('对不起，参数不全！');window.close();</script>")
Response.End()
end if
dim i,j
Set rs = Server.CreateObject("ADODB.RecordSet")
%>
<HTML>
<HEAD>
<title>工程学院教学管理系统 —— 我的档案 </title>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Expires" content="0">
<meta http-equiv="Pragma" content="no-cache">
<LINK href="Style/style.css" rel="stylesheet">
<script language="javascript" type="text/javascript">
<!--
document.write("<BASE onmouseover='window.status=\"欢迎使用 工程学院教学管理系统系统\";return'>");
//-->
</script>
</HEAD>
<body topmargin="20" leftmargin="0">
<h1><p align="center"><b>工程学院教学管理系统</b></p>
</h1>
<%
sql = "Select * From [userinfo] Where id = " & uid
rs.Open sql,conn,1,1
if not(rs.BOF or rs.EOF) then
%>
<table cellSpacing="0" cellPadding="0" border="0" height="50" width="60%" align="center">
<tr>
<td align="center" style="FONT-WEIGHT: bold; FONT-SIZE: 16px;">
姓 名：<u> <%=rs("userid")%> </u> 性 别：<u> <%if rs("sex") = 1 then:Response.Write "男":else:Response.Write "女":end if%> </u>
年 龄：<u> <%=rs("age")%> </u>
</td>
</tr>
<tr>
<td align="center" style="FONT-WEIGHT: bold; FONT-SIZE: 16px;">
学院及专业：<u> <%=rs("college")%>
<%=rs("class")%>
</u>
</td>
</tr>
</table>
<%
end if
rs.Close()
%>
<font size="3">一、个人简历</font><br><br>
<font size="2">(一) 学习简历</font> （从大学开始）<br><br>
<%call resume_study()%><br>
<font size="2">(二) 工作简历</font><br><br>
<%call resume_work()%><br>
<font size="3">二、教学工作</font> （包括理论教学、实验教学、课程实习、毕业实习、指导毕业生论文等）<br><br>
<%call teaching()%><br>
<font size="3">三、教学研究工作</font><br><br>
<font size="2">(一) 在研课题</font><br><br>
<%call jiaoyan_zykt()%><br>
<font size="2">(二) 发表论文、论著情况</font><br><br>
1. 发表论文<br><br>
<%call jiaoyan_fblw()%><br>
2. 发表论著<br><br>
<%call jiaoyan_fblz()%><br>
<font size="2">(三) 获奖情况</font> （包括成果、论文获奖以及其他教学获奖情况）<br><br>
<%call jiaoyan_hjqk()%><br>
<font size="3">四、科研工作</font><br><br>
<font size="2">(一) 在研课题</font><br><br>
<%call research_zykt()%><br>
<font size="2">(二) 发表论文、论著情况</font><br><br>
1. 发表论文<br><br>
<%call research_fblw()%><br>
2. 论著情况<br><br>
<%call research_lzqk()%><br>
<font size="2">(三) 获奖情况</font> （包括成果、论文获奖以及其他获奖情况）<br><br>
<%call research_hjqk()%><br>
<%
'个人简历——学习简历
sub resume_study()
j = 0
i = 0
sql = "Select * From [resume] Where type = 1 and owner = "&uid
rs.Open sql,conn,1,1
%>
<table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center">
<tr>
<td bgcolor="#99A6BF">
<b>起止时间</b></td>
<td bgcolor="#99A6BF">
<b>毕业院校</b></td>
<td bgcolor="#99A6BF">
<b>专 业</b></td>
<td bgcolor="#99A6BF">
<b>获得学位</b></td>
<td bgcolor="#99A6BF">
<b>年 度</b></td>
</tr>
<%
if rs.BOF or rs.EOF then
for j = 1 to 10
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
else
do while not(rs.EOF or rs.BOF)
%>
<tr bgcolor="<%=TableBodyColor%>" onMouseOver="this.style.backgroundColor='#ffffff'; " onMouseOut="this.style.backgroundColor='';">
<td>
<%=rs("startendTime")%>
</td>
<td>
<%=rs("workPlace")%>
</td>
<td>
<%=rs("working")%>
</td>
<td>
<%=rs("degree")%>
</td>
<td>
<%=rs("yearinfo")%>
</td>
</tr>
<%
i = i + 1
rs.MoveNext
loop
if i < 10 then
for j = 1 to (10 - i)
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
end if
%>
<%
end if
rs.Close()
%>
</table>
<%
end sub
'个人简历——工作简历
sub resume_work
j = 0
i = 0
sql = "Select * From [resume] Where type = 2 and owner = "&uid
rs.Open sql,conn,1,1
%>
<table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center">
<tr>
<td bgcolor="#99A6BF">
<b>起止年月</b></td>
<td bgcolor="#99A6BF">
<b>工作单位</b></td>
<td bgcolor="#99A6BF">
<b>职 务</b></td>
<td bgcolor="#99A6BF">
<b>职 称</b></td>
<td bgcolor="#99A6BF">
<b>在各级学术机构中的任职情况</b></td>
<td bgcolor="#99A6BF">
<b>年 度</b></td>
</tr>
<%
if rs.BOF or rs.EOF then
for j = 1 to 10
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
else
do while not(rs.EOF or rs.BOF)
%>
<tr bgcolor="<%=TableBodyColor%>" onMouseOver="this.style.backgroundColor='#ffffff'; " onMouseOut="this.style.backgroundColor='';">
<td>
<%=rs("startendTime")%>
</td>
<td>
<%=rs("workPlace")%>
</td>
<td>
<%=rs("working")%>
</td>
<td>
<%=rs("degree")%>
</td>
<td>
<%=rs("status")%>
</td>
<td>
<%=rs("yearinfo")%>
</td>
</tr>
<%
i = i + 1
rs.MoveNext
loop
if i < 10 then
for j = 1 to (10 - i)
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
end if
end if
%>
</table>
<%
rs.Close()
end sub
'教学工作
sub Teaching
j = 0
i = 0
sql = "Select * From [teaching] Where owner = "&uid
rs.Open sql,conn,1,1
%>
<table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center">
<tr>
<td bgcolor="#99A6BF">
<b>起止时间</b></td>
<td bgcolor="#99A6BF">
<b>工作内容</b></td>
<td bgcolor="#99A6BF">
<b>课程或实验、实习名称（是否双语教学）</b></td>
<td bgcolor="#99A6BF">
<b>授课专业</b></td>
<td bgcolor="#99A6BF">
<b>学时或周数</b></td>
<td bgcolor="#99A6BF">
<b>人 数</b></td>
<td bgcolor="#99A6BF">
<b>年 度</b></td>
</tr>
<%
if rs.BOF or rs.EOF then
for j = 1 to 10
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
else
do while not(rs.EOF or rs.BOF)
%>
<tr bgcolor="<%=TableBodyColor%>" onMouseOver="this.style.backgroundColor='#ffffff'; " onMouseOut="this.style.backgroundColor='';">
<td>
<%=rs("startendTime")%>
</td>
<td>
<%=rs("workContent")%>
</td>
<td>
<%=rs("lessonName")%>
</td>
<td>
<%=rs("class")%>
</td>
<td>
<%=rs("period")%>
</td>
<td>
<%=rs("persons")%>
</td>
<td>
<%=rs("yearinfo")%>
</td>
</tr>
<%
i = i + 1
rs.MoveNext
loop
if i < 10 then
for j = 1 to (10 - i)
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
end if
end if
%>
</table>
<%
rs.Close()
end sub
'教研研工作——在研课题
sub jiaoyan_zykt
j = 0
i = 0
sql = "Select * From [jiaoyan] Where type = 1 and owner = "&uid
rs.Open sql,conn,1,1
%>
<table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center"
ID="Table4">
<tr>
<td bgcolor="#99A6BF">
<b>课题名称</b></td>
<td bgcolor="#99A6BF">
<b>起止年月</b></td>
<td bgcolor="#99A6BF">
<b>经 费</b></td>
<td bgcolor="#99A6BF">
<b>项目来源</b></td>
<td bgcolor="#99A6BF">
<b>主持人</b></td>
<td bgcolor="#99A6BF">
<b>合作人</b></td>
<td bgcolor="#99A6BF">
<b>年 度</b></td>
</tr>
<%
if rs.BOF or rs.EOF then
for j = 1 to 10
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
else
do while not(rs.EOF or rs.BOF)
%>
<tr bgcolor="<%=TableBodyColor%>" onMouseOver="this.style.backgroundColor='#ffffff'; " onMouseOut="this.style.backgroundColor='';">
<td>
<%=rs("name")%>
</td>
<td>
<%=rs("startendTime")%>
</td>
<td>
<%=rs("lessonName")%>
</td>
<td>
<%=rs("Froming")%>
</td>
<td>
<%=rs("worker")%>
</td>
<td>
<%=rs("worker")%>
</td>
<td>
<%=rs("yearinfo")%>
</td>
</tr>
<%
i = i + 1
rs.MoveNext
loop
if i < 10 then
for j = 1 to (10 - i)
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
end if
end if
%>
</table>
<%
rs.Close()
end sub
'教研研工作——发表论文
sub jiaoyan_fblw
j = 0
i = 0
sql = "Select * From [jiaoyan] Where type = 2 and owner = "&uid
rs.Open sql,conn,1,1
%>
<table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center">
<tr>
<td bgcolor="#99A6BF">
<b>论文题目</b></td>
<td bgcolor="#99A6BF">
<b>发表刊物</b></td>
<td bgcolor="#99A6BF">
<b>第一作者</b></td>
<td bgcolor="#99A6BF">
<b>合作者</b></td>
<td bgcolor="#99A6BF">
<b>年.卷.期.页码</b></td>
<td bgcolor="#99A6BF">
<b>年 度</b></td>
</tr>
<%
if rs.BOF or rs.EOF then
for j = 1 to 10
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
else
do while not(rs.EOF or rs.BOF)
%>
<tr bgcolor="<%=TableBodyColor%>" onMouseOver="this.style.backgroundColor='#ffffff'; " onMouseOut="this.style.backgroundColor='';">
<td>
<%=rs("name")%>
</td>
<td>
<%=rs("lessonName")%>
</td>
<td>
<%=rs("author")%>
</td>
<td>
<%=rs("worker")%>
</td>
<td>
<%=rs("Froming")%>
</td>
<td>
<%=rs("yearinfo")%>
</td>
</tr>
<%
i = i + 1
rs.MoveNext
loop
if i < 10 then
for j = 1 to (10 - i)
%>
<tr bgcolor="<%=TableBodyColor%>">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
next
end if
end if
%>
</table>
<%
rs.Close()
end sub
'教研研工作——发表论著
sub jiaoyan_fblz
j = 0
i = 0
sql = "Select * From [jiaoyan] Where type = 3 and owner = "&uid
rs.Open sql,conn,1,1
%>
<table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center">
<tr>
<td bgcolor="#99A6BF">
<b>论著名称</b></td>
<td bgcolor="#99A6BF">
<b>出版社</b></td>
<td bgcolor="#99A6BF">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -