📄 zx_xxlrxm.asp

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

<%
dim m
action="add"
if xin = 1 then
	countsql="select top 1 * from ZXXM order by ZXXM_ID desc"
	set countrs=server.createobject("adodb.recordset")
	countrs.open countsql,conn,1,1
	if not countrs.eof then
		m=1000000000+countrs("ZXXM_ID") + 1
	else
		m=1000000000+1
	end if
end if
%>

<%
if xin=0 then 
    sql="select * from zxxm where zxxm_no='"& bh &"'"
	set rs=server.Createobject("ADODB.Recordset")
	rs.open sql,conn,1,3
		if not rs.eof then
			xmpzsj=rs("zxxm_xmpzsj")
                        xmpzsj2=xmpzsj 
                        ktbh=rs("zxxm_no")
                        dwdm=rs("zxxm_dwdm")
                        dwdm2=dwdm
                        pwh=rs("zxxm_pwh")
                        xklb=rs("zxxm_xklb")
                        xklb2=xklb
                        xkly=rs("zxxm_xkly")
                        xkly2=xkly
                        mj=rs("zxxm_mj")
                        mj2=mj
                        xmlb=rs("zxxm_xmlb")
                        xmlb2=xmlb
                        fzr=rs("zxxm_fzr")
    			ltwj=rs("zxxm_ltwj")
 			qssj=rs("zxxm_qssj")
 			jzsj=rs("zxxm_jzsj")
 			lx=rs("zxxm_lx")
 			htjf=rs("zxxm_htjf")
 			bkdw=rs("zxxm_bkdw")
 			dke=rs("zxxm_dke")
 			ptjf=rs("zxxm_ptjf")
 			jjmb=rs("zxxm_jjmb")
 			ktzt=rs("zxxm_ktzt")
 			ktzt2=ktzt
 			jdmc=rs("zxxm_jdmc")
 		 	jdmc2=jdmc
 			ktjj=rs("zxxm_ktjj")
 			hzxs=rs("zxxm_hzxs")
 			hzxs2=hzxs
 			hdlx=rs("zxxm_hdlx")
 			hdlx2=hdlx
 		 	sybj=rs("zxxm_sybj")
 			sybj2=sybj
                        rwly=rs("zxxm_rwly")
                        rwly2=rwly
                        mc=rs("zxxm_mc")
                        if request.form("submitn")=" 提 交 " then
				xmpzsj=request.form("xmpzsj2")
				ktbh=request.Form("ktbh")
				dwdm=request.form("dwdm2")
				fzr=request.form("fzr")
				pwh=request.form("pwh")
				xklb=request.form("xklb2")
				xkly=request.form("xkly2")
				mj=request.form("mj2")
				xmlb=request.form("xmlb2")
				ltwj=request.form("ltwj")
				qssj=request.form("qssj")
				jzsj=request.form("jzsj")
				lx=request.form("lx")
			        htjf=request.form("htjf")
				bkdw=request.form("bkdw")
				dke=request.form("dke")
				ptjf=request.form("ptjf")
				jjmb=request.form("jjmb")
				ktzt=request.form("ktzt2")
				jdmc=request.form("jdmc2")
				ktjj=request.form("ktjj")
 				hzxs=request.form("hzxs2")
                                hdlx=request.form("hdlx2") 
                                sybj=request.form("sybj2")
                                rwly=request.form("rwly2")
                                mc=request.form("mc")
      				rs("Zxxm_dwdm")=dwdm   
				rs("Zxxm_no")=ktbh
				rs("Zxxm_xmpzsj")=xmpzsj
				rs("Zxxm_fzr")=fzr
				rs("Zxxm_pwh")=pwh
				rs("Zxxm_kwly")=kwly
				rs("Zxxm_xklb")=xklb  
				rs("Zxxm_xkly")=xkly 
				rs("Zxxm_mj")=mj
				rs("Zxxm_xmlb")=xmlb
				rs("Zxxm_ltwj")=ltwj
				rs("Zxxm_qssj")=qssj
				rs("Zxxm_jzsj")=jzsj
				rs("Zxxm_lx")=lx 
				rs("Zxxm_htjf")=htjf 
				rs("Zxxm_bkdw")=bkdw  
				rs("Zxxm_dke")=dke  
				rs("Zxxm_ptjf")=ptjf  
				rs("Zxxm_jjmb")=jjmb
				rs("Zxxm_ktzt")=ktzt
                                rs("Zxxm_jdmc")=jdmc
                                rs("Zxxm_ktjj")=ktjj
                                rs("Zxxm_hzxs")=hzxs
                                rs("Zxxm_hdlx")=hdlx
                                rs("Zxxm_sybj")=sybj
                                rs("Zxxm_rwly")=rwly
                                rs("Zxxm_mc")=mc
				rs.update
				action="suc"
				errn="基本信息录入成功！！"
			end if
		else 
			action="err"
			errn="此编号已经在用"
		end if
    elseif xin=1 then
                                xmpzsj=request.form("xmpzsj2")
				ktbh=request.Form("ktbh")
				dwdm=request.form("dwdm2")
				fzr=request.form("fzr")
				pwh=request.form("pwh")
				xklb=request.form("xklb2")
				xkly=request.form("xkly2")
				mj=request.form("mj2")
				xmlb=request.form("xmlb2")
				ltwj=request.form("ltwj")
				qssj=request.form("qssj")
				jzsj=request.form("jzsj")
				lx=request.form("lx")
			        htjf=request.form("htjf")
				bkdw=request.form("bkdw")
				dke=request.form("dke")
				ptjf=request.form("ptjf")
				jjmb=request.form("jjmb")
				ktzt=request.form("ktzt2")
				jdmc=request.form("jdmc2")
				ktjj=request.form("ktjj")
 				hzxs=request.form("hzxs2")
                                hdlx=request.form("hdlx2") 
                                sybj=request.form("sybj2")
                                rwly=request.form("rwly2")
                                mc=request.form("mc")
		                sql="select * from zxxm where zxxm_no='"& ktbh &"'"
		                set rs=server.Createobject("ADODB.Recordset")
		                rs.open sql,conn,1,3
		                if rs.eof then
			        if request.form("submitn")=" 提 交 " then
				rs.addnew
				rs("Zxxm_dwdm")=dwdm   
				rs("Zxxm_no")=ktbh
				rs("Zxxm_xmpzsj")=xmpzsj
				rs("Zxxm_fzr")=fzr
				rs("Zxxm_pwh")=pwh
				rs("Zxxm_rwly")=rwly
				rs("Zxxm_xklb")=xklb  
				rs("Zxxm_xkly")=xkly 
				rs("Zxxm_mj")=mj
				rs("Zxxm_xmlb")=xmlb
				rs("Zxxm_ltwj")=ltwj
				rs("Zxxm_qssj")=qssj
				rs("Zxxm_jzsj")=jzsj
				rs("Zxxm_lx")=lx 
				rs("Zxxm_htjf")=htjf 
				rs("Zxxm_bkdw")=bkdw  
				rs("Zxxm_dke")=dke  
				rs("Zxxm_ptjf")=ptjf  
				rs("Zxxm_jjmb")=jjmb
				rs("Zxxm_ktzt")=ktzt
                rs("Zxxm_jdmc")=jdmc
                rs("Zxxm_ktjj")=ktjj
                rs("Zxxm_hzxs")=hzxs
                rs("Zxxm_hdlx")=hdlx
                rs("Zxxm_sybj")=sybj
                rs("Zxxm_rwly")=rwly
                rs("Zxxm_mc")=mc
				rs.update
				action="suc"
				errn="基本信息录入成功！！"
			end if			
	else
		action="err"
		errn="本编号在用"		
	end if
