?? stuperl.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請保證此行在最前面%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="luxiaoqing" CONTENT="no-cache">
<STYLE TYPE="text/css">
<!--
BODY {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
background-color: #DEE7FF;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style2 {font-size: 12px}
.style3 {font-size: 12px}
.style4 {
color: #FFFFFF;
font-size: 14px;
}
.style5 {color: #FF0000}
body,td,th {
font-size: 12px;
}
.STYLE8 {
font-family: "黑體";
font-size: 18px;
}
a:link {
color: #003399;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #003399;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE101 {font-family: "黑體"; font-size: 18px; color: #FFFFFF; }
-->
</STYLE>
<%
Connkaa = hdobj.WeekaaConn()
tab="student"
ID=Request.QueryString("ID")
dim stv,sqstv
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
Set rs = Server.CreateObject("ADODB.RecordSet")
sqls = "Select * From [student] where ID="&ID
rs.Open Sqls,Connkaa,1,3
if rs.eof then
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.RecordSet")
sqls = "Select * From [studentOut] where ID="&ID
rs.Open Sqls,Connkaa,1,3
if rs.eof then
response.write "<br><br><br><br><br>此學(xué)生基本信息已經(jīng)從系統(tǒng)中刪除"
response.end
end if
end if
a=rs("a")
lu="../photo/"&a&".jpg"
Pr=Request.QueryString("Pr")
%>
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body onmouseover="self.status='紅笛軟件[http://weekaa.com/red]';return true">
<%if Pr<>"Pr" then%>
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3399fd">
<tr>
<td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
</tr>
<tr>
<td height="28" align="center" valign="middle" background="../Image/bg01a.jpg"> </td>
</tr>
<tr>
<td bgcolor="#3399FD">
<%end if%>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0C4FBC">
<tr>
<td height="40" align="center"><a href="StudentSet.asp"><span class="STYLE101"><%=rs("c")%>同學(xué)在校表現(xiàn)表</span></a></td>
</tr>
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"> </td>
</tr>
</table>
<table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0033CC" bgcolor="#FFFFFF">
<tr>
<td width="99" height="25" align="center"><%=stv("a")%></td>
<td width="133" align="left"> <%=rs("a")%></td>
<td width="99" align="center"><%=stv("b")%></td>
<td width="140" align="left"> <%=rs("b")%></td>
<td width="217" rowspan="11" align="center" background="../photo/boy.gif"><p><a href="#" onClick="MM_openBrWindow('../photo/UPA.asp?StuNo=<%=rs("a")%>','紅笛軟件','scrollbars=yes,width=400,height=200')"><img src="<%=lu%>" alt="biao" width="200" height="260"></a></p></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("c")%></td>
<td width="133" align="left"> <%=rs("c")%></td>
<td align="center"><%=stv("d")%></td>
<td align="left"> <%=rs("d")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("e")%></td>
<td align="left"> <%=rs("e")%></td>
<td align="center"><%=stv("f")%></td>
<td align="left"> <%=rs("f")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("g")%></td>
<td align="left"> <%=rs("g")%></td>
<td align="center"><%=stv("h")%></td>
<td align="left"> <%=rs("h")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("i")%></td>
<td align="left"> <%=rs("i")%></td>
<td align="center"><%=stv("j")%></td>
<td align="left"> <%=rs("j")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("k")%></td>
<td align="left"> <%=rs("k")%></td>
<td align="center"><%=stv("l")%></td>
<td align="left"> <%=rs("l")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("m")%></td>
<td align="left"> <%=rs("m")%></td>
<td align="center"><%=stv("n")%></td>
<td align="left"> <%=rs("n")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("o")%></td>
<td align="left"> <%=rs("o")%></td>
<td align="center"><%=stv("p")%></td>
<td align="left"> <%=rs("p")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("q")%></td>
<td align="left"> <%=rs("q")%></td>
<td align="center"><%=stv("r")%></td>
<td align="left"> <%=rs("r")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("s")%></td>
<td align="left"> <%=rs("s")%></td>
<td align="center"><%=stv("t")%></td>
<td align="left"> <%=rs("t")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("u")%></td>
<td align="left"> <%=rs("u")%></td>
<td align="center"><%=stv("v")%></td>
<td align="left"> <%=rs("v")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("w")%></td>
<td align="left"> <%=rs("w")%></td>
<td align="center"><%=stv("x")%></td>
<td colspan="2" align="left"> <%=rs("x")%></td>
</tr>
<tr>
<td height="25" align="center"><%=stv("y")%></td>
<td align="left"> <%=rs("y")%></td>
<td align="center"><%=stv("z")%></td>
<td colspan="2" align="left"> <%=rs("z")%></td>
</tr>
<tr>
<td height="30" colspan="5" align="center" class="STYLE8">獎 懲 記 錄 </td>
</tr>
<tr>
<td height="100" colspan="5" align="left" valign="top"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25">獎勵記錄:</td>
</tr>
<tr>
<td height="25"><%call jlcf(ID,1)%></td>
</tr>
<tr>
<td height="25">處分記錄:</td>
</tr>
<tr>
<td height="25"><%call jlcf(ID,2)%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" colspan="5" align="center" class="STYLE8">平時表現(xiàn)、操行評價 <span class="style3"><a href="#" onClick="MM_openBrWindow('StuOfa.asp?A=<%=ID%>&B=a','紅笛軟件','scrollbars=no,width=300,height=260,top=200,left=200')">[添加]</a></span></td>
</tr>
<tr>
<td height="100" colspan="5" align="left"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><%call Ofa(ID,"a")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" colspan="5" align="center" class="STYLE8">社會實踐、專業(yè)實踐記錄 <span class="style3"><a href="#" onClick="MM_openBrWindow('StuOfa.asp?A=<%=ID%>&B=b','紅笛軟件','scrollbars=no,width=300,height=260,top=200,left=200')">[添加]</a></span></td>
</tr>
<tr>
<td height="100" colspan="5" align="left"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><%call Ofa(ID,"b")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" colspan="5" align="center" class="STYLE8">參加各類活動、勤工儉學(xué)記錄 <span class="style3"><a href="#" onClick="MM_openBrWindow('StuOfa.asp?A=<%=ID%>&B=c','紅笛軟件','scrollbars=no,width=300,height=260,top=200,left=200')">[添加]</a></span></td>
</tr>
<tr>
<td height="100" colspan="5" align="left"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><%call Ofa(ID,"c")%></td>
</tr>
</table></td>
</tr>
</table>
<%if Pr<>"Pr" then %>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23" align="center" background="../Image/bg01.jpg" bgcolor="#0033cc"><a href="stuperl.asp?ID=<%=ID%>&Pr=Pr" target="_blank">打印</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="#3399FD"> </td>
</tr>
<tr>
<td height="28" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
<%end if%>
</body>
</html>
<%
sub jlcf(ID,L)
i=0
if L=1 then
loi="獎勵"
else
loi="處分"
end if
lon="審批同意"
sqlo = "Select * From [AwPunt] where a ='"&ID&"' and l='"&loi&"' and i like '%"&lon&"%'"
Set ro = Server.CreateObject("ADODB.RecordSet")
ro.Open Sqlo,Connkaa,1,3
do while not ro.eof
i=i+1
rod=ro("d")
IDD=ro("ID")
response.write i&"."
if L=1 then
response.write "<a href='StuwDecInE.asp?AA="&ID&"&IDD="&IDD&"'>"
else
response.write "<a href='StuwDecInF.asp?AA="&ID&"&IDD="&IDD&"'>"
end if
response.write rod&"</a><br>"
ro.movenext
loop
ro.close
set ro=nothing
end sub
sub Ofa(ID,L)
i=0
sqlc = "Select * From [OFa] where a ='"&ID&"' and b='"&L&"'order by tim asc"
Set rc = Server.CreateObject("ADODB.RecordSet")
rc.Open Sqlc,Connkaa,1,3
if rc.eof then
else
do while not rc.eof
i=i+1
rcID=rc("ID")
rcd=rc("d")
rce=rc("e")
response.write i&"."
response.write rcd&"<br>"
response.write rce
response.write " <a href='#' onClick="&chr(34)&"MM_openBrWindow('StuOfa.asp?ID="&rcID&"','紅笛軟件','scrollbars=no,width=300,height=260,top=200,left=200')"&chr(34)&">修改</a><br><br>"
rc.movenext
loop
end if
rc.close
set rc=nothing
end sub
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -