📄 feeinb.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Conn = hdobj.WeekaaConn()
%>
<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: #DEE7FF;
background-image: url(../Image/bg.gif);
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style2 {
font-family: "黑体";
font-size: 18;
color: #FF0000;
}
.style3 {color: #FF0000}
.STYLE4 {
font-size: 16px;
font-family: "黑体";
color: #FF0000;
}
.style5 {color: #FF0000;font-size: 18px}
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
function accu()
{
with(document.form1){
sa=Fa.value;
sa=parseFloat(sa);
sb=Fb.value;
sb=parseFloat(sb);
sc=Fc.value;
sc=parseFloat(sc);
sd=Fd.value;
sd=parseFloat(sd);
se=Fe.value;
se=parseFloat(se);
sf=Ff.value;
sf=parseFloat(sf);
sg=Fg.value;
sg=parseFloat(sg);
sh=Fh.value;
sh=parseFloat(sh);
si=Fi.value;
si=parseFloat(si);
sj=Fj.value;
sj=parseFloat(sj);
ssum=sa+sb+sc+sd+se+sf+sg+sh+si+sj;
Fsum.value="￥" + ssum + "元"
Fsum.value=Fsum.value.toString();}
}
</script>
</head>
<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true" >
<%
taba="Fee"
Set stw = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&taba&"'"
stw.Open Sqstv,Conn,1,3
p=0
Le=trim(Request.QueryString("Le"))
Ld=trim(Request.QueryString("Ld"))
Lc=trim(Request.QueryString("Lc"))
Cla=trim(Request.QueryString("Cla"))
ID=request("ID")
ID=ID*1
XQ=ID
XQ=XQ & "x"
XQ=request(XQ)
rba=0
rbb=0
rbc=0
rbd=0
rbe=0
rbf=0
rbg=0
rbh=0
rbi=0
rbj=0
rfa=0
rfb=0
rfc=0
rfd=0
rfe=0
rff=0
rfg=0
rfh=0
rfi=0
rfj=0
xa=0
xb=0
xc=0
xd=0
xe=0
xf=0
xg=0
xh=0
xi=0
xj=0
if Le="A" or Le="B" then
Set rv=Server.Createobject("Adodb.RecordSet")
sqlv = "Select * From [student] Where ID="&ID
rv.Open sqlv,Conn,1,3
Nam=rv("c")
Clas=rv("b")
room=rv("f")
sex=rv("d")
Set rb=Server.Createobject("Adodb.RecordSet")
sqlb = "Select * From [FeeB] Where x='"& XQ & "' and y='"& Clas &"'"
rb.Open sqlb,Conn,1,3
if not rb.eof then
rba=rb("a")
rbb=rb("b")
rbc=rb("c")
rbd=rb("d")
rbe=rb("e")
rbf=rb("f")
rbg=rb("g")
rbh=rb("h")
rbi=rb("i")
rbj=rb("j")
rba=rba+0
rbb=rbb+0
rbc=rbc+0
rbd=rbd+0
rbe=rbe+0
rbf=rbf+0
rbg=rbg+0
rbh=rbh+0
rbi=rbi+0
rbj=rbj+0
end if
rfa=0
rfb=0
rfc=0
rfd=0
rfe=0
rff=0
rfg=0
rfh=0
rfi=0
rfj=0
Set rf = Server.CreateObject("ADODB.RecordSet")
Sqlf = "Select * From Fee where q='"& XQ &"' and ID='"& ID &"'"
rf.Open Sqlf, Conn, 1, 3
Do While Not rf.EOF
rffa=rf("a")
rffb=rf("b")
rffc=rf("c")
rffd=rf("d")
rffe=rf("e")
rfff=rf("f")
rffg=rf("g")
rffh=rf("h")
rffi=rf("i")
rffj=rf("j")
rfa=0+rfa+rffa
rfb=0+rfb+rffb
rfc=0+rfc+rffc
rfd=0+rfd+rffd
rfe=0+rfe+rffe
rff=0+rff+rfff
rfg=0+rfg+rffg
rfh=0+rfh+rffh
rfi=0+rfi+rffi
rfj=0+rfj+rffj
rf.MoveNext
Loop
xa=0+rba-rfa
xb=0+rbb-rfb
xc=0+rbc-rfc
xd=0+rbd-rfd
xe=0+rbe-rfe
xf=0+rbf-rff
xg=0+rbg-rfg
xh=0+rbh-rfh
xi=0+rbi-rfi
xj=0+rbj-rfj
end if
if Le="C" then
Nam=Lc
Clas=Lc
room="C"
end if
if Le="D" then
Nam=Ld
Clas=Ld
room="D"
end if
%>
<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="bottom" background="../Image/bg01a.jpg"> </td>
</tr>
<tr>
<td height="600" align="center" valign="top" bgcolor="#3399FD">
<p> </p>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF" bgcolor="#FFFFFF">
<form name="form1" method="post" action="FeeInc.asp?ID=<%=ID%>&Cla=<%=Cla%>&Nam=<%=Nam%>&Clas=<%=Clas%>&room=<%=room%>&XQ=<%=XQ%>">
<tr align="center" >
<td height="30" colspan="12" class="style2" background="../../Image/bg01.jpg"> </td>
</tr>
<tr align="center">
<td height="40" colspan="12" class="style2"><%=session("SchoolName")%>学生缴费</td>
</tr>
<%if Le="A" or Le="B" then
response.write "<tr align='center'>"
response.write "<td height='30' colspan='2'>姓名</td>"
response.write "<td class='style2' colspan='2'><a href='FeePer.asp?ID="& ID &"' target='_blank'>" & Nam & "</a></td>"
response.write "<td colspan='2'>缴费学期</td>"
response.write "<td class='style2' colspan='2'>"& XQ &"</td>"
response.write "<td colspan='2'>班级</td>"
response.write "<td class='style2' colspan='2'>" & Clas &"</td></tr>"
else
response.write "<tr align='center'>"
response.write "<td height='30' colspan='6'>缴费单位或宿舍</td>"
response.write "<td colspan='6'>"& Nam &"</td></tr>"
end if%>
<tr align="center" height="30">
<td height="30" bgcolor="#FFFFFF">费用名</td>
<td bgcolor="#FFFFFF">现缴</td>
<td bgcolor="#FFFFFF">标准</td>
<td bgcolor="#FFFFFF">已缴</td>
<td height="30" bgcolor="#FFFFFF">费用名</td>
<td bgcolor="#FFFFFF">现缴</td>
<td bgcolor="#FFFFFF">标准</td>
<td bgcolor="#FFFFFF">已缴</td>
<td height="30" bgcolor="#FFFFFF">费用名</td>
<td bgcolor="#FFFFFF">现缴</td>
<td bgcolor="#FFFFFF">标准</td>
<td bgcolor="#FFFFFF">已缴</td>
</tr>
<tr align="center" height="30">
<td width="9%" height="30"><%=stw("a")%></td>
<td width="9%"><input name="Fa" type="text" id="Fa" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xa%>" size="8"></td>
<td width="8%"><%=rba%></td>
<td width="8%"><%=rfa%></td>
<td width="8%"><%=stw("b")%></td>
<td width="8%"><input name="Fb" type="text" id="Fb" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xb%>" size="8"></td>
<td width="8%"><%=rbb%></td>
<td width="8%"><%=rfb%></td>
<td width="8%"><%=stw("c")%></td>
<td width="8%"><input name="Fc" type="text" id="Fc" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xc%>" size="8"></td>
<td width="9%"><%=rbc%></td>
<td width="9%"><%=rfc%></td>
</tr>
<tr align="center">
<td height="30"><%=stw("d")%></td>
<td><input name="Fd" type="text" id="Fd" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xd%>" size="8"></td>
<td><%=rbd%></td>
<td><%=rfd%></td>
<td><%=stw("e")%></td>
<td><input name="Fe" type="text" id="Fe" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xe%>" size="8"></td>
<td><%=rbe%></td>
<td><%=rfe%></td>
<td><%=stw("f")%></td>
<td><input name="Ff" type="text" id="Ff" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xf%>" size="8"></td>
<td><%=rbf%></td>
<td><%=rff%></td>
</tr>
<tr align="center">
<td height="30"><%=stw("g")%></td>
<td><input name="Fg" type="text" id="Fg" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xg%>" size="8"></td>
<td><%=rbg%></td>
<td><%=rfg%></td>
<td><%=stw("h")%></td>
<td><input name="Fh" type="text" id="Fh" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xh%>" size="8"></td>
<td><%=rbh%></td>
<td><%=rfh%></td>
<td><%=stw("i")%></td>
<td><input name="Fi" type="text" id="Fi" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xi%>" size="8"></td>
<td><%=rbi%></td>
<td><%=rfi%></td>
</tr>
<tr align="center">
<td height="30"><input name="Tc" type="text" id="Tc" size="10"></td>
<td><input name="Fj" type="text" id="Fj" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=xj%>" size="8"></td>
<td><%=rbj%></td>
<td><%=rfj%></td>
<td colspan="3"><span class="STYLE4">本次缴费合计</span></td>
<td colspan="4"><input name="Fsum" type="text" id="Fsum" size="10" style='background-color: #FFFFFF; border-color: #FF0000; border-style: solid; border-width: 0px 0px 0px 0px, font-family:Verdana,Arial; font-size: 14pt; color: #FF0000'></td>
<td> </td>
</tr>
<tr align="center">
<td height="45" colspan="12"><input type="submit" name="Submit" value="缴 费"></td>
</tr> </form><%if Le="A" or Le="B" then %>
<tr align="center">
<td height="30" colspan="12"><table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" align="center" valign="middle"><span class="style2"><%=Nam%> 历次缴费情况</span></td>
</tr>
<tr>
<td align="center"><%call hdobj.FeePer(ID)%></td>
</tr>
<tr>
<td height="30" align="center"> </td>
</tr>
</table></td>
</tr><%end if%>
<tr align="center">
<td height="30" colspan="12" background="../../Image/bg01.jpg"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -