求助(asp代码的工资计算器老是出问题,求高手帮我完成下,不甚感激)
具体想实现的功能是,输入底薪、业绩、请假次数,日工资、迟到次数,迟到扣减,得出具体结果。输入底薪、业绩、日工资(其他不写为空时)也能得出具体结果,不出错。
我的代码如下:
<%
message = ""
rmb = 0
if request("submit")="计算" And Len(Trim(request("dxRMB")))>0 Then
If Not IsNumeric(request("dxRMB")) Then
message = "输入的金额有错误"
else
rmb = FormatNumber(request("dxRMB"))
response.write "您的底薪是:¥" & rmb & "<br>"
End if
End if
if request("submit")="计算" And Len(Trim(request("RMB")))>0 Then
If Not IsNumeric(request("RMB")) Then
message = "输入的金额有错误"
else
rmb = FormatNumber(request("RMB"))
response.write "您的业绩是:¥" & rmb & "<br>"
End if
End if
%>
<%
qjcs = ""
if request("qjcs") = "" Then
If Not IsNumeric(request("qjcs")) Then
message = "输入的金额有错误"
else
rmb = FormatNumber(request("dxRMB"))
response.write "您的底薪是:¥" & rmb & "<br>"
End if
End if
if request("submit")="计算" And Len(Trim(request("RMB")))>0 Then
If Not IsNumeric(request("RMB")) Then
message = "输入的金额有错误"
else
rmb = FormatNumber(request("RMB"))
response.write "您的请假扣除额:¥" & rmb & "<br>"
End if
End if
%>
<form action="" method="post">
<p>请输入您的底薪:
<input type="text" name="dxRMB" size="10">
请输入您的业绩:
<input type="text" name="RMB" size="10">
</p>
<p>请输入请假次数:
<input type="text" name="qjcs" size="10" />
本月工作日时间:
<input type="text" name="gzr" size="10" />
</p>
<p>请输入迟到次数:
<input type="text" name="cdcs" size="10" />
单次迟到扣除额:
<input type="text" name="cdRMB" size="10" />
</p>
<p>
<input name="submit" type="submit" value="计算">
</p>
</form>
<div id="MSG"></div>
<%
If rmb>0 Then
rate1 = 0.10
rate2 = 0.15
rate3 = 0.20
yourSal = 0 '初始化?的提成?0元
If rmb<=5000 Then
yourSal = rmb * rate1
ElseIf rmb<=15000 Then
yourSal = (rmb-5000) * rate2+5000*rate1
Else
yourSal = 5000*rate1+10000* rate2 + (rmb-15000) * rate3
End If
yourSal = FormatNumber(yourSal)
'yourdx = FormatNumber(request("dxRMB"))
yourgongzi = yourSal + clng(request("dxRMB"))-(yourSal + clng(request("dxRMB")))/clng(request("gzr"))*clng(request("qjcs"))-clng(request("cdcs"))*clng(request("cdRMB"))
response.write"<script>document.getElementById('MSG').innerHTML = '您的提成是:¥" & yourgongzi & "';</script>"
else
response.write"<script>document.getElementById('MSG').innerHTML = '" & message & "';</script>"
end if
%>
补充:.NET技术 , ASP.NET