📄 duty.asp

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

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="getlevel.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body bgcolor="2d5300">
<%
  rpersonname=request.form("personname")
  rdutytime=date()
  'rttime=year(date())*10000+month(date())*100+day(date())
  'response.Write(rdate)
  'response.End()
%>
<%
    '判断是否已经存在该装备的信息
       sql="select * from duty where level1='"&level1&"' and level2='"&level2&"' and level3='"&level3&"' and level4='"&level4&"' and dutytime='"&rdutytime&"'"
            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
	 else
%>
<%
  qw="'"&rpersonname&_
	 "','"&rdutytime&_
	 "','"&level1&_ 
	 "','"&level2&_ 
	 "','"&level3&_ 
	 "','"&level4&_ 
	 "'" 
	 
	 sql="insert into duty (personname,dutytime,level1,level2,level3,level4)values("&qw&")"
                '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 + -