📄 afgl_cy_dw_sbqd.asp

📁 U盘身份识别软件
💻 ASP
字号:
<!--#include file="WNP_INCLUDE.ASP" -->
<div align="center">
<input type="button" name="Submit" value="新  增" onClick="location.href='?action=addIF';">
</div>
<script language="javascript">
<!--
function checkForm(){
  if(form1.CY_DW_SBQD_1.value == ""){
    alert("设备或器材名称不能为空！");
	form1.CY_DW_SBQD_1.focus();
	return false;
  }
}
//-->
</script>
<!--保存添加  -->
<%
sub saveAdd()

  CY_DW_SBQD_1 = trim(request.Form("CY_DW_SBQD_1"))
  if CY_DW_SBQD_1 ="" then
    response.Write("<script language=javascript>alert('工程名称不能为空！');history.back();</script>")
  end if
  CY_DW_SBQD_2 = trim(request.Form("CY_DW_SBQD_2"))
  CY_DW_SBQD_3 = trim(request.Form("CY_DW_SBQD_3"))
  CY_DW_SBQD_4 = trim(request.Form("CY_DW_SBQD_4"))
  CY_DW_SBQD_5 = trim(request.Form("CY_DW_SBQD_5"))
  CY_DW_SBQD_6 = trim(request.Form("CY_DW_SBQD_6"))
  CY_DW_SBQD_7 = trim(request.Form("CY_DW_SBQD_7"))
  CY_DW_SBQD_9 = trim(request.Form("CY_DW_SBQD_9"))
  CY_DW_SBQD_10 = date()


  sql = "select * from AFGL_CY_DW_SBQD where CY_DW_SBQD_1 = '"&CY_DW_SBQD_1&"'"
  rs.open sql,conn,1,1
  if not rs.eof then
    rs.close
	response.Write("<script language=javascript>alert('名称重复！');location.href='?';</script>")
  else

    rs.close
    sql = "select * from AFGL_CY_DW_SBQD"
    rs.open sql,conn,1,3
    rs.addnew
    if CY_DW_SBQD_1 <> "" then
      rs("CY_DW_SBQD_1") = CY_DW_SBQD_1
	end if
    if CY_DW_SBQD_2 <> "" then
      rs("CY_DW_SBQD_2") = CY_DW_SBQD_2
	end if
    if CY_DW_SBQD_3 <> "" then
      rs("CY_DW_SBQD_3") = CY_DW_SBQD_3
	end if
    if CY_DW_SBQD_4 <> "" then
      rs("CY_DW_SBQD_4") = CY_DW_SBQD_4
	end if
    if CY_DW_SBQD_5 <> "" then
      rs("CY_DW_SBQD_5") = CY_DW_SBQD_5
	end if
    if CY_DW_SBQD_6 <> "" then
      rs("CY_DW_SBQD_6") = CY_DW_SBQD_6
	end if
    if CY_DW_SBQD_7 <> "" then
      rs("CY_DW_SBQD_7") = CY_DW_SBQD_7
	end if
    if CY_DW_SBQD_9 <> "" then
      rs("CY_DW_SBQD_9") = CY_DW_SBQD_9
	end if
    if CY_DW_SBQD_10 <> "" then
      rs("CY_DW_SBQD_10") = CY_DW_SBQD_10
	end if

    rs.update
    rs.close
	response.Redirect("?")
  end if

end sub
%>

<!-- 工程名称列表 -->
<%
sub listAll()
  sql = "select * from AFGL_CY_DW_SBQD where CY_DW_SBQD_1 is not null"
  rs.open sql,conn,1,1
  if not rs.eof then
%>
<table width="760" border="1" align="center" cellpadding="5" cellspacing="0" class="FPtalbe">
  <tr>
    <td height="30" colspan="8" align="center"><span class="blackTitle">施工、检测仪器设备清单（列表）</span></td>
  </tr>
  <tr>
    <td align="center"> 器材、设备名称</td>
    <td align="center">型号</td>
    <td align="center"> 规格</td>
    <td align="center"> 生产厂家</td>
    <td align="center"> 使用情况</td>
    <td align="center"> 填写人</td>
    <td width="70" align="center">修改</td>
    <td width="70" align="center">删除</td>
  </tr>
<%
    do while not rs.eof
