📄 yewtzsave.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<!--#include file="Global.asp" -->
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>滞纳金</title>
</head>
<body>
<%if session("name")<>"" then
if request("radio")="" then
response.write("请输入缴费选项")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title")="" then
response.write("请输入园区！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title0")="" then
response.write("请输入业主姓名！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title1")="" then
response.write("请输入楼号！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title2")="" or request("title3")="" then
response.write("请输入起始年月！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title4")="" or request("title5")="" then
response.write("请输入终止年月！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title20")="" or request("title21")="" then
response.write("请输入滞纳金结算期年月！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title18")="" then
response.write("请输入欠费金额！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
if request("title8")="" then
response.write("请输入滞纳金比例！")%>
<input type=button value="返回录入" onclick="history.back()" id=button2 name=button2>
<% response.end
end if
sj1=request("title4")-request("title2")
sj2=request("title5")-request("title3")+1
sj3=0
if sj1>0 then
sj3=sj1*12
end if
sj4=sj2+sj3
sj5=sj4*30
sj11=request("title20")-request("title2")
sj12=request("title21")-request("title3")+1
sj13=0
if sj11>0 then
sj13=sj11*12
end if
sj14=sj12+sj13
sj15=sj14*30
'response.write(sj4)
'response.write("<br>")
'response.write(sj14)
' response.end
sj41=0
sj42=0
for s1=1 to sj4
sj41=sj41+sj14-s1+1
next
' response.write("<br>")
' response.write("滞纳金：")
' response.write(sj41)
'response.write("<br>")
'response.end
sj42=sj41*30
if request("radio")="按日" then
sj6=(request("title8")*sj41*30*request("title18"))
else
sj7=(request("title8")*sj41*request("title18"))/12
end if
response.write("园区：")
response.write(request("title"))
response.write("<br>")
response.write("业主姓名：")
response.write(request("title0"))
response.write("<br>")
response.write("楼号：")
response.write(request("title1"))
response.write("<br>")
response.write("欠费起始年：")
response.write(request("title2"))
response.write("月：")
response.write(request("title3"))
response.write("<br>")
response.write("欠费终止年：")
response.write(request("title4"))
response.write("月：")
response.write(request("title5"))
response.write("<br>")
response.write("滞纳金结算期年：")
response.write(request("title20"))
response.write("月：")
response.write(request("title21"))
response.write("<br>")
response.write("缴费选项：")
response.write(request("radio"))
response.write("<br>")
response.write("欠费金额：")
response.write(request("title18"))
response.write("<br>")
response.write("滞纳金比例：")
response.write(request("title8"))
response.write("<br>")
response.write("累计月数：")
response.write(sj41)
response.write("<br>")
response.write("累计天数：")
response.write(sj42)
response.write("<br>")
response.write("滞纳金：")
if request("radio")="按月" then
response.write(sj7)
else
response.write(sj6)
end if
'response.write(request("a1"))
'response.write("<br>")
' response.end
if request("a1")="是" then
'dim rs1
'set rs1=server.CreateObject("adodb.recordset")
'rs1.Open "yuanq",conn,2,2
sql="select * from zhinj "
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,2,2
rs1.addnew
rs1("yuanq")=request("title0")
rs1("yezxm")=request("title")
rs1("louh")=request("title1")
rs1("dianh")=request("title6")
rs1("qianfqn")=request("title2")
rs1("qianfqy")=request("title3")
rs1("qianfzn")=request("title4")
rs1("qianfzy")=request("title5")
rs1("jiaofxx")=request("radio")
rs1("qianfje")=request("title18")
rs1("zhinjbl")=request("title8")
rs1("leijts")=sj42
rs1("leijys")=sj41
if request("radio")="按月" then
rs1("zhinj")=sj7
else
rs1("zhinj")=sj6
end if
rs1("jiesqn")=request("title20")
rs1("jiesqy")=request("title21")
rs1.update
rs1.close
set rs1=nothing
end if
%>
<body topmargin="10" leftmargin="60">
<P>滞纳金提交成功</p>
<p><a href="yewtzluru.asp">返回</a></p>
</body>
<%else%>
<body topmargin="10" leftmargin="60">
<P>您没有登陆或登陆长时间内没有操作，账号已过期</p>
<p><a href="JIMDENGLU.asp">请重新登陆</a></p>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -