hx_xxlrxm.asp

数据结构课程设计之最小生成数的K算法的实现 简短 简洁

<!--#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 HXXM order by HXXM_ID desc"
	set countrs=server.createobject("adodb.recordset")
	countrs.open countsql,conn,1,1
	if not countrs.eof then
		m=1000000000+countrs("HXXM_ID") + 1
	else
		m=1000000000+1
	end if
end if
%>

<%
if xin=0 then 
    sql="select * from hxxm where hxxm_no='"& bh &"'"
	set rs=server.Createobject("ADODB.Recordset")
	rs.open sql,conn,1,3
		if not rs.eof then
			dwdm=rs("Hxxm_dwdm")
			'防止此项没修改则dwdm2无值，从而表中丢失dwdm，因为保存时存的是单位代码dwdm2
			dwdm2=dwdm
			ktbh=rs("Hxxm_no")
			ktmc=rs("Hxxm_ktmc")
			fzr=rs("Hxxm_fzr")
			htbh=rs("Hxxm_htbh")
			htjf=rs("Hxxm_htjf")
			hdlx=rs("Hxxm_hdlx")
			hdlx2=hdlx
			hzxs=rs("Hxxm_hzxs")
			hzxs2=hzxs
			wcxs=rs("Hxxm_wcxs")
			wcxs2=wcxs
			xmly=rs("Hxxm_rwly")
			lxwj=rs("Hxxm_lxwj")
			shr=rs("Hxxm_shr")
			qfr=rs("Hxxm_qfr")
			xmzt=rs("Hxxm_xmzt")
			xmzt2=xmzt
			shbz=rs("Hxxm_sybz")
			shbz2=shbz
			htlx=rs("Hxxm_htlx")
			htlx2=htlx
			xmlb=rs("Hxxm_xmlb")
			xmlb2=xmlb
			xklb=rs("Hxxm_xklb")
			xklb2=xklb
			htqs=rs("Hxxm_htqs")
			htzz=rs("Hxxm_htjz")
			lxsj=rs("Hxxm_lxsj")
			if request.form("submitn")=" 提 交 " then
				dwdm=request.form("dwdm2")
				ktbh=request.Form("ktbh")
				ktmc=request.form("ktmc")
				fzr=request.form("fzr")
				htqs=request.form("htqs")
				htzz=request.form("htzz")
				lxsj=request.form("lxsj")
				htbh=request.form("htbh")
				htlx=request.form("htlx2")
				xmlb=request.form("xmlb2")
				xklb=request.form("xklb2")
				htjf=request.form("htjf")
				hdlx=request.form("hdlx2")
				hzxs=request.form("hzxs2")
				wcxs=request.form("wcxs")
				xmly=request.form("xmly")
				lxwj=request.form("lxwj")
				shr=request.form("shr")
				qfr=request.form("qfr")
				xmzt=request.form("xmzt2")
				shbz=request.form("shbz2")
				rs("Hxxm_dwdm")=dwdm   'getvalue(dwdm,dwdm2)
				rs("Hxxm_no")=ktbh
				rs("Hxxm_ktmc")=ktmc
				rs("Hxxm_fzr")=fzr
				rs("Hxxm_htbh")=htbh
				rs("Hxxm_htjf")=htjf
				rs("Hxxm_hdlx")=hdlx  'getvalue(hdlx,hdlx2)
				rs("Hxxm_hzxs")=hzxs  'getvalue(hzxs,hzxs2)
				rs("Hxxm_wcxs")=wcxs
				rs("Hxxm_rwly")=xmly
				rs("Hxxm_lxwj")=lxwj
				rs("Hxxm_shr")=shr
				rs("Hxxm_qfr")=qfr
				rs("Hxxm_xmzt")=xmzt  'getvalue(xmzt,xmzt2)
				rs("Hxxm_sybz")=shbz  'getvalue(shbz,shbz2)
				rs("Hxxm_htlx")=htlx  'getvalue(htlx,htlx2)
				rs("Hxxm_xmlb")=xmlb  'getvalue(xmlb,xmlb2)
				rs("Hxxm_xklb")=xklb  'getvalue(xklb,xklb2)
				rs("Hxxm_htqs")=htqs
				rs("Hxxm_htjz")=htzz
				rs("Hxxm_lxsj")=lxsj
				rs.update
				action="suc"
				errn="基本信息录入成功！！"
			end if
		else 
			action="err"
			errn="此编号已经在用"
		end if
elseif xin=1 then
		dwdm=request.form("dwdm2")
		ktbh=request.Form("ktbh")
		ktmc=request.form("ktmc")
		fzr=request.form("fzr")
		htqs=request.form("htqs")
		htzz=request.form("htzz")
		lxsj=request.form("lxsj")
		htbh=request.form("htbh")
		htlx=request.form("htlx2")
		xmlb=request.form("xmlb2")
		xklb=request.form("xklb2")
		htjf=request.form("htjf")
		hdlx=request.form("hdlx2")
		hzxs=request.form("hzxs2")
		wcxs=request.form("wcxs")
		xmly=request.form("xmly")
		lxwj=request.form("lxwj")
		shr=request.form("shr")
		qfr=request.form("qfr")
		xmzt=request.form("xmzt2")
		shbz=request.form("shbz2")
		sql="select * from hxxm where hxxm_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("Hxxm_dwdm")=dwdm
				rs("Hxxm_no")=ktbh
				rs("Hxxm_ktmc")=ktmc
				rs("Hxxm_fzr")=fzr
				rs("Hxxm_htbh")=htbh
				rs("Hxxm_htjf")=htjf
				rs("Hxxm_hdlx")=hdlx
				rs("Hxxm_hzxs")=hzxs
				rs("Hxxm_wcxs")=wcxs
				rs("Hxxm_rwly")=xmly
				rs("Hxxm_lxwj")=lxwj
				rs("Hxxm_shr")=shr
				rs("Hxxm_qfr")=qfr
				rs("Hxxm_xmzt")=xmzt
				rs("Hxxm_sybz")=shbz
				rs("Hxxm_htlx")=htlx
				rs("Hxxm_xmlb")=xmlb
				rs("Hxxm_xklb")=xklb
				rs("Hxxm_htqs")=htqs
				rs("Hxxm_htjz")=htzz
				rs("Hxxm_lxsj")=lxsj
				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="H<%=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>