📄 afgl_gc.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.GC_GCMC.value == ""){
alert("工程名称不能为空！");
form1.GC_GCMC.focus();
return false;
}
}
//-->
</script>
<!--保存添加 -->
<%
sub saveAdd()
GC_GCMC = trim(request.Form("GC_GCMC"))
if GC_GCMC ="" then
response.Write("<script language=javascript>alert('工程名称不能为空！');history.back();</script>")
end if
GC_GCJB = trim(request.Form("GC_GCJB"))
GC_TZE = trim(request.Form("GC_TZE"))
GC_JSDW = trim(request.Form("GC_JSDW"))
GC_JSDW_FZR = trim(request.Form("GC_JSDW_FZR"))
GC_JSDW_LXDH = trim(request.Form("GC_JSDW_LXDH"))
GC_SJDW = trim(request.Form("GC_SJDW"))
GC_SJDW_ZSBH = trim(request.Form("GC_SJDW_ZSBH"))
GC_SJDW_FZR = trim(request.Form("GC_SJDW_FZR"))
GC_SJDW_LXDH = trim(request.Form("GC_SJDW_LXDH"))
GC_SGDW = trim(request.Form("GC_SGDW"))
GC_SGDW_ZSBH = trim(request.Form("GC_SGDW_ZSBH"))
GC_SGDW_FZR = trim(request.Form("GC_SGDW_FZR"))
GC_SGDW_LXDH = trim(request.Form("GC_SGDW_LXDH"))
GC_TBRQ = date()
sql = "select * from AFGL_GC where GC_GCMC = '"&GC_GCMC&"'"
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_GC"
rs.open sql,conn,1,3
rs.addnew
if GC_GCMC <> "" then
rs("GC_GCMC") = GC_GCMC
end if
if GC_GCJB <> "" then
rs("GC_GCJB") = GC_GCJB
end if
if GC_TZE <> "" then
rs("GC_TZE") = GC_TZE
end if
if GC_JSDW <> "" then
rs("GC_JSDW") = GC_JSDW
end if
if GC_JSDW_FZR <> "" then
rs("GC_JSDW_FZR") = GC_JSDW_FZR
end if
if GC_JSDW_LXDH <> "" then
rs("GC_JSDW_LXDH") = GC_JSDW_LXDH
end if
if GC_SJDW <> "" then
rs("GC_SJDW") = GC_SJDW
end if
if GC_SJDW_ZSBH <> "" then
rs("GC_SJDW_ZSBH") = GC_SJDW_ZSBH
end if
if GC_SJDW_FZR <> "" then
rs("GC_SJDW_FZR") = GC_SJDW_FZR
end if
if GC_SJDW_LXDH <> "" then
rs("GC_SJDW_LXDH") = GC_SJDW_LXDH
end if
if GC_SGDW <> "" then
rs("GC_SGDW") = GC_SGDW
end if
if GC_SGDW_ZSBH <> "" then
rs("GC_SGDW_ZSBH") = GC_SGDW_ZSBH
end if
if GC_SGDW_FZR <> "" then
rs("GC_SGDW_FZR") = GC_SGDW_FZR
end if
if GC_SGDW_LXDH <> "" then
rs("GC_SGDW_LXDH") = GC_SGDW_LXDH
end if
if GC_TBRQ <> "" then
rs("GC_TBRQ") = GC_TBRQ
end if
rs.update
rs.close
response.Redirect("?")
end if
end sub
%>
<!-- 工程名称列表 -->
<%
sub listAll()
sql = "select * from AFGL_GC where GC_GCMC 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("GC_JSDW")%> </td>
<td><%=rs("GC_GCMC")%> </td>
<td><%=rs("GC_GCJB")%> </td>
<td><%=rs("GC_JSDW_FZR")%> </td>
<td><%=rs("GC_JSDW_LXDH")%> </td>
<td><%=rs("GC_TBRQ")%> </td>
<td align="center"><input type="button" name="Submit" value="修改>>" onClick="location.href='?action=edit&id=<%=rs("id")%>';"></td>
<td align="center"><input type="button" name="Submit" value="删除>>" 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 colspan="4" class="blackTitle">陕西省安全防范工程验收申报表</td>
</tr>
<tr align="center">
<td width="15%"> 工程名称 </td>
<td colspan="3" align="left"><input name="GC_GCMC" type="text" id="GC_GCMC" size="50">
<span style="color: #FF0000">*</span></td>
</tr>
<tr align="center">
<td> 工程级别 </td>
<td width="35%" align="left"><input name="GC_GCJB" type="text" id="GC_GCJB" size="15"></td>
<td width="15%"> 投 资 额 </td>
<td width="35%" align="left"><input name="GC_TZE" type="text" id="GC_TZE" size="15"></td>
</tr>
<tr align="center">
<td> 建设单位 </td>
<td colspan="3" align="left"><input name="GC_JSDW" type="text" id="GC_JSDW" size="50"></td>
</tr>
<tr align="center">
<td> 负 责 人 </td>
<td align="left"><input name="GC_JSDW_FZR" type="text" id="GC_JSDW_FZR" size="15"></td>
<td> 联系电话 </td>
<td align="left"><input name="GC_JSDW_LXDH" type="text" id="GC_JSDW_LXDH" size="15"></td>
</tr>
<tr align="center">
<td> 设计单位 </td>
<td align="left"><input name="GC_SJDW" type="text" id="GC_SJDW" size="25"></td>
<td> 证书编号 </td>
<td align="left"><input name="GC_SJDW_ZSBH" type="text" id="GC_SJDW_ZSBH" size="25"></td>
</tr>
<tr align="center">
<td> 负 责 人 </td>
<td align="left"><input name="GC_SJDW_FZR" type="text" id="GC_SJDW_FZR" size="15"></td>
<td> 联系电话 </td>
<td align="left"><input name="GC_SJDW_LXDH" type="text" id="GC_SJDW_LXDH" size="15"></td>
</tr>
<tr align="center">
<td> 施工单位 </td>
<td align="left"><input name="GC_SGDW" type="text" id="GC_SGDW" size="25"></td>
<td> 证书编号 </td>
<td align="left"><input name="GC_SGDW_ZSBH" type="text" id="GC_SGDW_ZSBH" size="25"></td>
</tr>
<tr align="center">
<td> 负 责 人 </td>
<td align="left"><input name="GC_SGDW_FZR" type="text" id="GC_SGDW_FZR" size="15"></td>
<td> 联系电话 </td>
<td align="left"><input name="GC_SGDW_LXDH" type="text" id="GC_SGDW_LXDH" size="15"></td>
</tr>
<tr align="center">
<td valign="middle"><br>
申<br>请<br>验<br>收<br>所<br>需<br>要<br>的<br>全<br>套<br>图<br>纸<br>资<br>料<br>
</td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td valign="middle"><br>
建<br>设<br>单<br>位<br>意<br>见<br></td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td valign="middle"><br>
设<br>计<br>施<br>工<br>单<br>位<br>意<br>见<br></td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td valign="middle"><br>
公<br>安<br>机<br>关<br>技<br>防<br>办<br>意<br>见<br></td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td colspan="4"><input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit" value="返 回" onClick="history.back();"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub editIF()
sql="select * from AFGL_GC 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 align="center">
<td width="15%"> 工程名称 </td>
<td colspan="3" align="left"><input name="GC_GCMC" type="text" id="GC_GCMC" value="<%=rs("GC_GCMC")%>" size="50">
<span style="color: #FF0000">*</span></td>
</tr>
<tr align="center">
<td> 工程级别 </td>
<td width="35%" align="left"><input name="GC_GCJB" type="text" id="GC_GCJB" value="<%=rs("GC_GCJB")%>" size="15"></td>
<td width="15%"> 投 资 额 </td>
<td width="35%" align="left"><input name="GC_TZE" type="text" id="GC_TZE" value="<%=rs("GC_TZE")%>" size="15"></td>
</tr>
<tr align="center">
<td> 建设单位 </td>
<td colspan="3" align="left"><input name="GC_JSDW" type="text" id="GC_JSDW" value="<%=rs("GC_JSDW")%>" size="50"></td>
</tr>
<tr align="center">
<td> 负 责 人 </td>
<td align="left"><input name="GC_JSDW_FZR" type="text" id="GC_JSDW_FZR" value="<%=rs("GC_JSDW_FZR")%>" size="15"></td>
<td> 联系电话 </td>
<td align="left"><input name="GC_JSDW_LXDH" type="text" id="GC_JSDW_LXDH" value="<%=rs("GC_JSDW_LXDH")%>" size="15"></td>
</tr>
<tr align="center">
<td> 设计单位 </td>
<td align="left"><input name="GC_SJDW" type="text" id="GC_SJDW" value="<%=rs("GC_SJDW")%>" size="25"></td>
<td> 证书编号 </td>
<td align="left"><input name="GC_SJDW_ZSBH" type="text" id="GC_SJDW_ZSBH" value="<%=rs("GC_SJDW_ZSBH")%>" size="25"></td>
</tr>
<tr align="center">
<td> 负 责 人 </td>
<td align="left"><input name="GC_SJDW_FZR" type="text" id="GC_SJDW_FZR" value="<%=rs("GC_SJDW_FZR")%>" size="15"></td>
<td> 联系电话 </td>
<td align="left"><input name="GC_SJDW_LXDH" type="text" id="GC_SJDW_LXDH" value="<%=rs("GC_SJDW_LXDH")%>" size="15"></td>
</tr>
<tr align="center">
<td> 施工单位 </td>
<td align="left"><input name="GC_SGDW" type="text" id="GC_SGDW" value="<%=rs("GC_SGDW")%>" size="25"></td>
<td> 证书编号 </td>
<td align="left"><input name="GC_SGDW_ZSBH" type="text" id="GC_SGDW_ZSBH" value="<%=rs("GC_SGDW_ZSBH")%>" size="25"></td>
</tr>
<tr align="center">
<td> 负 责 人 </td>
<td align="left"><input name="GC_SGDW_FZR" type="text" id="GC_SGDW_FZR" value="<%=rs("GC_SGDW_FZR")%>" size="15"></td>
<td> 联系电话 </td>
<td align="left"><input name="GC_SGDW_LXDH" type="text" id="GC_SGDW_LXDH" value="<%=rs("GC_SGDW_LXDH")%>" size="15"></td>
</tr>
<tr align="center">
<td valign="middle"><br>
申<br>请<br>验<br>收<br>所<br>需<br>要<br>的<br>全<br>套<br>图<br>纸<br>资<br>料<br>
</td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td valign="middle"><br>
建<br>设<br>单<br>位<br>意<br>见<br></td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td valign="middle"><br>
设<br>计<br>施<br>工<br>单<br>位<br>意<br>见<br></td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td valign="middle"><br>
公<br>安<br>机<br>关<br>技<br>防<br>办<br>意<br>见<br></td>
<td colspan="3" align="left" valign="top"> </td>
</tr>
<tr align="center">
<td colspan="4"><input type="submit" name="Submit" value="修 改">
<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()
GC_GCMC = trim(request.Form("GC_GCMC"))
if GC_GCMC ="" then
response.Write("<script language=javascript>alert('工程名称不能为空！');history.back();</script>")
end if
GC_GCJB = trim(request.Form("GC_GCJB"))
GC_TZE = trim(request.Form("GC_TZE"))
GC_JSDW = trim(request.Form("GC_JSDW"))
GC_JSDW_FZR = trim(request.Form("GC_JSDW_FZR"))
GC_JSDW_LXDH = trim(request.Form("GC_JSDW_LXDH"))
GC_SJDW = trim(request.Form("GC_SJDW"))
GC_SJDW_ZSBH = trim(request.Form("GC_SJDW_ZSBH"))
GC_SJDW_FZR = trim(request.Form("GC_SJDW_FZR"))
GC_SJDW_LXDH = trim(request.Form("GC_SJDW_LXDH"))
GC_SGDW = trim(request.Form("GC_SGDW"))
GC_SGDW_ZSBH = trim(request.Form("GC_SGDW_ZSBH"))
GC_SGDW_FZR = trim(request.Form("GC_SGDW_FZR"))
GC_SGDW_LXDH = trim(request.Form("GC_SGDW_LXDH"))
GC_TBRQ = date()
sql = "select * from AFGL_GC where GC_GCMC = '"&GC_GCMC&"' 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_GC where id="&trim(request.QueryString("id"))
rs.open sql,conn,1,3
if GC_GCMC <> "" then
rs("GC_GCMC") = GC_GCMC
end if
if GC_GCJB <> "" then
rs("GC_GCJB") = GC_GCJB
end if
if GC_TZE <> "" then
rs("GC_TZE") = GC_TZE
end if
if GC_JSDW <> "" then
rs("GC_JSDW") = GC_JSDW
end if
if GC_JSDW_FZR <> "" then
rs("GC_JSDW_FZR") = GC_JSDW_FZR
end if
if GC_JSDW_LXDH <> "" then
rs("GC_JSDW_LXDH") = GC_JSDW_LXDH
end if
if GC_SJDW <> "" then
rs("GC_SJDW") = GC_SJDW
end if
if GC_SJDW_ZSBH <> "" then
rs("GC_SJDW_ZSBH") = GC_SJDW_ZSBH
end if
if GC_SJDW_FZR <> "" then
rs("GC_SJDW_FZR") = GC_SJDW_FZR
end if
if GC_SJDW_LXDH <> "" then
rs("GC_SJDW_LXDH") = GC_SJDW_LXDH
end if
if GC_SGDW <> "" then
rs("GC_SGDW") = GC_SGDW
end if
if GC_SGDW_ZSBH <> "" then
rs("GC_SGDW_ZSBH") = GC_SGDW_ZSBH
end if
if GC_SGDW_FZR <> "" then
rs("GC_SGDW_FZR") = GC_SGDW_FZR
end if
if GC_SGDW_LXDH <> "" then
rs("GC_SGDW_LXDH") = GC_SGDW_LXDH
end if
if GC_TBRQ <> "" then
rs("GC_TBRQ") = GC_TBRQ
end if
rs.update
rs.close
response.Redirect("?")
end if
end sub
%>
<%
sub delItem()
sql="delete from AFGL_GC 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 + -