📄 zx_xxlrjfjb.asp

📁 数据结构课程设计之最小生成数的K算法的实现简短简洁
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../conn.asp"-->
<!--#include file="../function.asp"-->
<%
aspname=request("aspname")
xin=request("xin")
bh=request("bh")
name=request("name")
bid=request("bid")
xin=request("xin")
%>

<link rel="stylesheet" type="text/css" href="../style.css">
<body topmargin="0" leftmargin="0" bgcolor="#dddddd">
<script>
var x
x="<%=request.form("submitx")%>"
if (x=="查 询"){
	window.location="select.asp?aspname=<%=aspname%>&bh=<%=bh%>"
	}
</script>
<script>
var y
y="<%=request.form("submity")%>"
if (y=="新 增"){
window.location="<%=aspname%>.asp?aspname=<%=aspname%>&bh=<%=bh%>&name=<%=name%>&xin=1"
}
</script>
<%
action="add"
if xin=0 then

	sql="select * from ZXXMjf Where ZXXMjf_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")
			nd=emptyn(request.form("nd"))
			sjz=emptyn(request.form("sjz"))
			sbr=emptyn(request.form("sbr"))
			ywf=emptyn(request.form("ywf"))
			yqsbf=emptyn(request.form("yqsbf"))
			bzc=emptyn(request.form("bzc"))
			wyyssbf=emptyn(request.form("wyyssbf"))
			zbgf=emptyn(request.form("zbgf"))
			glf=emptyn(request.form("glf"))
			bnjyjf=emptyn(request.form("bnjyjf"))
			qt=emptyn(request.form("qt"))
			rs.addnew
			rs("Zxxm_no")=ktbh
			rs("Zxxmjf_nd")=nd
			rs("Zxxmjf_snjz")=sjz
            rs("Zxxmjf_bnbr")=sbr
			rs("Zxxmjf_ywf")=ywf
			rs("Zxxmjf_yqsbf")=yqsbf
			rs("Zxxmjf_bnzc")=bzc
			rs("Zxxmjf_wysbf")=wyyssbf
			rs("Zxxmjf_zbjf")=zbgf
			rs("Zxxmjf_glf")=glf
			rs("Zxxmjf_bnjy")=bnjyjf
			rs("Zxxmjf_qt")=qt
			rs.update
			action="suc"
			errn="经费基本信息录入成功！"
		end if
	else		
		ktbh=rs("Zxxm_no")
		ktmc=name
		nd=rs("Zxxmjf_nd")
		sjz=rs("Zxxmjf_snjz")
        sbr=rs("Zxxmjf_bnbr")
		ywf=rs("Zxxmjf_ywf")
		yqsbf=rs("Zxxmjf_yqsbf")
		bzc=rs("Zxxmjf_bnzc")
		wyyssbf=rs("Zxxmjf_wysbf")
		zbgf=rs("Zxxmjf_zbjf")
		glf=rs("Zxxmjf_glf")
		bnjyjf=rs("Zxxmjf_bnjy")
		qt=rs("Zxxmjf_qt")
		if request.form("submitn")=" 提 交 " then
			ktbh=request("ktbh")
			nd=emptyn(request.form("nd"))
			sjz=emptyn(request.form("sjz"))
			sbr=emptyn(request.form("sbr"))
			ywf=emptyn(request.form("ywf"))
			yqsbf=emptyn(request.form("yqsbf"))
			bzc=emptyn(request.form("bzc"))
			wyyssbf=emptyn(request.form("wyyssbf"))
			zbgf=emptyn(request.form("zbgf"))
			glf=emptyn(request.form("glf"))
			bnjyjf=emptyn(request.form("bnjyjf"))
			qt=emptyn(request.form("qt"))
			rs("Hxxm_no")=ktbh
			rs("Zxxmjf_nd")=nd
			rs("Zxxmjf_snjz")=sjz
			rs("Zxxmjf_bnbr")=sbr
			rs("Zxxmjf_ywf")=ywf
			rs("Zxxmjf_yqsbf")=yqsbf
			rs("Zxxmjf_bnzc")=bzc
			rs("Zxxmjf_wysbf")=wyyssbf
			rs("Zxxmjf_zbjf")=zbgf
			rs("Zxxmjf_glf")=glf
			rs("Zxxmjf_bnjy")=bnjyjf
			rs("Zxxmjf_qt")=qt
			rs.update
			action="suc"
			errn="经费基本信息录入成功！"
		end if
	end if
