qj_body.asp

职业培训学校学生档案成绩费用管理系统V1.0免费版.rar

<%
sub qj_body(user_number)
set rs=server.createobject("adodb.recordset")
sql="select * from st_info where user_number='"&user_number&"'"
rs.open sql,conn,1,1
session("user_number")=rs("user_number")
session("user_name")=rs("user_name")
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from qingjia where user_number='"&user_number&"'"
rs.open sql,conn,1,1
%>
<div align="center"> 
  <table border="1" width="700" bordercolorlight="#000000" cellspacing="0" cellpadding="4" bordercolordark="#FFFFFF">
     <tr>
	  <td width="50" align="center">学号</td>
      <td width="50" align="center">姓名</td>
      <td width="100" align="center">请假时间</td>
	  <td width="300" align="center">请假原因</td>
	  <td width="100" align="center">类型</td>
	  <td width="50" align="center">天数</td>
	  <td width="50" align="center">老师</td>
 	  <td width="50" align="center">修改</td>
  	  <td width="50" align="center">删除</td>
  	  <td width="50" align="center">添加</td>
    </tr>
  <%
  if not rs.eof then
  do while not rs.eof
  %>   
    <tr>
	  <td width="50" align="center"><%=rs("user_number")%></td>
	  <td width="50" align="center"><%=rs("user_name")%></td>
	  <td width="100" align="center"><%=rs("user_time")%></td>
	  <%
	  yuanying=len(rs("yuanying"))
	  if yuanying>30 then
	     yuanying=left(rs("yuanying"),30)
	  %>
	  <td width="300" align="center"><%=yuanying%>&nbsp;<a href="query_qingjia.asp?id=<%=rs("id")%>">[详情]</a></td> 
	  <%else%> 
	  <td width="300" align="center"><%=rs("yuanying")%></td>
	  <%end if%>
	  <%if rs("user_type")="1" then%>
	  <td width="100" align="center">学费</td>
	  <%elseif rs("user_type")="2" then%>
	  <td width="100" align="center">生活费</td>
	  <%else%>
	  <td width="100" align="center">学费、生活费</td>
	  <%end if%>
	  <td width="50" align="center"><%=rs("daynumber")%></td>
	  <td width="50" align="center"><%=rs("teacher")%></td>
      <td width="50" align="center"><a href="mod_qingjia.asp?id=<%=rs("id")%>&key=1">修改</a></td>
      <td width="50" align="center"><a href=javascript:if(confirm('确实要删除吗?'))location='del_qingjia.asp?id=<%=rs("id")%>&key=1'>删除</a>
	  </td>
  	  <td width="50" align="center"><a href="add_qingjia.asp?key=1">添加</a></td>
    </tr>
    <%
	rs.movenext
	loop
	else
	%>
    <tr>
      <td colspan="9"><marquee>暂无奖惩情况添加</marquee></td>
  	  <td width="50" align="center"><a href="add_qingjia.asp?key=1">添加</a></td>
    </tr>
  </table>
</div>
<%
end if
rs.close
set rs=nothing
end sub
%>