📄 useinsert8.asp

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

💻 ASP

字号:

<!--#include file=.../conn.asp-->
<!--#include file=getlevel.asp-->
<%
'获得轻武器动用信息
eqname4=mid(request.form("eqname3"),2)
gbnum4=request.form("meq1")
zsnum4=request.form("meq2")
principal4=request.form("meq3")
maintainthing4=request.form("meq4")
problem4=request.form("meq5")
maintaindate4=request.form("meq6")
sanctifier4=request.form("meq7")
remark4=request.form("meq8")
%>
<html>
<body bgcolor="#567D30">
<%
 adddate=cstr(cint(year(date()))*10000+cint(month(date()))*100+cint(day(date())))
  kind="大型装备"
   if (gbnum4="") then
       gbnum4="0"
   end if
    if (zsnum4="") then
        zsnum4="0"
   end if
 
 '判断是否已经存在该设备的信息
    sql="select * from h_check where level1='"&level1&"' and level2='"&level2&"' and level3='"&level3&"' and level4='"&level4&"' and name3='"&eqname4&"' and ttime='"&adddate&"'"
    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
%>
<%  
   sz="'"&eqname4&_
     "','"&gbnum4&_
     "','"&zsnum4&_ 	 
	 "','"&principal4&_ 
	 "','"&maintainthing4&_	 
	 "','"&problem4&_
     "','"&maintaindate4&_
     "','"&sanctifier4&_	  
	 "','"&remark4&_ 
	 "','"&adddate&_
	 "','"&kind&_
	 "','"&level1&_ 
	 "','"&level2&_ 
	 "','"&level3&_ 
	 "','"&level4&_ 
	 "'"
	 
	sql="insert into h_check(name3,gbnum,zsnum,charger,mainthing,problem,maintaintime,checker,memo,ttime,kind,level1,level2,level3,level4)values("&sz&")" 
	'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 + -