📄 afgl_gc_ba.asp

📁 U盘身份识别软件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
    <td colspan="7"><textarea name="GC_BA_21" cols="50" rows="6" id="GC_BA_21"></textarea></td>
    </tr>
  <tr>
    <td colspan="2" align="center">说明</td>
    <td colspan="7"><textarea name="GC_BA_22" cols="50" rows="6" id="GC_BA_22"></textarea></td>
    </tr>
  <tr align="center">
    <td colspan="9"><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_GC_BA 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="9" class="blackTitle">陕西省安全防范工程情况备案表</td>
    </tr>
  <tr>
    <td colspan="2" align="center">工程名称</td>
    <td colspan="3"><input name="GC_BA_1" type="text" id="GC_BA_1" value="<%=rs("GC_BA_1")%>" size="25"></td>
    <td align="center">联系人</td>
    <td colspan="3"><input name="GC_BA_2" type="text" id="GC_BA_2" value="<%=rs("GC_BA_2")%>" size="25"></td>
  </tr>
  <tr>
    <td colspan="2" align="center">地址</td>
    <td colspan="3"><input name="GC_BA_3" type="text" id="GC_BA_3" value="<%=rs("GC_BA_3")%>" size="25"></td>
    <td align="center">电话</td>
    <td colspan="3"><input name="GC_BA_4" type="text" id="GC_BA_4" value="<%=rs("GC_BA_4")%>" size="25"></td>
  </tr>
  <tr>
    <td colspan="2" align="center">工程总造价-万元</td>
    <td><input name="GC_BA_5" type="text" id="GC_BA_5" value="<%=rs("GC_BA_5")%>" size="10"></td>
    <td align="center">设备造价-万元</td>
    <td><input name="GC_BA_6" type="text" id="GC_BA_6" value="<%=rs("GC_BA_6")%>" size="10"></td>
    <td align="center">风险等级</td>
    <td><input name="GC_BA_7" type="text" id="GC_BA_7" value="<%=rs("GC_BA_7")%>" size="10"></td>
    <td align="center">建设工期</td>
    <td><input name="GC_BA_8" type="text" id="GC_BA_8" value="<%=rs("GC_BA_8")%>" size="10"></td>
  </tr>
  <tr>
    <td rowspan="2" align="center">建设单位</td>
    <td align="center">名称</td>
    <td colspan="3"><input name="GC_BA_9" type="text" id="GC_BA_9" value="<%=rs("GC_BA_9")%>" size="25"></td>
    <td align="center">联系人</td>
    <td colspan="3"><input name="GC_BA_11" type="text" id="GC_BA_11" value="<%=rs("GC_BA_11")%>" size="25"></td>
  </tr>
  <tr>
    <td align="center">地址</td>
    <td colspan="3"><input name="GC_BA_10" type="text" id="GC_BA_10" value="<%=rs("GC_BA_10")%>" size="25"></td>
    <td align="center">电话</td>
    <td colspan="3"><input name="GC_BA_12" type="text" id="GC_BA_12" value="<%=rs("GC_BA_12")%>" size="25"></td>
  </tr>
  <tr>
    <td rowspan="2" align="center">设计施工单位</td>
    <td align="center">名称</td>
    <td colspan="3"><input name="GC_BA_13" type="text" id="GC_BA_13" value="<%=rs("GC_BA_13")%>" size="25"></td>
    <td align="center">负责人</td>
    <td colspan="3"><input name="GC_BA_15" type="text" id="GC_BA_15" value="<%=rs("GC_BA_15")%>" size="25"></td>
  </tr>
  <tr>
    <td align="center">地址</td>
    <td colspan="3"><input name="GC_BA_14" type="text" id="GC_BA_14" value="<%=rs("GC_BA_14")%>" size="25"></td>
    <td align="center">电话</td>
    <td colspan="3"><input name="GC_BA_16" type="text" id="GC_BA_16" value="<%=rs("GC_BA_16")%>" size="25"></td>
  </tr>
  <tr>
    <td colspan="2" align="center">检测单位</td>
    <td colspan="3"><input name="GC_BA_17" type="text" id="GC_BA_17" value="<%=rs("GC_BA_17")%>" size="25"></td>
    <td align="center">检测报告编号</td>
    <td colspan="3"><input name="GC_BA_18" type="text" id="GC_BA_18" value="<%=rs("GC_BA_18")%>" size="25"></td>
  </tr>
  <tr>
    <td colspan="2" align="center">验收单位</td>
    <td colspan="3"><input name="GC_BA_19" type="text" id="GC_BA_19" value="<%=rs("GC_BA_19")%>" size="25"></td>
    <td align="center">验收时间</td>
    <td colspan="3"><input name="GC_BA_20" type="text" id="GC_BA_20" value="<%=rs("GC_BA_20")%>" size="25"></td>
  </tr>
  <tr>
    <td colspan="2" align="center">工程简介</td>
    <td colspan="7"><textarea name="GC_BA_21" cols="50" rows="6" id="GC_BA_21"><%=rs("GC_BA_21")%></textarea></td>
  </tr>
  <tr>
    <td colspan="2" align="center">说明</td>
    <td colspan="7"><textarea name="GC_BA_22" cols="50" rows="6" id="GC_BA_22"><%=rs("GC_BA_22")%></textarea></td>
  </tr>
  <tr align="center">
    <td colspan="9"><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()
  GC_BA_1 = trim(request.Form("GC_BA_1"))
  if GC_BA_1 ="" then
    response.Write("<script language=javascript>alert('工程名称不能为空！');history.back();</script>")
  end if
  GC_BA_2 = trim(request.Form("GC_BA_2"))
  GC_BA_3 = trim(request.Form("GC_BA_3"))
  GC_BA_4 = trim(request.Form("GC_BA_4"))
  GC_BA_5 = trim(request.Form("GC_BA_5"))
  GC_BA_6 = trim(request.Form("GC_BA_6"))
  GC_BA_7 = trim(request.Form("GC_BA_7"))
  GC_BA_8 = trim(request.Form("GC_BA_8"))
  GC_BA_9 = trim(request.Form("GC_BA_9"))
  GC_BA_10 = trim(request.Form("GC_BA_10"))
  GC_BA_11 = trim(request.Form("GC_BA_11"))
  GC_BA_12 = trim(request.Form("GC_BA_12"))
  GC_BA_13 = trim(request.Form("GC_BA_13"))
  GC_BA_14 = trim(request.Form("GC_BA_14"))
  GC_BA_15 = trim(request.Form("GC_BA_15"))
  GC_BA_16 = trim(request.Form("GC_BA_16"))
  GC_BA_17 = trim(request.Form("GC_BA_17"))
  GC_BA_18 = trim(request.Form("GC_BA_18"))
  GC_BA_19 = trim(request.Form("GC_BA_19"))
  GC_BA_20 = trim(request.Form("GC_BA_20"))
  GC_BA_21 = trim(request.Form("GC_BA_21"))
  GC_BA_22 = trim(request.Form("GC_BA_22"))

  sql = "select * from AFGL_GC_BA where GC_BA_1 = '"&GC_BA_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_GC_BA where id="&trim(request.QueryString("id"))
    rs.open sql,conn,1,3
    if GC_BA_1 <> "" then
      rs("GC_BA_1") = GC_BA_1
	end if
    if GC_BA_2 <> "" then
      rs("GC_BA_2") = GC_BA_2
	end if
    if GC_BA_3 <> "" then
      rs("GC_BA_3") = GC_BA_3
	end if
    if GC_BA_4 <> "" then
      rs("GC_BA_4") = GC_BA_4
	end if
    if GC_BA_5 <> "" then
      rs("GC_BA_5") = GC_BA_5
	end if
    if GC_BA_6 <> "" then
      rs("GC_BA_6") = GC_BA_6
	end if
    if GC_BA_7 <> "" then
      rs("GC_BA_7") = GC_BA_7
	end if
    if GC_BA_8 <> "" then
      rs("GC_BA_8") = GC_BA_8
	end if
    if GC_BA_9 <> "" then
      rs("GC_BA_9") = GC_BA_9
	end if
    if GC_BA_10 <> "" then
      rs("GC_BA_10") = GC_BA_10
	end if
    if GC_BA_11 <> "" then
      rs("GC_BA_11") = GC_BA_11
	end if
    if GC_BA_12 <> "" then
      rs("GC_BA_12") = GC_BA_12
	end if
    if GC_BA_13 <> "" then
      rs("GC_BA_13") = GC_BA_13
	end if
    if GC_BA_14 <> "" then
      rs("GC_BA_14") = GC_BA_14
	end if
    if GC_BA_15 <> "" then
      rs("GC_BA_15") = GC_BA_15
	end if
    if GC_BA_16 <> "" then
      rs("GC_BA_16") = GC_BA_16
	end if
    if GC_BA_17 <> "" then
      rs("GC_BA_17") = GC_BA_17
	end if
    if GC_BA_18 <> "" then
      rs("GC_BA_18") = GC_BA_18
	end if
    if GC_BA_19 <> "" then
      rs("GC_BA_19") = GC_BA_19
	end if
    if GC_BA_20 <> "" then
      rs("GC_BA_20") = GC_BA_20
	end if
    if GC_BA_21 <> "" then
      rs("GC_BA_21") = GC_BA_21
	end if
    if GC_BA_22 <> "" then
      rs("GC_BA_22") = GC_BA_22
	end if
    rs.update
    rs.close
	response.Redirect("?")
  end if
end sub
%>
<%
sub delItem()
	sql="delete from AFGL_GC_BA 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>
上一页 12
💿 文件大小 2052 K
👤 上传用户 wyly
📂 所属分类加密解密
🏷️ 相关标签

#U盘 #身份识别 #软件
⌨️ 快捷键说明

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