%>
  <tr>
    <td><%=rs("CY_DW_SBQD_1")%>&nbsp;</td>
    <td><%=rs("CY_DW_SBQD_2")%>&nbsp;</td>
    <td><%=rs("CY_DW_SBQD_3")%>&nbsp;</td>
    <td><%=rs("CY_DW_SBQD_5")%>&nbsp;</td>
    <td><%=rs("CY_DW_SBQD_6")%>&nbsp;</td>
    <td><%=rs("CY_DW_SBQD_9")%>&nbsp;</td>
    <td align="center"><input type="button" name="Submit" value="修改&gt;&gt;" onClick="location.href='?action=edit&id=<%=rs("id")%>';"></td>
    <td align="center"><input type="button" name="Submit" value="删除&gt;&gt;" onClick="if(confirm('确认删除该条记录？')){location.href='?action=delItem&id=<%=rs("id")%>';}"></td>
  </tr>
<%
	rs.movenext
	loop
%>
</table>
<%
  else
    response.Write("<p align=center>暂时没有记录，请点击""新增""按钮添加！</p>")
  end if
  rs.close
end sub
%>
<!-- 添加界面 -->
<%
sub addIF()
%>
<table width="760" border="1" align="center" cellpadding="5" cellspacing="0" class="FPtalbe">
<form name="form1" method="post" action="?action=saveAdd" onSubmit="return checkForm();">
  <tr align="center">
    <td height="30" colspan="4" class="blackTitle">施工、检测仪器设备清单</td>
    </tr>
  <tr>
    <td width="100" align="center">器材、设备名称</td>
    <td colspan="3"><input name="CY_DW_SBQD_1" type="text" id="CY_DW_SBQD_1" size="50">
      <span style="color: #FF0000">*</span></td>
    </tr>
  <tr>
    <td align="center">型号</td>
    <td><input name="CY_DW_SBQD_2" type="text" id="CY_DW_SBQD_2" size="25"></td>
    <td width="100" align="center">规格</td>
    <td><input name="CY_DW_SBQD_3" type="text" id="CY_DW_SBQD_3" size="25"></td>
    </tr>
  <tr>
    <td align="center">注册商标</td>
    <td><input name="CY_DW_SBQD_4" type="text" id="CY_DW_SBQD_4" size="25"></td>
    <td align="center">生产厂家</td>
    <td><input name="CY_DW_SBQD_5" type="text" id="CY_DW_SBQD_5" size="25"></td>
    </tr>
  <tr>
    <td align="center">使用情况</td>
    <td colspan="3"><textarea name="CY_DW_SBQD_6" cols="60" rows="5" id="CY_DW_SBQD_6"></textarea></td>
    </tr>
  <tr align="center">
    <td>备注</td>
    <td colspan="3" align="left"><textarea name="CY_DW_SBQD_7" cols="60" rows="5" id="CY_DW_SBQD_7"></textarea></td>
    </tr>
  <tr>
    <td align="center">填写人</td>
    <td colspan="3"><input name="CY_DW_SBQD_9" type="text" id="CY_DW_SBQD_9" size="25"></td>
    </tr>
  <tr align="center">
    <td colspan="4"><input type="submit" name="Submit" value="提  交">
      &nbsp;&nbsp;
      <input type="reset" name="Submit" value="返  回" onClick="history.back();"></td>
    </tr>
</form>
</table>
<%
end sub
%>
<%
sub editIF()
sql="select * from AFGL_CY_DW_SBQD where id="&trim(request.QueryString("id"))
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="760" border="1" align="center" cellpadding="5" cellspacing="0" class="FPtalbe">
<form name="form1" method="post" action="?action=saveMod&id=<%=rs("id")%>" onSubmit="return checkForm();">
  <tr align="center">
    <td colspan="4" class="blackTitle">施工、检测仪器设备清单</td>
    </tr>
  <tr>
    <td width="100" align="center">器材、设备名称</td>
    <td colspan="3"><input name="CY_DW_SBQD_1" type="text" id="CY_DW_SBQD_1" value="<%=rs("CY_DW_SBQD_1")%>" size="50">
        <span style="color: #FF0000">*</span></td>
  </tr>
  <tr>
    <td align="center">型号</td>
    <td width="100"><input name="CY_DW_SBQD_2" type="text" id="CY_DW_SBQD_2" value="<%=rs("CY_DW_SBQD_2")%>" size="25"></td>
    <td align="center">规格</td>
    <td><input name="CY_DW_SBQD_3" type="text" id="CY_DW_SBQD_3" value="<%=rs("CY_DW_SBQD_3")%>" size="25"></td>
  </tr>
  <tr>
    <td align="center">注册商标</td>
    <td><input name="CY_DW_SBQD_4" type="text" id="CY_DW_SBQD_4" value="<%=rs("CY_DW_SBQD_4")%>" size="25"></td>
    <td align="center">生产厂家</td>
    <td><input name="CY_DW_SBQD_5" type="text" id="CY_DW_SBQD_5" value="<%=rs("CY_DW_SBQD_5")%>" size="25"></td>
  </tr>
  <tr>
    <td align="center">使用情况</td>
    <td colspan="3"><textarea name="CY_DW_SBQD_6" cols="60" rows="5" id="CY_DW_SBQD_6"><%=rs("CY_DW_SBQD_6")%></textarea></td>
  </tr>
  <tr align="center">
    <td>备注</td>
    <td colspan="3" align="left"><textarea name="CY_DW_SBQD_7" cols="60" rows="5" id="CY_DW_SBQD_7"><%=rs("CY_DW_SBQD_7")%></textarea></td>
  </tr>
  <tr>
    <td align="center">填写人</td>
    <td colspan="3"><input name="CY_DW_SBQD_9" type="text" id="CY_DW_SBQD_9" value="<%=rs("CY_DW_SBQD_9")%>" size="25"></td>
  </tr>
  <tr align="center">
    <td colspan="4"><input type="submit" name="Submit" value="修  改">
    &nbsp;&nbsp;
    <input type="reset" name="Submit" value="返  回" onClick="history.back();"></td>
  </tr>
