📄 hx_xxlrjfjb.asp
字号:
<!--#include file="../conn.asp"-->
<%
aspname=request("aspname")
xin=request("xin")
bh=request("bh")
name=request("name")
bid=request("bid")
%>
<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 HXXMjf Where HXXMjf_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=request.form("nd")
sjz=request.form("sjz")
sbr=request.form("sbr")
ywf=request.form("ywf")
yqsbf=request.form("yqsbf")
bzc=request.form("bzc")
wyyssbf=request.form("wyyssbf")
zbgf=request.form("zbgf")
glf=request.form("glf")
bnjyjf=request.form("bnjyjf")
qt=request.form("qt")
rs.addnew
rs("Hxxm_no")=ktbh
rs("Hxxmjf_nd")=nd
rs("Hxxmjf_snjz")=sjz
rs("Hxxmjf_bnbr")=sbr
rs("Hxxmjf_ywf")=ywf
rs("Hxxmjf_yqsbf")=yqsbf
rs("Hxxmjf_bnzc")=bzc
rs("Hxxmjf_wysbf")=wyyssbf
rs("Hxxmjf_zbjf")=zbgf
rs("Hxxmjf_glf")=glf
rs("Hxxmjf_bnjy")=bnjyjf
rs("Hxxmjf_qt")=qt
rs.update
action="suc"
errn="???????????!"
end if
else
ktbh=rs("Hxxm_no")
ktmc=name
nd=rs("Hxxmjf_nd")
sjz=rs("Hxxmjf_snjz")
sbr=rs("Hxxmjf_bnbr")
ywf=rs("Hxxmjf_ywf")
yqsbf=rs("Hxxmjf_yqsbf")
bzc=rs("Hxxmjf_bnzc")
wyyssbf=rs("Hxxmjf_wysbf")
zbgf=rs("Hxxmjf_zbjf")
glf=rs("Hxxmjf_glf")
bnjyjf=rs("Hxxmjf_bnjy")
qt=rs("Hxxmjf_qt")
if request.form("submitn")="??" then
ktbh=request("ktbh")
nd=request.form("nd")
sjz=request.form("sjz")
sbr=request.form("sbr")
ywf=request.form("ywf")
yqsbf=request.form("yqsbf")
bzc=request.form("bzc")
wyyssbf=request.form("wyyssbf")
zbgf=request.form("zbgf")
glf=request.form("glf")
bnjyjf=request.form("bnjyjf")
qt=request.form("qt")
rs("Hxxm_no")=ktbh
rs("Hxxmjf_nd")=nd
rs("Hxxmjf_snjz")=sjz
rs("Hxxmjf_bnbr")=sbr
rs("Hxxmjf_ywf")=ywf
rs("Hxxmjf_yqsbf")=yqsbf
rs("Hxxmjf_bnzc")=bzc
rs("Hxxmjf_wysbf")=wyyssbf
rs("Hxxmjf_zbjf")=zbgf
rs("Hxxmjf_glf")=glf
rs("Hxxmjf_bnjy")=bnjyjf
rs("Hxxmjf_qt")=qt
rs.update
action="suc"
errn="???????????!"
end if
end if
elseif xin=1 then
sql="select * from HXXMjf "
set rs=server.Createobject("ADODB.Recordset")
rs.open sql,conn,1,3
if request.form("submitn")="??" then
ktbh=request("bh")
nd=request.form("nd")
sjz=request.form("sjz")
sbr=request.form("sbr")
ywf=request.form("ywf")
yqsbf=request.form("yqsbf")
bzc=request.form("bzc")
wyyssbf=request.form("wyyssbf")
zbgf=request.form("zbgf")
glf=request.form("glf")
bnjyjf=request.form("bnjyjf")
qt=request.form("qt")
rs.addnew
rs("Hxxm_no")=ktbh
rs("Hxxmjf_nd")=nd
rs("Hxxmjf_snjz")=sjz
rs("Hxxmjf_bnbr")=sbr
rs("Hxxmjf_ywf")=ywf
rs("Hxxmjf_yqsbf")=yqsbf
rs("Hxxmjf_bnzc")=bzc
rs("Hxxmjf_wysbf")=wyyssbf
rs("Hxxmjf_zbjf")=zbgf
rs("Hxxmjf_glf")=glf
rs("Hxxmjf_bnjy")=bnjyjf
rs("Hxxmjf_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 value="<%=nd%>" 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" >
<OPTION selected>请选择年度</OPTION>
<OPTION name="nd" value="2000" >2000</OPTION>
<OPTION name="nd" value="2001" >2001</OPTION>
<OPTION name="nd" value="2002" >2002</OPTION>
<OPTION name="nd" value="2003">2003</OPTION>
<OPTION name="nd" value="2004">2004</OPTION>
<OPTION name="nd" value="2005">2005</OPTION>
<OPTION name="nd" value="2006">2006</OPTION>
<OPTION name="nd" value="2007">2007</OPTION>
<OPTION name="nd" value="2008">2008</OPTION>
<OPTION name="nd" value="2009">2009</OPTION>
<OPTION name="nd" value="2010">2010</OPTION>
</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=9>
</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=9></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=9></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=9></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=9></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=9></td>
<td align="left">转拨给外单位经费：</div></td>
<td><input name="zbgf" type=text id="zbgf" 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="<%=zbgf%>" size=12 maxlength=9></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="glf" type=text id="glf" 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="<%=glf%>" size=12 maxlength=9></td>
<td align="left">本年结余经费：</div></td>
<td><input name="bnjyjf" type=text id="bnjyjf" 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="<%=bnjyjf%>" size=12 maxlength=9></td>
</tr>
<tr>
<td align="left"> </td>
<td> </td>
<td></div></td>
<td> </td>
</tr>
<tr>
<td align="left">其他：</td>
<td colspan="3"><input name="qt" type=text id="qt" 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="<%=qt%>" size=12 maxlength=9>
</div></td>
</tr>
<tr>
<td colspan="4"> <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=' 取 消 '>
<INPUT type=submit value="查 询" name=Submitx 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 type=submit value="新 增" name=Submity 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%">
</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%>&xin=1"
}
else
window.close
</script>
</div></td>
</tr>
</table>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -