📄 hx_xxlrxmold.asp

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

<%
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")
			ktbh=rs("Hxxm_no")
			ktmc=rs("Hxxm_ktmc")
			fzr=rs("Hxxm_fzr")
			htbh=rs("Hxxm_htbh")
			htjf=rs("Hxxm_htjf")
			wcxs=rs("Hxxm_wcxs")
			xmly=rs("Hxxm_rwly")
			lxwj=rs("Hxxm_lxwj")
			shr=rs("Hxxm_shr")
			qfr=rs("Hxxm_qfr")
			xmzt=rs("Hxxm_xmzt")
			shbz=rs("Hxxm_sybz")
			htlx=rs("Hxxm_htlx")
			xmlb=rs("Hxxm_xmlb")
			xklb=rs("Hxxm_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")
				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
				rs("Hxxm_no")=ktbh
				rs("Hxxm_ktmc")=ktmc
				rs("Hxxm_fzr")=fzr
				rs("Hxxm_htbh")=htbh
				rs("Hxxm_htjf")=htjf
				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
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")
				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_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
%>

<link rel="stylesheet" type="text/css" href="../style.css"> 
<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="20%"><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>
12 下一页
⌨️ 快捷键说明

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