useinsert2.asp
来自「应用程序利用ＡＳＰ做的一个可以实现登陆」· ASP 代码 · 共 276 行
ASP
276 行
<!--#include file="../conn.asp"-->
<!--#include file="../getlevel.asp"-->
<html>
<body bgcolor="#567D30">
<%
equipid=request.form("eq1")
name1=request.form("eqname2")
outtime=request.form("eq2")
intime=request.form("eq3")
charger=request.form("eq4")
sancifier=request.form("eq5")
task=request.form("eq6")
style=request.form("eq7")
fixornot=request.form("eq8")
dsconsume=request.form("eq9")
%>
<%
name2=mid(name1,2)
tableid=left(name1,1)
ttime=cstr(cint(year(date()))*10000+cint(month(date()))*100+cint(day(date())))
kind="大型装备"
'判断是否已经存在该设备的信息
set rs = server.createobject("adodb.recordset")
sql="select * from h_use where equipid='"&Request.form("eq1")&"' and ttime='"&ttime&"'"
'response.Write(sql)
'response.End()
rs.open sql,conn, 1, 1
if not rs.bof or not rs.eof then
response.write "<script language='javascript'>"
response.write "alert('记录已经录入!');"
response.write "history.go(-1);"
response.write "</script>"
response.end
rs.close
set rs=nothing
else
%>
<%
if tableid="1" then
'连接数据库，从数据库中修改的记录的信息
set rs = server.createobject("adodb.recordset")
sql="select * from mtk_equipment "&condition&" and totalid='"&equipid&"'"
rs.open sql,conn, 1, 1
if not rs.bof or not rs.eof then
enginework=cstr(clng(rs("enginework"))+clng(dsconsume))
enginecanwork=cstr(clng(rs("enginecanwork"))-clng(dsconsume)*10)
usetime=cstr(clng(rs("usetime"))+clng(dsconsume))
usemetre=cstr(clng(rs("usemetre"))+clng(dsconsume)*10)
if fixornot="是" then
sql="update mtk_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" fixornot='"&fixornot&"',"
sql=sql+" breakthing='',"
sql=sql+" enginework='"&enginework&"',"
sql=sql+" enginecanwork='"&enginecanwork&"',"
sql=sql+" usetime='"&usetime&"',"
sql=sql+" usemetre='"&usemetre&"',"
sql=sql+" style='"&style&"' "
sql=sql+condition+ "and totalid='"&equipid&"'"
else
sql="update mtk_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" fixornot='否',"
sql=sql+" breakthing='"&fixornot&"',"
sql=sql+" enginework='"&enginework&"',"
sql=sql+" enginecanwork='"&enginecanwork&"',"
sql=sql+" usetime='"&usetime&"',"
sql=sql+" usemetre='"&usemetre&"',"
sql=sql+" style='"&style&"' "
sql=sql+condition+ "and totalid='"&equipid&"'"
end if
conn.Execute(sql)
'rs.close
set rs=nothing
end if
else if tableid="2" then
set rs = server.createobject("adodb.recordset")
sql="select * from mca_equipment "&condition&" and equipid='"&equipid&"'"
rs.open sql,conn, 1, 1
if not rs.bof or not rs.eof then
shotnum=cstr(clng(rs("shotnum"))+clng(dsconsume))
if fixornot="是" then
sql="update mca_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" fixornot='"&fixornot&"',"
sql=sql+" shotnum='"&shotnum&"',"
sql=sql+" style='"&style&"' "
sql=sql+condition+ "and equipid='"&equipid&"'"
else
sql="update mca_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" fixornot='否',"
sql=sql+" shotnum='"&shotnum&"',"
sql=sql+" style='"&style&"' "
sql=sql+condition+ "and equipid='"&equipid&"'"
end if
'response.write(sql)
'response.end()
conn.Execute(sql)
'rs.close
set rs=nothing
end if
else if tableid="3" then
'连接数据库，从数据库中修改的记录的信息
set rs = server.createobject("adodb.recordset")
sql="select * from mvo_equipment "&condition&" and equipid='"&equipid&"'"
rs.open sql,conn, 1, 1
if not rs.bof or not rs.eof then
totalmetre=cstr(clng(rs("totalmetre"))+clng(dsconsume))
hivemetre=cstr(clng(rs("hivemetre"))-clng(dsconsume))
if fixornot="是" then
sql="update mvo_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" fixornot='"&fixornot&"',"
sql=sql+" notfixreason='',"
sql=sql+" totalmetre='"&totalmetre&"',"
sql=sql+" hivemetre='"&hivemetre&"',"
sql=sql+" style='"&style&"' "
sql=sql+condition+ "and equipid='"&equipid&"'"
else
sql="update mvo_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" fixornot='否',"
sql=sql+" notfixreason='"&fixornot&"',"
sql=sql+" totalmetre='"&totalmetre&"',"
sql=sql+" hivemetre='"&hivemetre&"',"
sql=sql+" style='"&style&"' "
sql=sql+condition+ "and equipid='"&equipid&"'"
end if
'response.write(sql)
'response.end()
conn.Execute(sql)
'rs.close
set rs=nothing
end if
else if tableid="4" then
'连接数据库，从数据库中修改的记录的信息
set rs = server.createobject("adodb.recordset")
sql="select * from men_vehicle "&condition&" and totalid='"&equipid&"'"
rs.open sql,conn, 1, 1
if not rs.bof or not rs.eof then
runhour=cstr(clng(rs("runhour"))+clng(dsconsume))
yearrunhour=cstr(clng(rs("yearrunhour"))+clng(dsconsume))
if month(date())=1 and day(date())=1 then
yearrunhour=dsconsume
end if
if fixornot="是" then
sql="update men_vehicle set"
sql=sql+" enname='"&name2&"',"
sql=sql+" isfix='"&fixornot&"',"
sql=sql+" runhour='"&runhour&"',"
sql=sql+" yearrunhour='"&yearrunhour&"',"
sql=sql+" skillcondition='"&style&"' "
sql=sql+condition+ "and totalid='"&equipid&"'"
else
sql="update men_vehicle set"
sql=sql+" enname='"&name2&"',"
sql=sql+" isfix='否',"
sql=sql+" runhour='"&runhour&"',"
sql=sql+" yearrunhour='"&yearrunhour&"',"
sql=sql+" skillcondition='"&style&"' "
sql=sql+condition+ "and totalid='"&equipid&"'"
end if
conn.Execute(sql)
'rs.close
set rs=nothing
end if
else if tableid="5" then
'连接数据库，从数据库中修改的记录的信息
set rs = server.createobject("adodb.recordset")
sql="select * from mfh_equipment "&condition&" and totalid='"&equipid&"'"
rs.open sql,conn, 1, 1
if not rs.bof or not rs.eof then
ytwtime=cstr(clng(rs("ytwtime"))+clng(dsconsume))
trkm=cstr(clng(rs("trkm"))+clng(dsconsume)*10)
nhkm=cstr(clng(rs("nhkm"))-clng(dsconsume)*10)
if fixornot="是" then
sql="update mfh_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" aisfix='"&fixornot&"',"
sql=sql+" ytwtime='"&ytwtime&"',"
sql=sql+" trkm='"&trkm&"',"
sql=sql+" nhkm='"&nhkm&"',"
sql=sql+" skcondition='"&style&"' "
sql=sql+condition+ "and totalid='"&equipid&"'"
else
sql="update mfh_equipment set"
sql=sql+" equipname='"&name2&"',"
sql=sql+" aisfix='否',"
sql=sql+" ytwtime='"&ytwtime&"',"
sql=sql+" trkm='"&trkm&"',"
sql=sql+" nhkm='"&nhkm&"',"
sql=sql+" skcondition='"&style&"' "
sql=sql+condition+ "and totalid='"&equipid&"'"
end if
'response.write(sql)
'response.end()
conn.Execute(sql)
'rs.close
set rs=nothing
end if
end if
end if
end if
end if
end if
%>
<%
rs="'"&equipid&_
"','"&name2&_
"','"&outtime&_
"','"&intime&_
"','"&charger&_
"','"&sanctifier&_
"','"&task&_
"','"&style&_
"','"&fixornot&_
"','"&dsconsume&_
"','"&memo&_
"','"&ttime&_
"','"&kind&_
"','"&tableid&_
"','"&level1&_
"','"&level2&_
"','"&level3&_
"','"&level4&_
"'"
sql="insert into h_use(equipid,name2,outtime,intime,charger,sanctifier,task,style,fixornot,dsconsume,memo,ttime,kind,tid,level1,level2,level3,level4)values("&rs&")"
'response.Write(sql)
'response.End()
conn.execute(sql)
response.write "<script language='javascript'>"
response.write "alert('录入成功!');"
response.write "history.go(-1);"
response.write "</script>"
response.end
%>
<%
conn.close
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?