fy_body.asp

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

<%
sub fy_body(user_body)
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 feiyong 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="70" align="center">费用类型</td>
      <td width="70" align="center">交费时间</td>
      <td width="50" align="center">费用金额</td>
      <td width="90" align="center">延长(至)</td>
      <td width="170" 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="70" align="center"><%=rs("user_type")%></td>
      <td width="70" align="center"><%=rs("user_time")%></td>
      <td width="50" align="center"><%=rs("money")%></td>
      <td width="90" align="center"><%=rs("data")%></td>
      <%
	  info=len(rs("info"))
	  if info>10 then
	     info=left(rs("info"),10)
	  %>
      <td width="170" align="center"><%=info%>.. &nbsp;<a href="query_feiyong.asp?id=<%=rs("id")%>">[详情]</a></td>
      <%else%>
      <td width="170" align="center"><%=rs("info")%></td>
      <%end if%>
      <td width="50" align="center"><a href="mod_feiyong.asp?id=<%=rs("id")%>&key=1">修改</a></td>
      <td width="50" align="center"><a href=javascript:if(confirm('确实要删除吗?'))location='del_feiyong.asp?id=<%=rs("id")%>&key=1'>删除</a>
	  </td> 
     <td width="50" align="center"><a href="add_feiyong.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_feiyong.asp?key=1">添加</a></td>
    </tr>
  </table>
</div>  
<%
end if
rs.close
set rs=nothing
end sub
%>