</form>
</table>
<%
rs.close
else
rs.close
  response.Write("<script language=javascript>alert('没有相关记录！');history.back();</script>")
end if
end sub
%>
<%
sub saveMod()
  CY_DW_SBQD_1 = trim(request.Form("CY_DW_SBQD_1"))
  if CY_DW_SBQD_1 ="" then
    response.Write("<script language=javascript>alert('工程名称不能为空！');history.back();</script>")
  end if
  CY_DW_SBQD_2 = trim(request.Form("CY_DW_SBQD_2"))
  CY_DW_SBQD_3 = trim(request.Form("CY_DW_SBQD_3"))
  CY_DW_SBQD_4 = trim(request.Form("CY_DW_SBQD_4"))
  CY_DW_SBQD_5 = trim(request.Form("CY_DW_SBQD_5"))
  CY_DW_SBQD_6 = trim(request.Form("CY_DW_SBQD_6"))
  CY_DW_SBQD_7 = trim(request.Form("CY_DW_SBQD_7"))
  CY_DW_SBQD_9 = trim(request.Form("CY_DW_SBQD_9"))
  CY_DW_SBQD_10 = date()

  sql = "select * from AFGL_CY_DW_SBQD where CY_DW_SBQD_1 = '"&CY_DW_SBQD_1&"' and id<>"&trim(request.QueryString("id"))
  rs.open sql,conn,1,1
  if not rs.eof then
    rs.close
	response.Write("<script language=javascript>alert('名称重复！');location.href='?';</script>")
  else

    rs.close
    sql = "select * from AFGL_CY_DW_SBQD where id="&trim(request.QueryString("id"))
    rs.open sql,conn,1,3
    if CY_DW_SBQD_1 <> "" then
      rs("CY_DW_SBQD_1") = CY_DW_SBQD_1
	end if
    if CY_DW_SBQD_2 <> "" then
      rs("CY_DW_SBQD_2") = CY_DW_SBQD_2
	end if
    if CY_DW_SBQD_3 <> "" then
      rs("CY_DW_SBQD_3") = CY_DW_SBQD_3
	end if
    if CY_DW_SBQD_4 <> "" then
      rs("CY_DW_SBQD_4") = CY_DW_SBQD_4
	end if
    if CY_DW_SBQD_5 <> "" then
      rs("CY_DW_SBQD_5") = CY_DW_SBQD_5
	end if
    if CY_DW_SBQD_6 <> "" then
      rs("CY_DW_SBQD_6") = CY_DW_SBQD_6
	end if
    if CY_DW_SBQD_7 <> "" then
      rs("CY_DW_SBQD_7") = CY_DW_SBQD_7
	end if
    if CY_DW_SBQD_9 <> "" then
      rs("CY_DW_SBQD_9") = CY_DW_SBQD_9
	end if
    if CY_DW_SBQD_10 <> "" then
      rs("CY_DW_SBQD_10") = CY_DW_SBQD_10
	end if

    rs.update
    rs.close
	response.Redirect("?")
  end if
end sub
%>
<%
sub delItem()
	sql="delete from AFGL_CY_DW_SBQD where id="&trim(request.QueryString("id"))
	conn.execute(sql)
	response.Write("<script language=javascript>alert('删除成功！');location.href='?';</script>")
end sub
%>
<!-- 页面流程 -->
<%
action = request.QueryString("action")
Select Case action
	Case "addIF"
		call addIF()
	Case "saveAdd"
		call saveAdd()
	Case "edit"
		call editIF()
	Case "saveMod"
		call saveMod()
	Case "delItem"
		call delItem()
	Case Else
		call listAll()
End Select
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -