⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 hx_xxlrry.asp

📁 数据结构课程设计之最小生成数的K算法的实现 简短 简洁
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<%
aspname=request("aspname")
xin=request("xin")
bh=request("bh")
bid=request("bid")%>
<link rel="stylesheet" type="text/css" href="../style.css">
<body topmargin="0" leftmargin="0" bgcolor="#dddddd">
<%
action="add"
if xin=0 then

	sql="select * from HXXMRY Where Hxxmry_id='"& bid &"'"
	set rs=server.Createobject("ADODB.Recordset")
	rs.open sql,conn,1,3
	if rs.eof then
		if request.form("submitn")=" 提 交 " then
			ktbh=request("bh")
			szdw=request.form("szdw2")
			ryxm=request.form("ryxm")
			zgh=request.form("zgh")
			ryfg=request.form("ryfg")
			rypm=request.form("rypm")
			bfb=request.form("bfb")
			rs.addnew
			rs("Hxxm_no")=ktbh
			rs("Hxxmry_szdw")=szdw
			rs("Hxxmry_xm")=ryxm
			rs("Hxxmry_zgbh")=zgh
			rs("Hxxmry_fg")=ryfg
			rs("Hxxmry_pm")=rypm
			rs("Hxxmry_bfb")=bfb
			rs.update
			action="suc"
			errn="人员信息录入成功!"
		end if
	else		
			ktbh=rs("Hxxm_no")
			szdw=rs("Hxxmry_szdw")
			ryxm=rs("Hxxmry_xm")
			zgh=rs("Hxxmry_zgbh")
			ryfg=rs("Hxxmry_fg")
			rypm=rs("Hxxmry_pm")
			bfb=rs("Hxxmry_bfb")
			if request.form("submitn")=" 提 交 " then
				ktbh=request("ktbh")
				szdw=request.form("szdw2")
				ryxm=request.form("ryxm")
				zgh=request.form("zgh")
				ryfg=request.form("ryfg")
				rypm=request.form("rypm")
				bfb=request.form("bfb")
				rs("Hxxm_no")=ktbh
				rs("Hxxmry_szdw")=szdw
				rs("Hxxmry_xm")=ryxm
				rs("Hxxmry_zgbh")=zgh
				rs("Hxxmry_fg")=ryfg
				rs("Hxxmry_pm")=rypm
				rs("Hxxmry_bfb")=bfb
				rs.update
				action="suc"
				errn="人员信息录入成功!"
			end if
		end if
elseif xin=1 then
		sql="select * from HXXMRY "
	set rs=server.Createobject("ADODB.Recordset")
	rs.open sql,conn,1,3
		if request.form("submitn")=" 提 交 " then
			ktbh=request("bh")
			szdw=request.form("szdw2")
			ryxm=request.form("ryxm")
			zgh=request.form("zgh")
			ryfg=request.form("ryfg")
			rypm=request.form("rypm")
			bfb=request.form("bfb")
			rs.addnew
			rs("Hxxm_no")=ktbh
			rs("Hxxmry_szdw")=szdw
			rs("Hxxmry_xm")=ryxm
			rs("Hxxmry_zgbh")=zgh
			rs("Hxxmry_fg")=ryfg
			rs("Hxxmry_pm")=rypm
			rs("Hxxmry_bfb")=bfb
			rs.update
			action="suc"
			errn="人员信息录入成功!"
		end if
		end if	
		%>
		<%if action="add" then%>
<br>
<br>

<table width="100%" height="265" border="0" cellpadding="0" cellspacing="0" bordercolor="#D6CFCE" background=>
  <tr> 
    <td height="28"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><div align="center"><strong>横向项目人员信息表</strong></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="235"> <div align="right">
	<form action="" name="form1" method="post"> 
          <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td width="22%"><div align="right">课题编号:</div></td>
              <td><input name="ktbh" type=text id="ktbh" readonly="" value="<%=bh%>" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 120px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #C0C0C0" size=12 maxlength=20></td>
            </tr>
            <tr> 
              <td><div align="right">所在单位:</div></td>
              <td><input name="szdw" value="<%=szdw%>" readonly="" type=text id="szdw" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 160px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" size=12 maxlength=10> 
                <a href="#" onClick=window.open('windowopen.asp?owid=7&forms=form1&formt=szdw&formt2=szdw2','','width=250,scrollbars=1,height=300')><img src="../images/open.gif" width="18" height="12" border="0"></a> 
                <INPUT name="szdw2" type=hidden id="szdw2" value=""></td>
            </tr>
            <tr> 
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr> 
              <td><div align="right">人员姓名:</div></td>
              <td> <div align="left"> 
                  <input name="ryxm" type=text id="ryxm" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 80px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" value="<%=ryxm%>" size=12 maxlength=12>
                </div></td>
            </tr>
            <tr> 
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr> 
              <td><div align="right">职 工 号:</div></td>
              <td><input name="zgh" value="<%=zgh%>" type=text id="zgh" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 80px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" size=12 maxlength=6></td>
            </tr>
            <tr> 
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr> 
              <td><div align="right">人员分工:</div></td>
              <td><input name="ryfg" value="<%=ryfg%>" type=text id="ktbh23" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 80px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" size=12 maxlength=12></td>
            </tr>
            <tr> 
              <td><div align="right">人员排名:</div></td>
              <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td>&nbsp;</td>
                  </tr>
                  <tr> 
                    <td> <div align="left"> 
                        <input name="rypm" type=text id="ktbh24" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 80px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" value="<%=rypm%>" size=12 maxlength=2>
                      </div></td>
                  </tr>
                </table></td>
            </tr>
            <tr> 
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr> 
              <td><div align="right">百 分 比:</div></td>
              <td><input name="bfb" type=text id="ktbh25" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 40px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" value="<%=bfb%>" size=12 maxlength=12>
                %</td>
            </tr>
            <tr> 
              <td colspan="2"> <div align="center"> 
                  <INPUT type=submit value=' 提 交 ' name=Submitn style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 50; border: 1px groove #000000; background-position: 0% 50%">
                  <INPUT name="reset" type=reset style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 50; border: 1px groove #000000; background-position: 0% 50%" value=' 取 消 '>
                </div></td>
            </tr>
          </table>
        </form>
        </div></td>
  </tr>
</table>
<%elseif action="suc" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><div align="center"><script>
	alert("<% =errn %>")
	if(confirm("您是否需要继续录入或修改同一编号的人员信息?"))
	{window.location="<%=aspname%>.asp?aspname=<%=aspname%>&bh=<%=bh%>&name=<%=name%>"
	}
	else
	window.close
	</script>
	</div></td>
  </tr>
</table>
<%end if%>

⌨️ 快捷键说明

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