📄 jfb.asp

📁 学籍管理功能,能实现调班注销学籍等,中小学通用
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim zcb__MMColParam
zcb__MMColParam = "1"
If (Session("MM_username") <> "") Then 
  zcb__MMColParam = Session("MM_username")
End If
%>
<%
Dim zcb
Dim zcb_numRows

Set zcb = Server.CreateObject("ADODB.Recordset")
zcb.ActiveConnection = MM_conn_STRING
zcb.Source = "SELECT *  FROM user_name  WHERE class = '" + Replace(zcb__MMColParam, "'", "''") + "' and 在校情况=1  ORDER BY pianhao ASC"
zcb.CursorType = 0
zcb.CursorLocation = 2
zcb.LockType = 1
zcb.Open()

zcb_numRows = 0
%>
<%
Dim admin1__MMColParam
admin1__MMColParam = "1"
If (Session("MM_username") <> "") Then 
  admin1__MMColParam = Session("MM_username")
End If
%>
<%
Dim admin1
Dim admin1_numRows

Set admin1 = Server.CreateObject("ADODB.Recordset")
admin1.ActiveConnection = MM_conn_STRING
admin1.Source = "SELECT * FROM admin_name WHERE class = '" + Replace(admin1__MMColParam, "'", "''") + "' ORDER BY ID ASC"
admin1.CursorType = 0
admin1.CursorLocation = 2
admin1.LockType = 1
admin1.Open()

admin1_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "2009年春"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM shoubiaozhun WHERE niandu = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
zcb_numRows = zcb_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<div align="center"><font size="5">2008-2009学年度第二学期<%=(admin1.Fields.Item("class_1").Value)%>学生缴费表</font></div>
<div align="center">　</div>
<div align="center">
<table width="650" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333" style="border-collapse: collapse">
  <tr>
    <td width="22" height="30" align="center" ><div align="center">
		<font size="2">序号</font></div></td>
    <td width="36" align="center"><div align="center"><font size="2">编号</font></div></td>
    <td width="49" align="center"><div align="center"><font size="2">姓名</font></div></td>
     <td width="34" align="center"><div align="center"><font size="2">一费制</font></div></td>
    <td width="34" align="center"><div align="center"><font size="2">体验费</font></div></td>
    <td width="34" align="center"><div align="center"><font size="2">早餐费</font></div></td>
    <td width="34" align="center"><div align="center"><font size="2">校服套数</font></div></td>
    <td width="35" align="center"><div align="center"><font size="2">校服费</font></div></td>
	<td width="35" align="center"><div align="center"><font size="2">住宿费</font></div></td>
    <td width="35" align="center"><div align="center"><font size="2">作业本费</font></div></td>
    <td width="35" align="center"><div align="center"><font size="2">牛奶订费</font></div></td>
    <td width="35" align="center"><div align="center"><font size="2">合计</font></div></td>
	<td width="141" align="center"><div align="center"><font size="2">扣费账号</font></div></td>
	
	<td width="35" align="center"><div align="center"><font size="2">校服公分数1</font></div></td>
	<td width="26" align="center"><div align="center"><font size="2">校服公分数2</font></div></td>
    <td width="26" align="center"><div align="center"><font size="2">特困生</font></div></td>
	
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT zcb.EOF)) 
%>
    <tr>
      <%i=i+1%>
      <td height="25" align="center"><div align="center">
        <font size="2" color="#FF0000"><%= i %></font></div></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("pianhao").Value)%></font></td>
      <td align="center"><div align="center"><font size="2"><%=(zcb.Fields.Item("name").Value)%> 
      </font> </div></td>
      <td align="center"><div align="center">
        <%=(zcb.Fields.Item("一费制").Value)%></div></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("体检费").Value)%></font></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("早餐费").Value)%></font></td>
      <td align="center"><font size="2"><% if zcb.Fields.Item("class_1").Value<700 then 
response.write zcb.Fields.Item("校服费").Value/Recordset1.Fields.Item("xiaofux").Value
else 
response.write zcb.Fields.Item("校服费").Value/Recordset1.Fields.Item("xiaofuz").Value
end if 
%>套</font></td>
      <td align="center"><%=(zcb.Fields.Item("校服费").Value)%></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("住宿费").Value)%></font></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("作业本费").Value)%></font></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("学生奶").Value)%></font></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("合计").Value)%></font></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("缴费帐号").Value)%></font></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("校服号码").Value)%></font></td>
      <td align="center"><font size="2"><%=(zcb.Fields.Item("增订校服号码").Value)%></font></td>
	  <td align="center"><font size="2"><%=(zcb.Fields.Item("特困生").Value)%></font></td>
    </tr>
    <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  zcb.MoveNext()
Wend
%>
</table>
</div>
</body>
</html>
<%
zcb.Close()
Set zcb = Nothing
%>
<%
admin1.Close()
Set admin1 = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明

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