📄 feeinc.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Conn = hdobj.WeekaaConn()

Fa=trim(request.form("Fa"))
Fb=trim(request.form("Fb"))
Fc=trim(request.form("Fc"))
Fd=trim(request.form("Fd"))
Fe=trim(request.form("Fe"))
Ff=trim(request.form("Ff"))
Fg=trim(request.form("Fg"))
Fh=trim(request.form("Fh"))
Fi=trim(request.form("Fi"))
Fj=trim(request.form("Fj"))
if Fa="" then Fa=0 end if
if Fb="" then Fb=0 end if
if Fc="" then Fc=0 end if
if Fd="" then Fd=0 end if
if Fe="" then Fe=0 end if
if Ff="" then Ff=0 end if
if Fg="" then Fg=0 end if
if Fh="" then Fh=0 end if
if Fi="" then Fi=0 end if
if Fj="" then Fj=0 end if
Fa=Fa+0
Fb=Fb+0
Fc=Fc+0
Fd=Fd+0
Fe=Fe+0
Ff=Ff+0
Fg=Fg+0
Fh=Fh+0
Fi=Fi+0
Fj=Fj+0


Tc=request.form("Tc")
if Tc="" then
Tc="."
end if


ID=Request.QueryString("ID")
Cla=Request.QueryString("Cla")
Clas=Request.QueryString("Clas")
Nam=Request.QueryString("Nam")
room=Request.QueryString("room")
XQ=Request.QueryString("XQ")

Set ro=Server.Createobject("Adodb.RecordSet")
sqlo = "Select * From [Fee] Where (IDD is null)"
ro.Open sqlo,Conn,1,3
ro.addnew
ro("ID")=ID
ro("a")=Fa
ro("b")=Fb
ro("c")=Fc
ro("d")=Fd
ro("e")=Fe
ro("f")=Ff
ro("g")=Fg
ro("h")=Fh
ro("i")=Fi
ro("j")=Fj
ro("o")=Tc
ro("q")=XQ
ro("r")=Nam
ro("s")=clas
ro("t")=room
ro("z")=Cla
ro("nam")=session("AdminUser")
ro("tim")=now()
ro.update
taba="Fee"
Set stw = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&taba&"'"
stw.Open Sqstv,Conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #0099CC;
	background-image: url(../Image/bg.gif);
}
.style1 {
	font-size: 16px;
	font-family: "黑体";
}
-->
</style>
<script language=javascript>
function winclose()  {
   window.opener.location.reload();
   window.close();
  }
</script>
</head>

<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true"  onUnload="winclose();">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr align="center">
    <td height="30" colspan="5"><span class="style1"><%=session("SchoolName")%>学生缴费收款收据</span></td>
  </tr>
  <tr>
    <td width="70" align="right">缴 款 人:</td>
    <td width="157"><%=Nam%></td>
    <td width="158"><%=XQ%></td>
    <td width="134">日期:<%=Date()%></td>
    <td width="81">第1联 财务</td>
  </tr>
</table>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF">
  <tr align="center">
    <td width="289" height="20" >项　目</td>
    <td width="122">金　额</td>
    <td width="181">备　注</td>
  </tr>
<%
i=0
Feesum=0
if Fa<>0 then
Feesum=Feesum+Fa
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("a") & "</td> <td>" & Fa &"</td><td>　</td></tr>"
end if
if Fb<>0 then
Feesum=Feesum+Fb
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("b") & "</td> <td>" & Fb &"</td><td>&nbsp;</td></tr>"
end if

if Fc<>0 then
Feesum=Feesum+Fc
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("c") & "</td> <td>" & Fc &"</td><td>&nbsp;</td></tr>"
end if

if Fd<>0 then
Feesum=Feesum+Fd
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("d") & "</td> <td>" & Fd &"</td><td>&nbsp;</td></tr>"
end if
if Fe<>0 then
Feesum=Feesum+Fe
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("e") & "</td> <td>" & Fe &"</td><td>&nbsp;</td></tr>"
end if
if Ff<>0 then
Feesum=Feesum+Ff
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("f") & "</td> <td>" & Ff &"</td><td>&nbsp;</td></tr>"
end if

if Fg<>0 then
Feesum=Feesum+Fg
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("g") & "</td> <td>" & Fg &"</td><td>&nbsp;</td></tr>"
end if

if Fh<>0 then
Feesum=Feesum+Fh
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("h") & "</td> <td>" & Fh &"</td><td>&nbsp;</td></tr>"
end if

if Fi<>0 then
Feesum=Feesum+Fi
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("i") & "</td> <td>" & Fi &"</td><td>&nbsp;</td></tr>"
end if

