新建 文本文档.txt

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

	if not rs.eof then
		bm=rs("LWXX_LWBM")
		mc=rs("LWXX_LWMC")
		lb=rs("LWXX_LWLB")
		lb2=lb
		qklb=rs("LWXX_QKLB")
		qklb2=qklb
		qkmc=rs("LWXX_QKM")
		fbsj=rs("LWXX_FBSJ")
		qkh=rs("LWXX_QKH")
		qkys=rs("LWXX_YS")
		ml=rs("LWXX_XKML")
		ml2=ml
		qk=rs("LWXX_HJQK")
		qk2=qk
		lwj=rs("LWXX_LWJMC")
		cbs=rs("LWXX_CBS")
		cbsj=rs("LWXX_CBSJ")
		sh=rs("LWXX_SH")
		xshy=rs("LWXX_XSHYM")
		hydd=rs("LWXX_DD")
		zbdw=rs("LWXX_ZBDW")
		hysj=rs("LWXX_HYSJ")
		hylx=rs("LWXX_HYLX")
		hylx2=hylx
		sl=rs("LWXX_YYBZ")
		sl2=sl
		shbz=rs("LWXX_SHBZ")
		shbz2=shbz


				rs("LWXX_LWBM")=bm
				rs("LWXX_LWMC")=mc
				rs("LWXX_LWLB")=lb
				rs("LWXX_QKLB")=qklb
				rs("LWXX_QKM")=qkmc
				rs("LWXX_FBSJ")=fbsj
				rs("LWXX_QKH")=qkh
				rs("LWXX_YS")=qkys
				rs("LWXX_XKML")=ml
				rs("LWXX_HJQK")=qk
				rs("LWXX_LWJMC")=lwj
				rs("LWXX_CBS")=cbs
				rs("LWXX_CBSJ")=cbsj
				rs("LWXX_SH")=sh
				rs("LWXX_XSHYM")=xshy
				rs("LWXX_DD")=hydd
				rs("LWXX_ZBDW")=zbdw
				rs("LWXX_HYSJ")=hysj
				rs("LWXX_HYLX")=hylx
				rs("LWXX_YYBZ")=sl
				rs("LWXX_SHBZ")=shbz
					rs.update



<%
sql="insert into zjxx(zjxx_orderno,zjxx_name,zjxx_sex,zjxx_nation,zjxx_degree,zjxx_depart,zjxx_address,zjxx_email) values('"& bh &"','"& xm &"','"& xb &"','"& gj &"','"& zgxw &"','"& szbm &"','"& lxdz &"','"& mail &"')"
set rs=conn.execute(sql)
%>



sql="select * from zzxx where zzxx_zzbm='"& bh &"'"
	set rs=server.Createobject("ADODB.Recordset")
	rs.open sql,conn,1,3
	if not rs.eof then
        zzbm=rs(1)
		dwdm=rs(2)
		dwdm2=dwdm
		zzmc=rs(3)
		zzlb=rs(4)
		zzlb2=zzlb
		cbs=rs(5)
		cbsj=rs(6)
		sh=rs(7)
		xklb=rs(8)
		xklb2=xklb
		hjqk=rs(9)
		hjqk2=hjqk
		cbsdj=rs(10)
		cbsdj2=cbsdj
		zzs=rs(11)
		jbnr=rs(12)
		shbz=rs(13)
		shbz2=shbz


if xin = 1 then
		ktbm=request.form("ktbm")
		zlsqh=request.Form("zlsqh")
		zlmc=request.form("zlmc")
		zllb=request.form("zllb2")
		flzt=request.form("flzt")
		sqsj=request.form("sqsj")
		shqsj=request.form("shqsj")
		zlfw=request.form("zlfw2")
		zldj=request.form("zldj2")
		hjqk=request.form("hjqk2")
		zwss=request.form("zwss")
		jbnr=request.form("jbnr")
		shbz=request.form("shbz2")
		sql="select * from zlxx where zlxx_zlsqh='"& zlsqh &"'"
		set rs=server.Createobject("ADODB.Recordset")
		rs.open sql,conn,1,3
		if rs.eof then
			if request.form("submitn")=" 提 交 " then
				rs.addnew
				rs(1)=zlsqh
				rs(2)=ktbm
				rs(3)=zlmc
				rs(4)=zllb
				rs(5)=zlfw
				rs(6)=zldj
				rs(7)=sqsj
				rs(8)=shqsj
				rs(9)=flzt
				rs(10)=zwss
				rs(11)=hjqk
				rs(12)=jbnr
				rs(13)=shbz
				rs.update
				action="suc"
				errn="基本信息录入成功！！"
			end if
		end if
	sql="select * from zlxx where zlxx_zlsqh='"& bh &"'"
	set rs=server.Createobject("ADODB.Recordset")
	rs.open sql,conn,1,3
	if not rs.eof then
		zlsqh=rs(1)
		ktbm=rs(2)
		zlmc=rs(3)
		zllb=rs(4)
		zllb2=zllb
		zlfw=rs(5)
		zlfw2=zlfw
		zldj=rs(6)
		zldj2=zldj
		sqsj=rs(7)
		shqsj=rs(8)
		flzt=rs(9)
		zwss=rs(10)
		hjqk=rs(11)
		hjqk2=hjqk
		jbnr=rs(12)
		shbz=rs(13)
		shbz2=shbz


					rs(1)=zlsqh
					rs(2)=ktbm
					rs(3)=zlmc
					rs(4)=zllb
					rs(5)=zlfw
					rs(6)=zldj
					rs(7)=sqsj
					rs(8)=shqsj
					rs(9)=flzt
					rs(10)=zwss
					rs(11)=hjqk
					rs(12)=jbnr
					rs(13)=shbz