大家好！我刚刚开始学习asp！有一个问题想问问大家！不胜感激。我经常在硬件及网络版里！

hsdngzs 2004-11-21 06:18:40

---------------------------------------------------------下面是asp文件。
<% @language=vbscript %>
<%
dim ysjg
dim one
dim two
dim ysf
response.write "<font>第一个数值</font>" response.write request.form("one")&"<br>"
response.write "<font>第运算数值</font>" response.write request.form("ysf")&"<br>"
response.write "<font>第二个数值</font>" response.write request.form("two")&"<br>"
done=trim(request.form("one"))
dysf=trim(request.form("ysf"))
dtwo=trim(request.form("two"))
select case ysf
case "/"
ysjg=clng(done)/clng(dtwo)
response.write done&dysf&dtwo"="&ysjg
case "*"
ysjg=clng(done)*clng(dtwo)
response.write done&dysf&dtwo"="&ysjg
case "+"
ysjg=clng(done)+clng(dtwo)
response.write done&dysf&dtwo"="&ysjg
case "_"
ysjg=clng(done)-clng(dtwo)
response.write done&dysf&dtwo"="&ysjg
end select
%>
---------------------------------------------------------------------下面是html文件！
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<form action="33.asp" method="post">
<p><font color="red" size=5>您好：欢迎您使用这个程序。这是一个计算程序</font></p>
请您输入第一个数值<input type="text" name="one">
请您输入运算符<input type="Text" name="ysf">
请您输入第二个数值<input type="text" name="two">
<input type="submit" name="ok" value="请提交您的结果">
<input type="reset" name="reset" value="没有输入好么？请重输">
</form>
</BODY>
</HTML>
------------------------------------------------已经在iis下执行
提示第八句没有结束！！

...全文

65 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

jiangchunming 2004-11-21

打赏
举报

<% @language=vbscript %>
<%
dim ysjg
dim one
dim two
dim ysf
response.write "<font>第一个数值</font>"
response.write request.form("one")&"<br>"
response.write "<font>第运算数值</font>"
response.write request.form("ysf")&"<br>"
response.write "<font>第二个数值</font>"
response.write request.form("two")&"<br>"
done=trim(request.form("one"))
dysf=trim(request.form("ysf"))
dtwo=trim(request.form("two"))
select case ysf
case "/"
ysjg=clng(done)/clng(dtwo)
response.write done & dysf & dtwo & "=" & ysjg
case "*"
ysjg=clng(done)*clng(dtwo)
response.write done&dysf&dtwo&"="&ysjg
case "+"
ysjg=clng(done)+clng(dtwo)
response.write done&dysf&dtwo&"="&ysjg
case "_"
ysjg=clng(done)-clng(dtwo)
response.write done&dysf&dtwo&"="&ysjg
end select
%>
这样就行了