project_kw_regist.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
ProjectCode=Request.Form ("ProjectCode")
ProjectType=Request.Form ("ProjectType")
ProjectName=Request.Form ("ProjectName")
ZHuChiCom=Request.Form ("ZHuChiCom")
N=9
redim XieZhuoCom(N)
for i=0 to N
a="XieZhuoCom"+cstr(i)
XieZhuoCom(i)=request(a)
next
NeiRong=Request.Form ("NeiRong")
ChengGuo=Request.Form ("ChengGuo")
WuC=Request.Form ("WuC")
YouC=Request.Form ("YouC")
TieX=Request.Form ("TieX")
BeiZhu=Request.Form ("BeiZhu")

if ProjectCode<>"" then
'处理主持单位部分的修改
strsql="update XT_TD_ProjectLX set 项目名称="+"'"+ProjectName+"'"+",项目类别="+"'"+ProjectType+"'"+",主持单位="+"'"+ZhuChiCom+"'"+",主要内容="+"'"+NeiRong+"'"+",预期成果="+"'"+ChengGuo+"'"+",无偿="+"'"+WuC+"'"+",贴息="+"'"+TieX+"'"+",有偿="+"'"+YouC+"'"+",备注="+"'"+BeiZhu+"'"+" where 项目编码="+"'"+ProjectCode+"'"
conn.Execute strsql,1

'处理协作单位部分的修改
	set rst1=server.CreateObject ("ADODB.recordset")
	strsql1="select * from XT_TD_ProjectCompanyLX where 项目编码='"&ProjectCode&"'"
	rst1.CursorType =3
	rst1.CursorLocation =3
	rst1.LockType =2
	rst1.Open StrSQL1,strconn
con=0
redim XieZhuoCom(N)
dim a
for i=0 to N
a="XieZhuoCom"+cstr(i)
XieZhuoCom(i)=trim(request(a))
if XieZhuoCom(i)<>"" then 
con=con+1
end if
next

if con>rst1.RecordCount then'修改内容比库中内容多
for j=1 to rst1.RecordCount
	if not XieZhuoCom(j-1)="" then 
	StrSQL1="update XT_TD_ProjectCompanyLX set 单位名称="+"'"+XieZhuoCom(j-1)+"' where 项目编码="+"'"+ProjectCode+"'and 单位序号='"&cstr(j)&"'"
	conn.execute strsql1
	end if	
next
for j=rst1.RecordCount+1 to con
	if not XieZhuoCom(j-1)="" then 
	StrSQL1="insert into XT_TD_ProjectCompanyLX (项目编码,单位序号,单位名称) values ('"&ProjectCode&"','"&Cstr(j)&"','"&XieZhuoCom(j-1)&"')"
	conn.execute strsql1
	end if
next

else
for j=1 to con
	if not XieZhuoCom(j-1)="" then 
	StrSQL1="update XT_TD_ProjectCompanyLX set 单位名称="+"'"+XieZhuoCom(j-1)+"' where 项目编码="+"'"+ProjectCode+"'and 单位序号='"&cstr(j)&"'"
	conn.execute strsql1
	end if	
next
for j=con+1 to N+1
	StrSQL1="delete XT_TD_ProjectCompanyLX where 项目编码='"&projectCode&"' and 单位序号='"&cstr(j)&"'"
	conn.execute strsql1
next
end if
Response.Redirect ("Project_kw_edit.asp?code="&ProjectCode&"&projectInfo=封面修改成功!")
end if 

%>