asp 数据库中的乘除法计算

发布网友 发布时间：2022-04-29 17:23

我来回答

共3个回答

热心网友 时间：2023-10-23 08:50

直接这样写会有问题，要确定a,b,c均为整形，且c不能为0

按照计算公式这样写是没有问题的,最好写为：

dim a,b,c,d
a=Cint(request.Form("a"))
b=Cint(request.Form("b"))
c=Cint(request.Form("c"))
if c=0 then
response.end
end if
d=Cint(a*b/c) '如果数据库不是整形字段的话可以去掉Cint
rs("d")=d

热心网友 时间：2023-10-23 08:50

你是说a,b,c,d在数据库中的情况吧？
首先应该和库建立连接，然后创建数据集rs,读取数据库中的相关记录信息，楼上提到的request.form("a")等是从表单中传递过来的信息
连接数据库的页面conn.asp
<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:51

<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:50

直接这样写会有问题，要确定a,b,c均为整形，且c不能为0

按照计算公式这样写是没有问题的,最好写为：

dim a,b,c,d
a=Cint(request.Form("a"))
b=Cint(request.Form("b"))
c=Cint(request.Form("c"))
if c=0 then
response.end
end if
d=Cint(a*b/c) '如果数据库不是整形字段的话可以去掉Cint
rs("d")=d

热心网友 时间：2023-10-23 08:50

直接这样写会有问题，要确定a,b,c均为整形，且c不能为0

按照计算公式这样写是没有问题的,最好写为：

dim a,b,c,d
a=Cint(request.Form("a"))
b=Cint(request.Form("b"))
c=Cint(request.Form("c"))
if c=0 then
response.end
end if
d=Cint(a*b/c) '如果数据库不是整形字段的话可以去掉Cint
rs("d")=d

热心网友 时间：2023-10-23 08:50

你是说a,b,c,d在数据库中的情况吧？
首先应该和库建立连接，然后创建数据集rs,读取数据库中的相关记录信息，楼上提到的request.form("a")等是从表单中传递过来的信息
连接数据库的页面conn.asp
<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:50

你是说a,b,c,d在数据库中的情况吧？
首先应该和库建立连接，然后创建数据集rs,读取数据库中的相关记录信息，楼上提到的request.form("a")等是从表单中传递过来的信息
连接数据库的页面conn.asp
<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:51

<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:50

直接这样写会有问题，要确定a,b,c均为整形，且c不能为0

按照计算公式这样写是没有问题的,最好写为：

dim a,b,c,d
a=Cint(request.Form("a"))
b=Cint(request.Form("b"))
c=Cint(request.Form("c"))
if c=0 then
response.end
end if
d=Cint(a*b/c) '如果数据库不是整形字段的话可以去掉Cint
rs("d")=d

热心网友 时间：2023-10-23 08:51

<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:50

你是说a,b,c,d在数据库中的情况吧？
首先应该和库建立连接，然后创建数据集rs,读取数据库中的相关记录信息，楼上提到的request.form("a")等是从表单中传递过来的信息
连接数据库的页面conn.asp
<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:51

<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:50

直接这样写会有问题，要确定a,b,c均为整形，且c不能为0

按照计算公式这样写是没有问题的,最好写为：

dim a,b,c,d
a=Cint(request.Form("a"))
b=Cint(request.Form("b"))
c=Cint(request.Form("c"))
if c=0 then
response.end
end if
d=Cint(a*b/c) '如果数据库不是整形字段的话可以去掉Cint
rs("d")=d

热心网友 时间：2023-10-23 08:50

你是说a,b,c,d在数据库中的情况吧？
首先应该和库建立连接，然后创建数据集rs,读取数据库中的相关记录信息，楼上提到的request.form("a")等是从表单中传递过来的信息
连接数据库的页面conn.asp
<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:51

<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:50

直接这样写会有问题，要确定a,b,c均为整形，且c不能为0

按照计算公式这样写是没有问题的,最好写为：

dim a,b,c,d
a=Cint(request.Form("a"))
b=Cint(request.Form("b"))
c=Cint(request.Form("c"))
if c=0 then
response.end
end if
d=Cint(a*b/c) '如果数据库不是整形字段的话可以去掉Cint
rs("d")=d

热心网友 时间：2023-10-23 08:50

你是说a,b,c,d在数据库中的情况吧？
首先应该和库建立连接，然后创建数据集rs,读取数据库中的相关记录信息，楼上提到的request.form("a")等是从表单中传递过来的信息
连接数据库的页面conn.asp
<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>

热心网友 时间：2023-10-23 08:51

<%
set conn=server.createobject("adodb.connection")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库的相对路径")
conn.open(strconn)
set rs=server.createobject("adodb.recordset")
sql="select *from 数据表名"
rs.open sql,conn,1,3
dim a,b,c,d
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
if c=0 then
response.write("数据有错误")
else
d=cint(a*b/c)
rs("d")=d
rs.update
rs.close
set rs=nothing
%>