您所在位置：主题：批量录入,批量编辑
sldd
[专家分：0] 发布于 2007-04-04 14:34:00
一个ASP 的设备故障报修和故障处理程序,为什 其中的一个字段 故障原因字段 无法复制啊! 我
部分代码如下:
<%sub announce(id)
tem_id=id
Set my_rs=server.CreateObject("ADODB.Recordset")
strSql="select * from jhtsbxl where id="&amp;amp;amp;tem_id&amp;amp;amp;""
my_rs.Open StrSqL,my_Conn,1,3
temp=my_rs("dada_jilu_id")
temp_1=my_rs("设备名称")
temp_2=my_rs("设备编号")
temp_3=my_rs("设备规格型号")
temp_4=my_rs("产品序列号")
temp_5=my_rs("设备负责人")
temp_66=my_rs("生产厂商")
temp_6=my_rs("设备提供")
temp_7=my_rs("报修人")
temp_8=my_rs("报修人部门")
temp_9=my_rs("报修方式")
temp_10=my_rs("故障时间")
temp_14=my_rs("故障原因")
temp_12=request("guzhchli")
temp_13=my_rs("报修时间")
my_rs.delete
my_rs.Update
my_rs.close
Set my_rs=nothing
Set my_rrs= Server.CreateObject("ADODB.Recordset")
Sql="select * from xlhistory"
my_rrs.Open Sql,my_Conn,1,3
my_rrs.addnew
my_rrs("dada_jilu_id")=tem_id
my_rrs("部门")=myUpart
my_rrs("设备名称")=temp_1
my_rrs("设备编号") = temp_2
my_rrs("设备规格型号")=temp_3
my_rrs("产品序列号")=temp_4
my_rrs("设备负责人")=temp_5
my_rrs("生产厂商") =temp_6
my_rrs("设备提供") =temp_66
my_rrs("报修人")=temp_7
my_rrs("报修人部门")=temp_8
my_rrs("报修方式")=temp_9
my_rrs("故障时间")=temp_10
my_rrs("故障处理")=temp_12
[B] my_rrs("故障原因")＝temp_14 出错行[/B] my_rrs("修后状态")=request("zhuangtai")
my_rrs("报修时间") =temp_13
my_rrs("添加时间")=now()
my_rrs.Update
my_rrs.close
Set my_rrs=nothing
Set my_rrs= Server.CreateObject("ADODB.Recordset")
Sql="select * from jhtdata where id="&amp;amp;amp;temp&amp;amp;amp;""
my_rrs.Open Sql,my_Conn,1,3
my_rrs("运行状况")=request("zhuangtai")
my_rrs.Update
my_rrs.close
Set my_rrs=nothing
end sub
%>
错误信息如下
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/online_shebeigli/xiu_guzhchuli_chuli.asp，行113
my_rrs("故障原因")＝temp_14
---------^
[B]jhtsbxl 和xlhistory 是两个含有部分现同字段的表,这段代码的目的就是把jhtsbxl表的部分字段拷到xlhistory,不知为什么故障原因字段无法拷贝, 故障原因一开始是备注字段,后来改为文本字段,也不行![/B]
部分代码如下:
<%sub announce(id)
tem_id=id
Set my_rs=server.CreateObject("ADODB.Recordset")
strSql="select * from jhtsbxl where id="&amp;amp;amp;tem_id&amp;amp;amp;""
my_rs.Open StrSqL,my_Conn,1,3
temp=my_rs("dada_jilu_id")
temp_1=my_rs("设备名称")
temp_2=my_rs("设备编号")
temp_3=my_rs("设备规格型号")
temp_4=my_rs("产品序列号")
temp_5=my_rs("设备负责人")
temp_66=my_rs("生产厂商")
temp_6=my_rs("设备提供")
temp_7=my_rs("报修人")
temp_8=my_rs("报修人部门")
temp_9=my_rs("报修方式")
temp_10=my_rs("故障时间")
temp_14=my_rs("故障原因")
temp_12=request("guzhchli")
temp_13=my_rs("报修时间")
my_rs.delete
my_rs.Update
my_rs.close
Set my_rs=nothing
Set my_rrs= Server.CreateObject("ADODB.Recordset")
Sql="select * from xlhistory"
my_rrs.Open Sql,my_Conn,1,3
my_rrs.addnew
my_rrs("dada_jilu_id")=tem_id
my_rrs("部门")=myUpart
my_rrs("设备名称")=temp_1
my_rrs("设备编号") = temp_2
my_rrs("设备规格型号")=temp_3
my_rrs("产品序列号")=temp_4
my_rrs("设备负责人")=temp_5
my_rrs("生产厂商") =temp_6
my_rrs("设备提供") =temp_66
my_rrs("报修人")=temp_7
my_rrs("报修人部门")=temp_8
my_rrs("报修方式")=temp_9
my_rrs("故障时间")=temp_10
my_rrs("故障处理")=temp_12
[B] my_rrs("故障原因")＝temp_14 出错行[/B] my_rrs("修后状态")=request("zhuangtai")
my_rrs("报修时间") =temp_13
my_rrs("添加时间")=now()
my_rrs.Update
my_rrs.close
Set my_rrs=nothing
Set my_rrs= Server.CreateObject("ADODB.Recordset")
Sql="select * from jhtdata where id="&amp;amp;amp;temp&amp;amp;amp;""
my_rrs.Open Sql,my_Conn,1,3
my_rrs("运行状况")=request("zhuangtai")
my_rrs.Update
my_rrs.close
Set my_rrs=nothing
end sub
%>
错误信息如下
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/online_shebeigli/xiu_guzhchuli_chuli.asp，行113
my_rrs("故障原因")＝temp_14
---------^
[B]jhtsbxl 和xlhistory 是两个含有部分现同字段的表,这段代码的目的就是把jhtsbxl表的部分字段拷到xlhistory,不知为什么故障原因字段无法拷贝, 故障原因一开始是备注字段,后来改为文本字段,也不行![/B]