if Fj<>0 then
Feesum=Feesum+Fj
i=i+1
response.write "<tr align='center' height='20'><td>" & Tc & "</td> <td>" & Fj &"</td><td>&nbsp;</td></tr>"
end if

if i<5 then
for j=1 to 5-i
response.write "<tr align='center' height='20'><td>&nbsp;</td> <td>--------</td><td>&nbsp;</td></tr>"
next
end if
Lo=Feesum
response.write "<tr align='center' height='20'><td colspan='3' align='center'>合计[人民币大写]:"
call sources(Feesum)
 response.write "　　小写：￥" & formatnumber(Lo,2) & "元</td></tr>"


sub sources(aa)
dim str(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"

hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
for i=1 to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: k= mynum&"分"
case 2: k= mynum&"角"
case 3: k= mynum&"元"
case 4: k= mynum&"拾"
case 5: k= mynum&"佰"
case 6: k= mynum&"仟"
case 7: k= mynum&"万"
case 8: k= mynum&"拾"
case 9: k= mynum&"佰"
case 10: k= mynum&"仟"
end select
m=m&k
next
response.write m
end sub
%> 
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="71" height="30" align="left">收款单位：</td>
    <td width="254" align="left"><%=session("SchoolName")%></td>
    <td width="80" align="left">会计:</td>
    <td width="81" align="left">出纳:</td>
    <td width="114" align="left">收费:<%=session("AdminUser")%></td>
  </tr>
  <tr>
    <td height="25" colspan="5" align="left">----------------------------------------------------------------------------------------------------</td>
  </tr>
</table>

<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr align="center">
    <td height="30" colspan="5"><span class="style1"><%=session("SchoolName")%>学生缴费收款收据</span></td>
  </tr>
  <tr>
    <td width="70" align="right">缴 款 人:</td>
    <td width="157"><%=Nam%></td>
    <td width="158"><%=XQ%></td>
    <td width="134">日期:<%=Date()%></td>
    <td width="81">第2联 记帐 </td>
  </tr>
</table>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF">
  <tr align="center">
    <td width="289" height="20" >项　目</td>
    <td width="122">金　额</td>
    <td width="181">备　注</td>
  </tr>
  <%
i=0
Feesum=0
if Fa<>0 then
Feesum=Feesum+Fa
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("a") & "</td> <td>" & Fa &"</td><td>　</td></tr>"
end if
if Fb<>0 then
Feesum=Feesum+Fb
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("b") & "</td> <td>" & Fb &"</td><td>&nbsp;</td></tr>"
end if

if Fc<>0 then
Feesum=Feesum+Fc
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("c") & "</td> <td>" & Fc &"</td><td>&nbsp;</td></tr>"
end if

if Fd<>0 then
Feesum=Feesum+Fd
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("d") & "</td> <td>" & Fd &"</td><td>&nbsp;</td></tr>"
end if
if Fe<>0 then
Feesum=Feesum+Fe
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("e") & "</td> <td>" & Fe &"</td><td>&nbsp;</td></tr>"
end if
if Ff<>0 then
Feesum=Feesum+Ff
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("f") & "</td> <td>" & Ff &"</td><td>&nbsp;</td></tr>"
end if

if Fg<>0 then
Feesum=Feesum+Fg
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("g") & "</td> <td>" & Fg &"</td><td>&nbsp;</td></tr>"
end if

if Fh<>0 then
Feesum=Feesum+Fh
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("h") & "</td> <td>" & Fh &"</td><td>&nbsp;</td></tr>"
end if

if Fi<>0 then
Feesum=Feesum+Fi
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("i") & "</td> <td>" & Fi &"</td><td>&nbsp;</td></tr>"
end if

if Fj<>0 then
Feesum=Feesum+Fj
i=i+1
response.write "<tr align='center' height='20'><td>" & Tc & "</td> <td>" & Fj &"</td><td>&nbsp;</td></tr>"
end if

if i<5 then
for j=1 to 5-i
response.write "<tr align='center' height='20'><td>&nbsp;</td> <td>--------</td><td>&nbsp;</td></tr>"
next
end if
Lo=Feesum
response.write "<tr align='center' height='20'><td colspan='3' align='center'>合计[人民币大写]:"
call sources(Feesum)
 response.write "　　小写：￥" & formatnumber(Lo,2) & "元</td></tr>"


sub sources(aa)
dim str(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"

hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
for i=1 to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: k= mynum&"分"
case 2: k= mynum&"角"
case 3: k= mynum&"元"
case 4: k= mynum&"拾"
case 5: k= mynum&"佰"
case 6: k= mynum&"仟"
case 7: k= mynum&"万"
case 8: k= mynum&"拾"
case 9: k= mynum&"佰"
case 10: k= mynum&"仟"
end select
m=m&k
next
response.write m
end sub
%>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="71" height="30" align="left">收款单位：</td>
    <td width="254" align="left"><%=session("SchoolName")%></td>
    <td width="80" align="left">会计:</td>
    <td width="81" align="left">出纳:</td>
    <td width="114" align="left">收费:<%=session("AdminUser")%></td>
  </tr>
  <tr>
    <td height="25" colspan="5" align="left">----------------------------------------------------------------------------------------------------</td>
  </tr>
</table>

<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr align="center">
    <td height="30" colspan="5"><span class="style1"><%=session("SchoolName")%>学生缴费收款收据</span></td>
  </tr>
  <tr>
    <td width="70" align="right">缴 款 人:</td>
    <td width="157"><%=Nam%></td>
    <td width="158"><%=XQ%></td>
    <td width="134">日期:<%=Date()%></td>
    <td width="81">第3联 学生</td>
  </tr>
</table>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF">
  <tr align="center">
    <td width="289" height="20" >项　目</td>
    <td width="122">金　额</td>
    <td width="181">备　注</td>
  </tr>
  <%
i=0
Feesum=0
if Fa<>0 then
Feesum=Feesum+Fa
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("a") & "</td> <td>" & Fa &"</td><td>　</td></tr>"
end if
if Fb<>0 then
Feesum=Feesum+Fb
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("b") & "</td> <td>" & Fb &"</td><td>&nbsp;</td></tr>"
end if

if Fc<>0 then
Feesum=Feesum+Fc
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("c") & "</td> <td>" & Fc &"</td><td>&nbsp;</td></tr>"
end if

if Fd<>0 then
Feesum=Feesum+Fd
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("d") & "</td> <td>" & Fd &"</td><td>&nbsp;</td></tr>"
end if
if Fe<>0 then
Feesum=Feesum+Fe
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("e") & "</td> <td>" & Fe &"</td><td>&nbsp;</td></tr>"
end if
if Ff<>0 then
Feesum=Feesum+Ff
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("f") & "</td> <td>" & Ff &"</td><td>&nbsp;</td></tr>"
end if

if Fg<>0 then
Feesum=Feesum+Fg
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("g") & "</td> <td>" & Fg &"</td><td>&nbsp;</td></tr>"
end if

if Fh<>0 then
Feesum=Feesum+Fh
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("h") & "</td> <td>" & Fh &"</td><td>&nbsp;</td></tr>"
end if

if Fi<>0 then
Feesum=Feesum+Fi
i=i+1
response.write "<tr align='center' height='20'><td>" & stw("i") & "</td> <td>" & Fi &"</td><td>&nbsp;</td></tr>"
end if

if Fj<>0 then
Feesum=Feesum+Fj
i=i+1
response.write "<tr align='center' height='20'><td>" & Tc & "</td> <td>" & Fj &"</td><td>&nbsp;</td></tr>"
end if

if i<5 then
for j=1 to 5-i
response.write "<tr align='center' height='20'><td>&nbsp;</td> <td>--------</td><td>&nbsp;</td></tr>"
next
end if
Lo=Feesum
response.write "<tr align='center' height='20'><td colspan='3' align='center'>合计[人民币大写]:"
call sources(Feesum)
 response.write "　　小写：￥" & formatnumber(Lo,2) & "元</td></tr>"


sub sources(aa)
dim str(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"

hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
for i=1 to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: k= mynum&"分"
case 2: k= mynum&"角"
case 3: k= mynum&"元"
case 4: k= mynum&"拾"
case 5: k= mynum&"佰"
case 6: k= mynum&"仟"
case 7: k= mynum&"万"
case 8: k= mynum&"拾"
case 9: k= mynum&"佰"
case 10: k= mynum&"仟"
end select
m=m&k
next
response.write m
end sub
%>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="71" height="30" align="left">收款单位：</td>
    <td width="254" align="left"><%=session("SchoolName")%></td>
    <td width="80" align="left">会计:</td>
    <td width="81" align="left">出纳:</td>
    <td width="114" align="left">收费:<%=session("AdminUser")%></td>
  </tr>
</table>
<blockquote>
  <p align="center">&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
</blockquote>
</body>
</html>
💿 文件大小 15247 K
👤 上传用户 lwp
📂 所属分类其他行业
🏷️ 相关标签

#信息化管理系统 #个性化 #美的 #操作
⌨️ 快捷键说明

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