main2.asp

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

if (!(d.getFullYear()==r[1]&&d.getMonth()==r[2]-1&&d.getDate()==r[3]))
{
  alert("修竣时间格式错误，应为****-**-**格式");
  document.form1.mmeq10.focus();
  return false;
}
if (form1.mmeq8.value.search("^\\d+(\\.\\d+)?$"))
{
   alert("器材消耗必须为数字");
   form1.mmeq8.focus();
   return false;
}
if (form1.mmeq9.value.search("^\\d+(\\.\\d+)?$"))
{
   alert("上次修理至今已用摩托小时必须为数字");
   form1.mmeq9.focus();
   return false;
}
form1.action='useinsert6.asp';
form1.submit();

}
-->
</script>
<script language="JavaScript">
<!--
function validate7(){
if (form1.macname3.value=="选择轻武器名称")
{
   alert("请选择轻武器名称");
   form1.macname3.focus();
   return false;
}
if (form1.mmac1.value.search("^[0-9]*[0-9][0-9]*$"))
{
   alert("干部数为数字");
   form1.mmac1.focus();
   return false;
}
if (form1.mmac2.value.search("^[0-9]*[0-9][0-9]*$"))
{
   alert("干部数为数字");
   form1.mmac2.focus();
   return false;
}

var datereg=/^(\d{4})-(\d{1,2})-(\d{1,2})$/
var datareg=/^(\d){1,2}$/
if (!datereg.test(document.form1.mmac6.value))
{
  alert("保养时间格式错误，应为****-**-**格式");
  document.form1.mmac6.focus();
  return false;
 }
 
var r=document.form1.mmac6.value.match(datereg)
var d=new Date(r[1],r[2]-1,r[3])
if (!(d.getFullYear()==r[1]&&d.getMonth()==r[2]-1&&d.getDate()==r[3]))
{
  alert("保养时间格式错误，应为****-**-**格式");
  document.form1.mmac6.focus();
  return false;
}
form1.action='useinsert7.asp';
form1.submit();
}
-->
</script>
<script language="JavaScript">
<!--
function validate8(){
if (form1.eqname3.value=="选择大型装备名称")
{
   alert("请选择大型装备名称");
   form1.eqname3.focus();
   return false;
}
if (form1.meq1.value.search("^[0-9]*[0-9][0-9]*$"))
{
   alert("干部数为数字");
   form1.meq1.focus();
   return false;
}
if (form1.meq2.value.search("^[0-9]*[0-9][0-9]*$"))
{
   alert("干部数为数字");
   form1.meq2.focus();
   return false;
}

var datereg=/^(\d{4})-(\d{1,2})-(\d{1,2})$/
var datareg=/^(\d){1,2}$/
if (!datereg.test(document.form1.meq6.value))
{
  alert("保养时间格式错误，应为****-**-**格式");
  document.form1.meq6.focus();
  return false;
 }
 
var r=document.form1.meq6.value.match(datereg)
var d=new Date(r[1],r[2]-1,r[3])
if (!(d.getFullYear()==r[1]&&d.getMonth()==r[2]-1&&d.getDate()==r[3]))
{
  alert("保养时间格式错误，应为****-**-**格式");
  document.form1.meq6.focus();
  return false;
}
form1.action='useinsert8.asp';
form1.submit();
}
-->
</script>
<script language="JavaScript">
<!--
function validate9(){
if (form1.vcname3.value=="选择修理设备名称")
{
   alert("请选择修理设备名称");
   form1.vcname3.focus();
   return false;
}
if (form1.mvc1.value.search("^[0-9]*[0-9][0-9]*$"))
{
   alert("干部数为数字");
   form1.mvc1.focus();
   return false;
}
if (form1.mvc2.value.search("^[0-9]*[0-9][0-9]*$"))
{
   alert("干部数为数字");
   form1.mvc2.focus();
   return false;
}

var datereg=/^(\d{4})-(\d{1,2})-(\d{1,2})$/
var datareg=/^(\d){1,2}$/
if (!datereg.test(document.form1.mvc6.value))
{
  alert("保养时间格式错误，应为****-**-**格式");
  document.form1.mvc6.focus();
  return false;
 }
 
var r=document.form1.mvc6.value.match(datereg)
var d=new Date(r[1],r[2]-1,r[3])
if (!(d.getFullYear()==r[1]&&d.getMonth()==r[2]-1&&d.getDate()==r[3]))
{
  alert("保养时间格式错误，应为****-**-**格式");
  document.form1.mvc6.focus();
  return false;
}
form1.action='useinsert9.asp';
form1.submit();
}
-->
</script>

<style type="text/css">
<!--
.text {
	font-family: "宋体";
	font-size: 12px;
	color: #ffffff;
}
-->
</style>
</head>
<%
'取得干部编制数
 set rs = server.createobject("adodb.recordset")
 sql = "select authorized from mp_authorized "&condition&" and sort='干部'"
 rs.open sql,conn, 1,1
 gbauthorized="0"
 do while not (rs.eof or rs.bof)
     gbauthorized=cstr(cint(gbauthorized)+cint(rs("authorized")))
 rs.movenext()
 loop
 set rs=nothing
