📄 useinsert.asp

📁 应用程序利用ＡＳＰ做的一个可以实现登陆
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../getlevel.asp"-->
<html>
<body bgcolor="#567D30">
<%

   equipid=request.form("mac1")
   name2=request.form("macname2")
   outtime=request.form("mac2")
   intime=request.form("mac3")
   charger=request.form("mac4")
   sancifier=request.form("mac5")
   task=request.form("mac6")
   style=request.form("mac7")
   fixornot=request.form("mac8")
   dsconsume=request.form("mac9")
   memo=request.form("mac10")
    
 %>

 
  <%
  ttime=cstr(cint(year(date()))*10000+cint(month(date()))*100+cint(day(date())))
  kind="轻武器"
  tid="0"
 '判断是否已经存在该设备的信息
    sql="select * from h_use where equipid='"&Request.form("mac1")&"' and ttime='"&ttime&"'"
	
    set rs=conn.Execute(sql)
    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 fixornot="是" then
    sql="update msa_smallarm set"    
    sql=sql+" macname='"&name2&"',"
    sql=sql+" isfix='"&fixornot&"',"
	 sql=sql+" unfixreason='',"
    sql=sql+" style='"&style&"' "
    sql=sql+condition+ "and macnum='"&equipid&"'"
    else
	   sql="update msa_smallarm set"
    
       sql=sql+" macname='"&name2&"',"
       sql=sql+" isfix='否',"
	   sql=sql+" unfixreason='"&fixornot&"',"
       sql=sql+" style='"&style&"' "
       sql=sql+condition+ "and macnum='"&equipid&"'"
	    
	end if
    conn.Execute(sql)
%>

 
 <%
  
   rs="'"&equipid&_
     "','"&name2&_
     "','"&outtime&_ 	 
	 "','"&intime&_ 
	 "','"&charger&_ 
	 "','"&sanctifier&_
	 "','"&task&_
	 "','"&style&_ 
	 "','"&fixornot&_ 
	 "','"&dsconsume&_ 
	 "','"&memo&_ 
	 "','"&kind&_
	 "','"&tid&_ 
	 "','"&ttime&_
	 "','"&level1&_ 
	 "','"&level2&_ 
	 "','"&level3&_ 
	  "','"&level4&_	   
	 "'"

	 
	sql="insert into h_use(equipid,name2,outtime,intime,charger,sanctifier,task,style,fixornot,dsconsume,memo,kind,tid,ttime,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 + -