end if
%>

<head>

<link rel="stylesheet" type="text/css" href="../style.css"> 
</head>

<body topmargin="0" leftmargin="0" bgcolor="#dddddd">




  



<%if action="add"  then%>
  <table width="100%" height="164" border="0" cellpadding="0" cellspacing="0" bordercolor="#D6CFCE" background=>
  <form name="form1"  id="form1"  action="" method="post">
  
  <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="134"> <div align="right"> 
        <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="15%"><div align="left">课题编号：</div></td>
            <td width="30%"> 
              <%if xin=1 then%>
              <input name="ktbh" type=text readonly="" id="ktbh2" 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" value="Z<%=m%>" size=20 maxlength=20> 
              <%elseif xin =0 then%>
              <input name="ktbh" type=text readonly="" id="ktbh2" 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" value="<%=bh%>" size=20 maxlength=20> 
              <%end if%>
            </td>
            <td width="15%">负责人：</td>
            <td width="30%"><input name="fzr" type=text id="fzr" 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="<%=fzr%>" size=12 maxlength=12></td>
          </tr>
          <tr> 
            <td><div align="left">批文号：</div></td>
            <td><input name="pwh" type=text id="pwh" 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="<%=pwh%>" size=12 maxlength=80></td>
            <td>单位代码：</td>
            <td><input name="dwdm" type=text id="dwdm" 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="<%=dwdm%>" size=12 maxlength=15 readonly=""> 
              <a href="#" onClick=window.open('windowopen.asp?owid=dd_dwdm&forms=form1&formt=dwdm&formt2=dwdm2','','width=250,scrollbars=1,height=300')><img src="../images/open.gif" width="18" height="12" border="0"></a> 
              <input name="dwdm2" type=hidden id="dwlb22" value="<%=dwdm2%>"></td>
          </tr>
          <tr> 
            <td><div align="left">课题名称：</div></td>
            <td><input name="mc" type=text id="mc" 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="<%=mc%>" size=12 maxlength=10></td>
            <td>学科领域：</td>
            <td><input name="xkly" type=text id="xkly" 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="<%=xkly%>" size=12 maxlength=2 readonly=""> 
              <a href="#" onClick=window.open('windowopen.asp?owid=dd_xkly&forms=form1&formt=xkly&formt2=xkly2','','width=250,scrollbars=1,height=300')><img src="../images/open.gif" width="18" height="12" border="0"></a> 
              <INPUT name="xkly2" type=hidden id="xkly2" value="<%=xkly2%>"></td>
          </tr>
          <tr> 
            <td><div align="left">起始时间：</div></td>
            <td><input name="qssj" type=text id="qssj" 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="<%=qssj%>" size=12 maxlength=8 readonly=""> 
              <a href='#' onClick="window.open('dateinput.asp?Accept=form1.qssj','','width=450,height=280');"><img src="../images/open.gif" width="18" height="12" border="0"></a></td>
12 下一页
⌨️ 快捷键说明

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