%>
<%
'取得干部编制数
 set rs = server.createobject("adodb.recordset")
 sql = "select authorized from mp_authorized "&condition&" and sort='战士'"
 rs.open sql,conn, 1,1
 zsauthorized="0"
 do while not(rs.eof or rs.bof)
     zsauthorized=cstr(cint(zsauthorized)+cint(rs("authorized")))
     rs.movenext()
loop
     'response.Write(zsauthorized)
 set rs=nothing
%>
<%
'获得干部的实力数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(*) from mp_ersonnel "&condition&" and sort='干部'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     gbnowcount=rs(0)
     'response.Write(gbnowcount)
 end if
 set rs=nothing
%>
<%
'获得战士的实力数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(*) from mp_ersonnel "&condition&" and sort='战士'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     zsnowcount=rs(0)
     'response.Write(zsnowcount)
 end if
 set rs=nothing
%>
<%
'获得干部的在位数
 set rs = server.createobject("adodb.recordset")
 sql = "select nownum from mp_authorized "&condition&" and sort='干部'"
 rs.open sql,conn, 1,1
 gbnownum="0"
 do while not(rs.eof or rs.bof)
      gbnownum=cstr(cint(gbnownum)+cint(rs("nownum")))
      rs.movenext
 loop
     'response.Write(gbnownum)
 set rs=nothing
%>
<%
'获得战士的在位数
 set rs = server.createobject("adodb.recordset")
 sql = "select nownum from mp_authorized "&condition&" and sort='战士'"
 rs.open sql,conn, 1,1
 zsnownum="0"
 do while not(rs.eof or rs.bof)
      zsnownum=cstr(cint(zsnownum)+cint(rs("nownum")))
 rs.movenext
 loop
     'response.Write(zsnownum)
 set rs=nothing
%>
<%
'获得干部的在指技合一型数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype) from mp_ersonnel "&condition&" and ptype='是' and sort='干部'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     gbptype1=rs(0)
     'response.Write(gbptype)
 end if
 set rs=nothing
%>
<%
'获得战士的在指技合一数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype3) from mp_ersonnel "&condition&" and ptype='是' and sort='战士'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     zsptype1=rs(0)
     'response.Write(zsptype)
 end if
 set rs=nothing
%>
<%
'获得干部的在一专多能型数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype3) from mp_ersonnel "&condition&" and ptype3='是' and sort='干部'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     gbptype2=rs(0)
     'response.Write(gbptype)
 end if
 set rs=nothing
%>
<%
'获得战士的在一专多能型数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype) from mp_ersonnel "&condition&" and ptype3='是' and sort='战士'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     zsptype2=rs(0)
     'response.Write(zsptype)
 end if
 set rs=nothing
%>

<%
'获得干部的在四会型数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype2) from mp_ersonnel "&condition&" and ptype2='是' and sort='干部'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     gbptype3=rs(0)
     'response.Write(gbptype)
 end if
 set rs=nothing
%>
<%
'获得战士的在四会型数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype2) from mp_ersonnel "&condition&" and ptype2='是' and sort='战士'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     zsptype3=rs(0)
     'response.Write(zsptype)
 end if
 set rs=nothing
%>
<%
'获得干部的在专家型数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype1) from mp_ersonnel "&condition&" and ptype1='是' and sort='干部'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     gbptype4=rs(0)
     'response.Write(gbptype)
 end if
 set rs=nothing
%>
<%
'获得战士的在专家型数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ptype1) from mp_ersonnel "&condition&" and ptype1='是' and sort='战士'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     zsptype4=rs(0)
     'response.Write(zsptype)
 end if
 set rs=nothing
%>

<%
'获得干部的对口数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ynt1) from mp_ersonnel "&condition&" and ynt1='是' and sort='干部'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     gbynt1=rs(0)
     'response.Write(gbynt1)
 end if
 set rs=nothing
%>
<%
'获得战士的对口数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ynt1) from mp_ersonnel "&condition&" and ynt1='是' and sort='战士'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     zsynt1=rs(0)
     'response.Write(zsynt1)
 end if
 set rs=nothing
%>
<%
'获得干部的称职数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ynt2) from mp_ersonnel "&condition&" and ynt2='是' and sort='干部'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     gbynt2=rs(0)
     'response.Write(gbynt2)
 end if
 set rs=nothing
%>
<%
'获得战士的称职数
 set rs = server.createobject("adodb.recordset")
 sql = "select count(ynt2) from mp_ersonnel "&condition&" and ynt2='是' and sort='战士'"
 rs.open sql,conn, 1,1
 if not (rs.eof or rs.bof) then
     zsynt2=rs(0)
     'response.Write(zsynt2)
 end if
 set rs=nothing
%>
<%
'求得干部的满编率＝干部在位数/干部编制数
if gbauthorized="0" then
    gbauthorizedrate=0
else
    gbauthorizedrate=clng(gbnownum)/clng(gbauthorized)
end if
%>
<%
'求得战士的满编率＝战士在位数/战士编制数
if zsauthorized="0" then
    zsauthorizedrate=0
else
    zsauthorizedrate=clng(zsnownum)/clng(zsauthorized)
end if
%>
<%
'求得干部的对口率＝干部对口数/干部实力数
if gbnowcount="0" then
    gbynt1rate=0