elseif xin=1 then
		sql="select * from ZXXMjf "
		set rs=server.Createobject("ADODB.Recordset")
		rs.open sql,conn,1,3
		if request.form("submitn")=" 提 交 " then
			ktbh=request("bh")
			nd=emptyn(request.form("nd"))
			sjz=emptyn(request.form("sjz"))
			sbr=emptyn(request.form("sbr"))
			ywf=emptyn(request.form("ywf"))
			yqsbf=emptyn(request.form("yqsbf"))
			bzc=emptyn(request.form("bzc"))
			wyyssbf=emptyn(request.form("wyyssbf"))
			zbgf=emptyn(request.form("zbgf"))
			glf=emptyn(request.form("glf"))
			bnjyjf=emptyn(request.form("bnjyjf"))
			qt=emptyn(request.form("qt"))
			rs.addnew
			rs("Zxxm_no")=ktbh
			rs("Zxxmjf_nd")=nd
			rs("Zxxmjf_snjz")=sjz
            rs("Zxxmjf_bnbr")=sbr
			rs("Zxxmjf_ywf")=ywf
			rs("Zxxmjf_yqsbf")=yqsbf
			rs("Zxxmjf_bnzc")=bzc
			rs("Zxxmjf_wysbf")=wyyssbf
			rs("Zxxmjf_zbjf")=zbgf
			rs("Zxxmjf_glf")=glf
			rs("Zxxmjf_bnjy")=bnjyjf
			rs("Zxxmjf_qt")=qt
			rs.update
			action="suc"
			errn="经费基本信息录入成功！"
		end if
		end if	
		%>
		<%if action="add" then%>
		
<table width="100%" height="195" 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="165"> <div align="right">
	<form name="form1"  class="" method="post"> 
          <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td width="20%" align="left">课题编号：</td>
              <td width="30%"><input name="ktbh" type=text readonly="" value="<%=bh%>" id="ktbh" 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: #C0C0C0" size=12 maxlength=20></td>
              <td width="20%" align="left">课题名称：</div></td>
              <td width="30%"><input name="ktbc" type=text readonly="" value="<%=name%>" id="ktbc" 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: #C0C0C0" size=12 maxlength=80></td>
            </tr>
            <tr> 
              <td align="left">　</td>
              <td colspan="3">　<div align="right"></div></td>
            </tr>
            <tr> 
              <td align="left">年度：</td>
              <td>
             <SELECT size=1 name="nd" type=text id="nd" 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" value="<%=nd%>"> 
			 <%for i=2000 to 2020%>
			   <OPTION value=<%=cstr(i)%> <%if cstr(nd)=cstr(i) then %> selected <%end if%>><%=cstr(i)%></OPTION>
			 <%next%>
			 </SELECT>  </td>
              <td height="14" align="left">上年结转经费：</div></td>
              <td>  
                  <input name="sjz" type=text id="sjz" 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" value="<%=sjz%>" size=12 maxlength=12>
                </div></td>
            </tr>
            <tr> 
              <td align="left">　</td>
              <td>　</td>
              <td align="left"></div></td>
              <td>　</td>
            </tr>
            <tr> 
              <td align="left">本年拨入经费：</td>
              <td><input name="sbr" type=text id="sbr" 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" value="<%=sbr%>" size=12 maxlength=12></td>
              <td align="left">业务费：</div></td>
              <td><input name="ywf" type=text id="ywf" 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" value="<%=ywf%>" size=12 maxlength=12></td>
            </tr>
            <tr> 
              <td align="left">　</td>
              <td>　</td>
              <td align="left" ></div></td>
              <td>　</td>
            </tr>
            <tr> 
              <td align="left">仪器设备费：</td>
              <td><input name="yqsbf" type=text id="yqsbf" 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" value="<%=yqsbf%>" size=12 maxlength=12></td>
              <td align="left">本年支出经费：</div></td>
              <td><input name="bzc" type=text id="bzc" 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" value="<%=bzc%>" size=12 maxlength=12></td>
            </tr>
            <tr> 
              <td align="left">　</td>
              <td>　</td>
              <td align="left"></div></td>
              <td>　</td>
            </tr>
            <tr> 
              <td align="left">万元以上设备费：</td>
              <td><input name="wyyssbf" type=text id="wyyssbf" 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" value="<%=wyyssbf%>" size=12 maxlength=12></td>
              <td align="left">转拨给外单位经费：</div></td>
12 下一页
⌨️ 快捷键说明

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