📄 useinsert4.asp

📁 应用程序利用ＡＳＰ做的一个可以实现登陆
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../getlevel.asp"-->
<html>
<body bgcolor="#567D30">
<% 
   
   
   equipid=request.form("mmmac1")
   name5=request.form("macname4")
   fixunit=request.form("mmmac2")
   fixtime=request.form("mmmac3")
   sender=request.form("mmmac4")
   fixtype=request.form("mmmac5")
   faultreason=request.form("mmmac6")
   dealthing=request.form("mmmac7")
   equipmentused=request.form("mmmac8")
   motorhour=request.form("mmmac9")
   overtime=request.form("mmmac10")
   
  
    
 %>
 
<%
  name4=mid(name5,2)
  tableid=left(name5,1)
  ttime=cstr(cint(year(date()))*10000+cint(month(date()))*100+cint(day(date())))
  kind="轻武器"
  tid="0"+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 sa_smallarm "&condition&" and macnum='"&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")
   checount=rs("checount")
   faultcount=rs("faultcount")
 if fixtype="大修在修" then
	brcount=brcount+1
    sql="update sa_smallarm set"
   sql=sql+" isbrepair='是',"
   sql=sql+" brcount='"&brcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="中修在修" then 
   mrcount=mrcount+1
	 sql="update sa_smallarm set"
   sql=sql+" ismrepair='是',"
   sql=sql+" mrcount='"&mrcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="小修在修" then 
   srcount=srcount+1
   sql="update sa_smallarm set"
   sql=sql+" issrepair='是',"
   sql=sql+" srcount='"&srcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="故障在修" then 
   faultcount=faultcount+1
   sql="update sa_smallarm set"
   sql=sql+" isfaurepair='是',"
   sql=sql+" faultcount='"&faultcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="检修在修" then 
   checkcount=checkcount+1
   sql="update sa_smallarm set"
   sql=sql+" ischerepair='是',"
   sql=sql+" checount='"&checount&"' "
   sql=sql+condition+ "and macnum='"&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 msa_smallarm "&condition&" and macnum='"&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")
   checount=rs("checount")
   faultcount=rs("faultcount")
 if fixtype="大修在修" then
	brcount=brcount+1
    sql="update msa_smallarm set"
   sql=sql+" isbrepair='是',"
   sql=sql+" brcount='"&brcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="中修在修" then 
   mrcount=mrcount+1
	 sql="update msa_smallarm set"
   sql=sql+" ismrepair='是',"
   sql=sql+" mrcount='"&mrcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="小修在修" then
 srcount=srcount+1 
   sql="update msa_smallarm set"
   sql=sql+" issrepair='是',"
   sql=sql+" srcount='"&srcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="故障在修" then 
 faultcount=faultcount+1
   sql="update msa_smallarm set"
   sql=sql+" isfaurepair='是',"
   sql=sql+" faultcount='"&faultcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="检修在修" then 
 checkcount=checkcount+1
   sql="update msa_smallarm set"
   sql=sql+" ischerepair='是',"
   sql=sql+" checount='"&checount&"' "
   sql=sql+condition+ "and macnum='"&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 osa_smallarm "&condition&" and macnum='"&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")
   checount=rs("checount")
   faultcount=rs("faultcount")
if fixtype="大修在修" then
	brcount=brcount+1
    sql="update osa_smallarm set"
   sql=sql+" isbrepair='是',"
   sql=sql+" brcount='"&brcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="中修在修" then 
  mrcount=mrcount+1
	 sql="update osa_smallarm set"
   sql=sql+" ismrepair='是',"
    sql=sql+" mrcount='"&mrcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="小修在修" then 
 srcount=srcount+1 
   sql="update osa_smallarm set"
   sql=sql+" issrepair='是',"
   sql=sql+" srcount='"&srcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="故障在修" then 
 faultcount=faultcount+1
   sql="update osa_smallarm set"
   sql=sql+" isfaurepair='是',"
    sql=sql+" faultcount='"&faultcount&"' "
   sql=sql+condition+ "and macnum='"&equipid&"'"
 else if fixtype="检修在修" then 
 checount=checount+1
   sql="update osa_smallarm set"
   sql=sql+" ischerepair='是',"
   sql=sql+" checount='"&checount&"' "
   sql=sql+condition+ "and macnum='"&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 + -