📄 useinsert1.asp

📁 应用程序利用ＡＳＰ做的一个可以实现登陆
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../getlevel.asp"-->
<html>
<body bgcolor="#567D30">
<%
   equipid=request.form("vc1")
   name2=request.form("vcname2")
   outtime=request.form("vc2")
   intime=request.form("vc3")
   charger=request.form("vc4")
   sancifier=request.form("vc5")
   task=request.form("vc6")
   style=request.form("vc7")
   fixornot=request.form("vc8")
   dsconsume=request.form("vc9")
   memo=request.form("vc10") 
    
 %>
 
  <%
  ttime=cstr(cint(year(date()))*10000+cint(month(date()))*100+cint(day(date())))
  kind="修理设备"
  tid="6"
 '判断是否已经存在该设备的信息
    sql="select * from h_use where equipid='"&Request.form("vc1")&"' and ttime='"&ttime&"'"
	'response.Write(sql)
	'response.End()
    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 mvc_vehicle set"
    
    sql=sql+" vcname='"&name2&"',"
    sql=sql+" isfix='"&fixornot&"',"
	sql=sql+" cause='',"
    sql=sql+" isnormal='"&style&"' "
    sql=sql+condition+ "and vcid='"&equipid&"'"
	
    'response.write(sql)
    'response.end()
	else 
	 sql="update mvc_vehicle set"
	sql=sql+" vcname='"&name2&"',"
    sql=sql+" isfix='否',"
	sql=sql+" cause='"&fixornot&"',"
    sql=sql+" isnormal='"&style&"' "
    sql=sql+condition+ "and vcid='"&equipid&"'"
	end if
    conn.Execute(sql)


 %>


 
 <%
  
   rs="'"&equipid&_
     "','"&name2&_
     "','"&outtime&_ 	 
	 "','"&intime&_ 
	 "','"&charger&_ 
	 "','"&sanctifier&_
	 "','"&task&_
	 "','"&style&_ 
	 "','"&fixornot&_ 
	 "','"&dsconsume&_ 
	 "','"&memo&_ 
	 "','"&ttime&_
	 "','"&kind&_
	 "','"&tid&_
	 "','"&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 + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -