useinsert6.asp

应用程序利用ＡＳＰ做的一个可以实现登陆

   end if
   end if
 

  
  end if
   
 
%>


<%  
if tableid="41" 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
 
   combatconsume=cstr(clng(rs("combatconsume"))+clng(equipmentused))
   coachconsume=cstr(clng(rs("coachconsume"))+clng(equipmentused))
   if  month(date())=1 and day(date())=1 then
      combatconsume=equipmentused
	  coachconsume=equipmentused
	  end if
	brcount=rs("brcount")
    mrcount=rs("mrcount")
    srcount=rs("srcount")
	checkcount=rs("checkcount")
    faultcount=rs("faultcount")  
	if fixtype="大修在修" then
	brcount=brcount+1
	else if fixtype="中修在修" then
	 mrcount=mrcount+1 
	else if fixtype="小修在修" then
	 srcount=srcount+1
	else if fixtype="检修在修" then
    checkcount=checkcount+1 
	else if fixtype="故障在修" then
	faultcount=faultcount+1 
	 end if
	 end if
	 end if
	 end if
	 end if
   sql="update mtk_equipment set"

   sql=sql+" combatconsume='"&combatconsume&"',"
   sql=sql+" coachconsume='"&coachconsume&"',"
   sql=sql+" brcount='"&brcount&"',"
   sql=sql+" mrcount='"&mrcount&"',"
   sql=sql+" srcount='"&srcount&"',"
   sql=sql+" checkcount='"&checkcount&"',"
   sql=sql+" faultcount='"&faultcount&"',"
   sql=sql+" fixcondition='"&fixtype&"' "
   sql=sql+condition+ "and totalid='"&equipid&"'"
  conn.Execute(sql)
	 
    'rs.close
	set rs=nothing
    
   end if
 else if tableid="42" 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  
      brcount=rs("brcount")
      mrcount=rs("mrcount")
	   srcount=rs("srcount")
      checkcount=rs("checkcount")
	  faultcount=rs("faultcount")
	  
	if fixtype="大修在修" then
	brcount=brcount+1
	lastbrdate=ttime
	else if fixtype="中修在修" then
	 mrcount=mrcount+1 
	 lastbrdate=rs("lastbrdate")
    else if fixtype="小修在修" then
	 srcount=srcount+1 
	else if fixtype="检修在修" then
	 checkcount=checkcount+1 
	else if fixtype="故障在修" then
	 faultcount=faultcount+1 
	 end if
	 end if
	 end if
	 end if
	 end if
   
        sql="update mca_equipment set"
       
        sql=sql+" brcount='"&brcount&"',"
		sql=sql+" mrcount='"&mrcount&"',"
		 sql=sql+" srcount='"&srcount&"',"
		sql=sql+" checkcount='"&checkcount&"',"
		 sql=sql+" faultcount='"&faultcount&"',"
		sql=sql+" lastbrdate='"&lastbrdate&"',"
        sql=sql+" fixcondition='"&fixtype&"' "
        sql=sql+condition+ "and equipid='"&equipid&"'"
	
        conn.Execute(sql)
	    set rs=nothing
		
	end if
 else if tableid="44" 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.eof or not rs.bof then	  
	  brcount=rs("brcount")
      mrcount=rs("mrcount")
	  srcount=rs("srcount")
	  checkcount=rs("checkcount")
	  faultcount=rs("faultcount")
	  yearused=cstr(clng(rs("yearused"))+clng(equipmentused))
      alreadyused=cstr(clng(rs("alreadyused"))+clng(equipmentused))
      if  month(date())=1 and day(date())=1 then
      yearused=equipmentused
	  end if
	     
	if fixtype="大修在修" then
	          brcount=brcount+1

	         sql="update men_vehicle set"        
             sql=sql+" brcount='"&brcount&"',"
		     sql=sql+" brdate='"&fixtime&"',"
			 sql=sql+" brover='"&overtime&"',"
			 sql=sql+" yearused='"&yearused&"',"
			 sql=sql+" alreadyused='"&alreadyused&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
	
	 else if fixtype="中修在修" then
	         mrcount=mrcount+1 
	         sql="update men_vehicle set"        
            
		     sql=sql+" mrcount='"&mrcount&"',"
		     sql=sql+" mrdate='"&fixtime&"',"
			 sql=sql+" mrover='"&overtime&"',"
			 sql=sql+" yearused='"&yearused&"',"
			 sql=sql+" alreadyused='"&alreadyused&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
		
		
	 else if fixtype="小修在修" then
	         srcount=srcount+1 	 
	         sql="update men_vehicle set"        
            
		     sql=sql+" srcount='"&srcount&"',"
		     sql=sql+" srdate='"&fixtime&"',"
			 sql=sql+" yearused='"&yearused&"',"
			 sql=sql+" alreadyused='"&alreadyused&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
			 
			 
			 else if fixtype="检修在修" then
	         checkcount=checkcount+1 	 
	         sql="update men_vehicle set"        
            
		     sql=sql+" checkcount='"&checkcount&"',"
			 sql=sql+" yearused='"&yearused&"',"
			 sql=sql+" alreadyused='"&alreadyused&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
		 
			
	 else if fixtype="故障在修" then
	 faultcount=faultcount+1 	 
	         sql="update men_vehicle set"        
            
		     sql=sql+" faultcount='"&faultcount&"',"
			 sql=sql+" yearused='"&yearused&"',"
			 sql=sql+" alreadyused='"&alreadyused&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
 
			 end if 
			 end if
			 end if
		     end if
			 end if
           
             conn.Execute(sql)
			  'rs.close
	          set rs=nothing
   end if
 else if tableid="43" 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
    brcount=rs("brcount")
    mrcount=rs("mrcount")
	srcount=rs("srcount")
    checkcount=rs("checkcount")
	faultcount=rs("faultcount")
    lrdate=ttime
	  
	if fixtype="大修在修" then
	brcount=brcount+1

	else if fixtype="中修在修" then
	 mrcount=mrcount+1 
    else if fixtype="小修在修" then
	srcount=srcount+1

	else if fixtype="检修在修" then
	 checkcount=checkcount+1 

    else if fixtype="检修在修" then
	 faultcount=faultcount+1 

     end if
	 end if
	 end if
	 end if
	 end if
   
   
		     sql="update mvo_equipment set"
         
              sql=sql+" brcount='"&brcount&"',"
		      sql=sql+" mrcount='"&mrcount&"',"
			  sql=sql+" srcount='"&srcount&"',"
		      sql=sql+" checkcount='"&checkcount&"',"
			  sql=sql+" faultcount='"&faultcount&"',"
		      sql=sql+" lrdate='"&lrdate&"',"
              sql=sql+" fixcondition='"&fixtype&"' "
              sql=sql+condition+ "and equipid='"&equipid&"'"
	
              conn.Execute(sql)
	          set rs=nothing
		end if		
 else if tableid="45" 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
      brcount=rs("brcount")
      mrcount=rs("mrcount")
	  srcount=rs("rsrcount")
	  checkcount=rs("checkcount")
	  faultcount=rs("faultcount")
	  yteexpend=cstr(clng(rs("yteexpend"))+clng(equipmentused))
      pyeexpend=cstr(clng(rs("pyeexpend"))+clng(equipmentused))
      if  month(date())=1 and day(date())=1 then
      yteexpend=equipmentused
	 
	  end if

	   
	if fixtype="大修在修" then
	brcount=brcount+1

	         sql="update men_vehicle set"        
             sql=sql+" brcount='"&brcount&"',"
		     sql=sql+" rbrtime='"&fixtime&"',"
			 sql=sql+" rbrover='"&overtime&"',"
			 sql=sql+" yteexpend='"&yteexpend&"',"
			 sql=sql+" pyeexpend='"&pyeexpend&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
	
	 else if fixtype="中修在修" then
	 mrcount=mrcount+1 
	         sql="update men_vehicle set"        
            
		     sql=sql+" mrcount='"&mrcount&"',"
		     sql=sql+" rmrtime='"&fixtime&"',"
			 sql=sql+" rmrover='"&overtime&"',"
			 sql=sql+" yteexpend='"&yteexpend&"',"
			 sql=sql+" pyeexpend='"&pyeexpend&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
		
		
	 else if fixtype="小修在修" then
	 srcount=srcount+1 	 
	         sql="update men_vehicle set"        
            
		     sql=sql+" rsrcount='"&srcount&"',"
		     sql=sql+" rsrtime='"&fixtime&"',"
			 sql=sql+" yteexpend='"&yteexpend&"',"
			 sql=sql+" pyeexpend='"&pyeexpend&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
			 
			 else if fixtype="小修在修" then
	 checkcount=checkcount+1 	 
	         sql="update mfh_equipment set"        
            
		     sql=sql+" checkcount='"&checkcount&"',"
			 sql=sql+" yteexpend='"&yteexpend&"',"
			 sql=sql+" pyeexpend='"&pyeexpend&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
			 
	else if fixtype="故障在修" then
	faultcount=faultcount+1 	 
	         sql="update mfh_equipment set"        
            
		     sql=sql+" faultcount='"&faultcount&"',"
			 sql=sql+" yteexpend='"&yteexpend&"',"
			 sql=sql+" pyeexpend='"&pyeexpend&"',"
             sql=sql+" fixcondition='"&fixtype&"' "
             sql=sql+condition+ "and totalid='"&equipid&"'"
			 
	         end if
			 end if
			 end if 
			 end if
			 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
 
%>
<%  
if tableid="21" then

    

   set rs = server.createobject("adodb.recordset") 
   sql="select * from otk_equipment "&condition&" and totalid='"&equipid&"'"
    rs.open sql,conn, 1, 1
    if not rs.bof or not rs.eof then
   combatconsume=cstr(clng(rs("combatconsume"))+clng(equipmentused))
   coachconsume=cstr(clng(rs("coachconsume"))+clng(equipmentused))
   if  month(date())=1 and day(date())=1 then
      combatconsume=equipmentused
	  coachconsume=equipmentused
	  end if
	brcount=rs("brcount")
    mrcount=rs("mrcount")
     srcount=rs("srcount") 
    checkcount=rs("checkcount")