谁能帮我翻译一下下面的编程代码~~~~~~急用~~~~~~~悬赏100积分~~~~~~~

2024-12-15 21:25:57
推荐回答(1个)
回答1:

<%
set conn=server.createobject("adodb.connection")//得到一个数据库连接对象
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("cbkz.mdb")//打开数据库连接,后面的字符串是连接

字符串
%>
<%
exec="select * from zjcl"//要执行查询的sql代码
set rs=server.createobject("adodb.recordset")//得到一个数据集对象(游标)
rs.open exec,conn,1,1 //执行查询
%>
计算直接材料标准成本















<%do while not rs.eof%>//循环检查,如果有记录就输出到页面









//动态生成id的值


<%
rs.movenext //游标移到下一条记录
loop //循环
%>
直接材料
产品编号产品名称材料编号材料名称预计发票单价装卸检验等成本材料设计用量允许耗损量<%=" "%>增加
<%=rs("cpbh")%><%=rs("cpmc")%><%=rs("clbh")%><%=rs("clmc")%><%=rs("yjfpdj")%><%=rs("zxjydcb")%><%=rs("clsjyl")%><%=rs("yxhsl")%>">修改">删除


//下面的代码是一个表单,提交到zjcl_addresult.asp页面
add.asp代码如下:














addresult.asp代码如下:
<%set conn=server.createobject("adodb.connection")//得到一个数据库连接对象
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("cbkz.mdb")//打开连接
//从上面的那个表单中得到提交的参数,并且赋值给相应的变量
cpbh=request.form("cpbh")
cpmc=request.form("cpmc")
clbh=request.form("clbh")
clmc=request.form("clmc")
yjfpdj=request.form("yjfpdj")
zxjydcb=request.form("zxjydcb")
clsjyl=request.form("clsjyl")
yxhsl=request.form("yxhsl")
//根据变量,设置好要执行的SQL语句
exec="insert into zjcl(cpbh,cpmc,clbh,clmc,yjfpdj,zxjydcb,clsjyl,yxhsl)values

('"+cpbh+"','"+cpmc+"','"+clbh+"','"+clmc+"',"+yjfpdj+","+zxjydcb+","+clsjyl+","+yxhsl+")"
conn.execute exec//开始执行
conn.close //关闭连接
set conn=nothing //释放连接对象
response.redirect"zjcl_edit.asp"%> //跳转到zjcl_edit.asp页面

增加直接材料资料
产品编号
产品名称
材料编号
材料名称
预计发票单价
装卸检验等成本
材料设计用量
允许耗损量