高手帮帮忙崩溃了- - - JavaScript论坛

问题点数：0 回复次数：7

高手帮帮忙崩溃了- -

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<script for="botton1" event= "onclick" language="vbscript">
dim salary,miuns,tax
function tax()
document.fr.submit
miuns=s1.value
salary=miuns-1600
if salary>=100000 then
tax=(salary-100000)*0.45+(25+150+450+3000+5000+6000+7000+8000)
else if salary>=80000 then
tax=(salary-80000)*0.40+(25+150+450+3000+5000+6000+7000)
else if salary>=60000 then
tax=(salary-60000)*0.35+(25+150+450+3000+5000+6000)
else if salary>=40000 then
tax=(salary-40000)*0.30+(25+150+450+3000+5000)
else if salary>=20000 then
tax=(salary-20000)*0.25+(25+150+450+3000)
else if salary>=5000 then
tax=(salary-5000)*0.20+(25+150+450)
else if salary>=2000 then
tax=(salary-2000)*0.15+(25+150)
else if salary>=500 then
tax=(salary-500)*0.10+25
else if salary>=0 then
tax=salary*0.05
else if then
tax=0
end if
tax=s2.value
miuns-tax=s3.value
end function
</script>
<form name="fr" method="post" action="#" >
<p>工资: <input oncinname="s1" type="text" size="20"/></p>
<p><input type="submit" name="button1" value="计算" onclick="tax()"/></p>
<p>税款:<input type="text" value="&s2&" size="20"/></p>
<p>税后:<input type="text" value="&s3&" size="20"/></p>
<p><input name="botton2" type="reset" value="重置" /></p>
</form>
</body>
</html>

[[it] 本帖最后由走一圈于 2008-10-1 22:53 编辑 [/it]]

搜索更多相关主题的帖子: content　PUBLIC　title　

第 2 楼

得分:0

.........无语又一个把 asp问题发到js版的.

另外 lz 光说帮忙. 也没说是什么问题 ....

第 3 楼

得分:0

我想用HTML写个税计算我现在的问题是我的vbscript的值没法返回给表

第 4 楼

得分:0

我才看仔细原来不是asp.. 条件反射了一见到vbs 就以为是asp........ 汗!!!

发这里确实没错.. 因为似乎真的没有 vbscript 版...

您说的计算好的值没法返回给表...

是什么意思?

第 5 楼

得分:0

我改好了不过了ASP版本要要用VB写成HTML 要怎么写

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="textml; charset=gb2312" />
<title>无标题文档</title>
</head>
<%
miuns=request("s1")
dim salary,miuns,tax,s
salary=miuns-1600
if salary>=100000 then
s=salary-100000
tax=s*0.45+25+150+450+3000+5000+6000+7000+8000
else if salary>=80000 then
s=salary-80000
tax=s*0.40+25+150+450+3000+5000+6000+7000
else if salary>=60000 then
s=salary-60000
tax=s*0.35+25+150+450+3000+5000+6000
else if salary>=40000 then
s=salary-40000
tax=s*0.30+25+150+450+3000+5000
else if salary>=20000 then
s=salary-20000
tax=s*0.25+25+150+450+3000
else if salary>=5000 then
s=salary-5000
tax=s*0.20+25+150+450
else if salary>=2000 then
s=salary-2000
tax=s*0.15+25+150
else if salary>=500 then
s=salary-500
tax=s*0.10+25
else if salary>=0 then
tax=salary*0.5
else if salary<0 then
tax=0
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if%>
<body>
<form method="post" action="tax.asp" >
<p>工资: <input id="s1" name="s1" type="text" size="20" value="<%=miuns%>"/></p>
<p><input type="submit" name="button1" value="计算"/></p>
<p>税款:<input id="s2" type="text" size="20" value="<%=tax%>"/></p>
<p>税后:<input id="s3" type="text" size="20" value="<%=miuns-tax%>"/> </p>
<p><input name="botton2" type="reset" value="重置" /></p>
</form>
</body>
<html>

第 6 楼

得分:0

先帮你优化一下程序结构

Select Case True
  Case Salary>=100000
    s=....
    Tax=...
  Case Salary>=80000
    s=....
    Tax=...
   ...
End Select

这样会简洁一些

第 7 楼

得分:0

恩　ＶＢ语法还真挺烦　多谢　ＨＴＭＬ　就不知道怎么写了

第 8 楼

得分:0

我不是一个随便的人，我随便起来不是人我哦。信不？