📄 homestuin4.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
Ta=request.form("Ta")
Tb=request.form("Tb")
Tc=request.form("Tc")
ID=Request.QueryString("stuID")
roomNo=Request.QueryString("a")
roomsex=Request.QueryString("sexs")
bedNo=Request.QueryString("bedno")
Set rvv=Server.Createobject("Adodb.RecordSet")
sqlvv = "Select * From [Student] Where ID="&ID
rvv.Open sqlvv,Conn,1,3
if not rvv.eof then
stuName=rvv("c")
className=rvv("b")
cN=A
rvv("f")=roomNo & "_" & bedNo
rvv.update
end if
Set rs=Server.Createobject("Adodb.RecordSet")
sql = "Select * From [HomeIO] Where (ID is null)"
rs.Open sql,Conn,1,3
rs.addNew
rs("a") = roomNo
rs("b") = ID
rs("c") = roomsex
rs("d") = Date()
rs("e") = bedNo
rs("g")= cN
rs("h") = "学生宿舍"
rs("i") = stuName
rs("k") = "."
rs("nam") =session("AdminUser")
rs("tim") = Now()
rs.Update
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("p")=Ta
ro("q")=Tb
ro("r")=stuName
ro("s")=className
ro("t")=roomNo
ro("z")=cN
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;
}
.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">
<tr align="center">
<td height="40" colspan="3"><span class="style1">上外贤达学院学生公寓管理收款收据</span></td>
</tr>
<tr>
<td width="70" align="right">缴 款 人:</td>
<td width="315"><%=stuName%></td>
<td width="215" align="right">日期:<%=Date()%></td>
</tr>
</table>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr align="center">
<td width="246" height="20">项目</td>
<td width="195">金额</td>
<td width="151">备注</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>" & Ta &"到" & Tb &"</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> </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> </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> </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> </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> </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> </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> </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> </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> </td></tr>"
end if
if i<5 then
for j=1 to 5-i
response.write "<tr align='center' height='20'><td>--------</td> <td>--------</td><td>--------</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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -