afgl_gc_gzz_zd.asp

U盘身份识别软件

<!--#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.CYRY_Name.value == ""){
    alert("工作组名称不能为空！");
	form1.CYRY_Name.focus();
	return false;
  }
  if(form1.CYRY_ZW_Name.value == ""){
    alert("工作组职务不能为空！");
	form1.CYRY_ZW_Name.focus();
	return false;
  }
}
//-->
</script>

<!--保存添加  -->
<%
sub saveAdd()

  CYRY_Name = trim(request.Form("CYRY_Name"))
  CYRY_ZW_Name = trim(request.Form("CYRY_ZW_Name"))

  sql = "select * from AFGL_GC_CYRY_ZD where CYRY_Name="&CYRY_Name&" and CYRY_ZW_Name = '"&CYRY_ZW_Name&"'"
  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_CYRY_ZD"
    rs.open sql,conn,1,3
    rs.addnew
    if CYRY_Name <> "" then
      rs("CYRY_Name") = CYRY_Name
	end if
    if CYRY_ZW_Name <> "" then
      rs("CYRY_ZW_Name") = CYRY_ZW_Name
	end if
    rs.update
    rs.close
	response.Redirect("?")
  end if

end sub
%>

<!-- 工程名称列表 -->
<%
sub listAll()
  sql = "select * from AFGL_GC_CYRY_ZD where CYRY_ZW_Name is not null"
  rs.open sql,conn,1,1
  if not rs.eof then
%>
<table width="500" border="1" align="center" cellpadding="5" cellspacing="0" class="FPtalbe">
  <tr>
    <td height="30" colspan="4" align="center"><span class="blackTitle">工程参与的工作组职务（列表）</span></td>
  </tr>
  <tr align="center">
    <td>工作组职务</td>
    <td> 工作组名称</td>
    <td width="70">修改</td>
    <td width="70">删除</td>
  </tr>
<%
    do while not rs.eof
%>
  <tr align="center">
    <td><%=rs("CYRY_ZW_Name")%>
	</td>
    <td>&nbsp;
    <%
	sql = "select * from AFGL_GC_GGZ_ZD where id="&rs("CYRY_Name")
	rssub.open sql,conn,1,1
	if not rssub.eof then
		response.Write(rssub("CYRY_Name"))
	else
		response.Write(rs("CYRY_Name"))
	end if
	rssub.close
	%></td>
    <td><input type="button" name="Submit" value="修改&gt;&gt;" onClick="location.href='?action=edit&id=<%=rs("id")%>';"></td>
    <td><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="500" 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> 工作组名称</td>
    <td align="left"><select name="CYRY_Name" id="CYRY_Name">
<%
sql="select * from AFGL_GC_GGZ_ZD"
rssub.open sql,conn,1,1
do while not rssub.eof
%>
<option value="<%=rssub("id")%>"><%=rssub("CYRY_Name")%></option>
<%
rssub.movenext
loop
rssub.close
%>
    </select>
      <span style="color: #FF0000">*
      <input type="button" name="Submit" value="组操作" onClick="location.href='AFGL_GC_GZZ.ASP';">
      <span style="color: #FF0000">      </span> </span></td>
    <td align="left">工作组职务</td>
    <td align="left"><input name="CYRY_ZW_Name" type="text" id="CYRY_ZW_Name" size="15">
      <span style="color: #FF0000">* </span></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_GC_CYRY_ZD where id="&trim(request.QueryString("id"))
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="500" 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> 工作组名称</td>
    <td align="left"><select name="CYRY_Name" id="CYRY_Name">
      <%
sql="select * from AFGL_GC_GGZ_ZD"
rssub.open sql,conn,1,1
do while not rssub.eof
%>
<option value="<%=rssub("id")%>" <%if rssub("id")=rs("id") then response.Write("selected")%>><%=rssub("CYRY_Name")%></option>
<%
rssub.movenext
loop
rssub.close
%>
    </select>
      <span style="color: #FF0000">*</span></td>
    <td align="left">工作组职务</td>
    <td align="left"><input name="CYRY_ZW_Name" type="text" id="CYRY_ZW_Name" value="<%=rs("CYRY_ZW_Name")%>" size="15"></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()
  CYRY_Name = trim(request.Form("CYRY_Name"))
  CYRY_ZW_Name = trim(request.Form("CYRY_ZW_Name"))

  sql = "select * from AFGL_GC_CYRY_ZD where CYRY_ZW_Name = '"&CYRY_ZW_Name&"' and CYRY_Name="&CYRY_Name&" 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_CYRY_ZD where id="&trim(request.QueryString("id"))
    rs.open sql,conn,1,3

    if CYRY_Name <> "" then
      rs("CYRY_Name") = CYRY_Name
	end if
    if CYRY_ZW_Name <> "" then
      rs("CYRY_ZW_Name") = CYRY_ZW_Name
	end if

    rs.update
    rs.close
	response.Redirect("?")
  end if
end sub
%>
<%
sub delItem()
	sql="delete from AFGL_GC_CYRY_ZD 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>