📄 useinsert5.asp

📁 应用程序利用ＡＳＰ做的一个可以实现登陆
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../getlevel.asp"-->
<html>
<body bgcolor="#567D30">
<% 
   
   
   equipid=request.form("mmvc1")
   name5=request.form("vcname4")
   fixunit=request.form("mmvc2")
   fixtime=request.form("mmvc3")
   sender=request.form("mmvc4")
   fixtype=request.form("mmvc5")
   faultreason=request.form("mmvc6")
   dealthing=request.form("mmvc7")
   equipmentused=request.form("mmvc8")
   motorhour=request.form("mmvc9")
   overtime=request.form("mmvc10")
   
  
    
 %>
 
<%
  name4=mid(name5,2)
  tableid=left(name5,1)
  ttime=cstr(cint(year(date()))*10000+cint(month(date()))*100+cint(day(date())))
  kind="修理设备"
  tid="6"+tableid
 '判断是否已经存在该设备的信息
   set rs = server.createobject("adodb.recordset")
    sql="select * from h_mend where equipid='"&equipid&"' 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="3" then
   '连接数据库，从数据库中修改的记录的信息
    set rs = server.createobject("adodb.recordset")
   sql="select * from vc_vehicle "&condition&" and vcid='"&equipid&"'"
  
     rs.open sql,conn, 1, 1
    if not rs.bof or not rs.eof then

   brcount=rs("brcount")
   mrcount=rs("mrcount")
   srcount=rs("srcount")
   checkcount=rs("checkcount")
   faultcount=rs("faultcount")
 if fixtype="大修在修" then
	brcount=brcount+1
    sql="update ovc_vehicle set"
   sql=sql+" isbrepair='是' "
    sql=sql+" brcount='"&brcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="中修在修" then 
 mrcount=mrcount+1
	 sql="update ovc_vehicle set"
   sql=sql+" ismrepair='是' "
   sql=sql+" mrcount='"&mrcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="小修在修" then
 srcount=srcount+1 
   sql="update ovc_vehicle set"
   sql=sql+" issrepair='是' "
    sql=sql+" srcount='"&srcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="故障在修" then 
 faultcount=faultcount+1
   sql="update ovc_vehicle set"
   sql=sql+" ischeck='是' "
   sql=sql+" faultcount='"&faultcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="检修在修" then 
 checkcount=checkcount+1
   sql="update ovc_vehicle set"
   sql=sql+" ismend='是' "
   sql=sql+" checkcount='"&checkcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
	
  end if
  end if
  end if
  end if
  end if
    conn.Execute(sql)
	 
    'rs.close
	set rs=nothing
	end if
else if tableid="4" then
  set rs = server.createobject("adodb.recordset")	
   sql="select * from mvc_vehicle "&condition&" and vcid='"&equipid&"'"
      rs.open sql,conn, 1, 1
    if not rs.bof or not rs.eof then

   brcount=rs("brcount")
   mrcount=rs("mrcount")
   srcount=rs("srcount")
   checkcount=rs("checkcount")
   faultcount=rs("faultcount")
 if fixtype="大修在修" then
	brcount=brcount+1
    sql="update ovc_vehicle set"
   sql=sql+" isbrepair='是' "
    sql=sql+" brcount='"&brcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="中修在修" then 
 mrcount=mrcount+1
	 sql="update ovc_vehicle set"
   sql=sql+" ismrepair='是' "
   sql=sql+" mrcount='"&mrcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="小修在修" then
 srcount=srcount+1 
   sql="update ovc_vehicle set"
   sql=sql+" issrepair='是' "
    sql=sql+" srcount='"&srcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="故障在修" then 
 faultcount=faultcount+1
   sql="update ovc_vehicle set"
   sql=sql+" ischeck='是' "
   sql=sql+" faultcount='"&faultcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="检修在修" then 
 checkcount=checkcount+1
   sql="update ovc_vehicle set"
   sql=sql+" ismend='是' "
   sql=sql+" checkcount='"&checkcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
	
  end if
  end if
  end if
  end if
  end if
      conn.Execute(sql)
	    set rs=nothing
		end if
 else if tableid="2" then
   set rs = server.createobject("adodb.recordset")
   sql="select * from ovc_vehicle "&condition&" and vcid='"&equipid&"'"
     rs.open sql,conn, 1, 1
    if not rs.bof or not rs.eof then

   brcount=rs("brcount")
   mrcount=rs("mrcount")
   srcount=rs("srcount")
   checkcount=rs("checkcount")
   faultcount=rs("faultcount")
 if fixtype="大修在修" then
	brcount=brcount+1
    sql="update ovc_vehicle set"
   sql=sql+" isbrepair='是' "
    sql=sql+" brcount='"&brcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="中修在修" then 
 mrcount=mrcount+1
	 sql="update ovc_vehicle set"
   sql=sql+" ismrepair='是' "
   sql=sql+" mrcount='"&mrcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="小修在修" then
 srcount=srcount+1 
   sql="update ovc_vehicle set"
   sql=sql+" issrepair='是' "
    sql=sql+" srcount='"&srcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="故障在修" then 
 faultcount=faultcount+1
   sql="update ovc_vehicle set"
   sql=sql+" ischeck='是' "
   sql=sql+" faultcount='"&faultcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
 else if fixtype="检修在修" then 
 checkcount=checkcount+1
   sql="update ovc_vehicle set"
   sql=sql+" ismend='是' "
   sql=sql+" checkcount='"&checkcount&"'"
   sql=sql+condition+ "and vcid='"&equipid&"'"
	
  end if
  end if
  end if
  end if
  end if
  
          conn.Execute(sql)
			  'rs.close
	          set rs=nothing

   end if
   end if
   end if
   
 end if
%>
 
 <%
  
   rs="'"&equipid&_
     "','"&name4&_
     "','"&fixunit&_ 	 
	 "','"&fixtime&_ 
	 "','"&sender&_ 
	 "','"&fixtype&_
	 "','"&faultreason&_
	 "','"&dealthing&_
	 "','"&equipmentused&_ 
	 "','"&motorhour&_ 
	 "','"&overtime&_ 
	 "','"&ttime&_
	 "','"&kind&_
	 "','"&tid&_
	 "','"&level1&_ 
	 "','"&level2&_ 
	 "','"&level3&_ 
	 "','"&level4&_	   
	 "'"

	 
	sql="insert into h_mend(equipid,name4,fixunit,fixtime,sender,fixtype,faultreason,dealthing,equipmentused,motorhour,overtime,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 + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -