project_regist1.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
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

'取得项目相关数据
if Request.QueryString ("new")="new" then '新注册
'判断此用户是否在本年度注册同名项目
set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 项目名称 from XT_VD_ProjectName where 项目负责人='"&session("UserCode")&"' and 年度批次='"+session("NDPC")+"'"
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
rst2.Open strsql,strconn
if not rst2.EOF then   
	for j=1 to rst2.RecordCount 
		if trim( rst2.Fields("项目名称").Value) =ProjectName then
%>
<script Language="JavaScript">
<!--
alert("本项目您在本年度只能申报一次，请申报其他项目");
history.back(-1);
// -->
</script>

<%'			Response.Write "这个用户名已经存在，请检查您是否已经注册。如果确实没有，清在用户名后面加上1，2，等标示，然后再试!"
			Response.End 
		end if
		rst2.MoveNext 
	next
	rst2.Close
	set rst2=nothing
end if

NDPC=session("NDPC")
'确定项目编码
'项目编码为6位,2位为年度编码,4位为项目顺序号
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select max(项目编码) as 项目编码 from XT_TD_Project where left(项目编码,2)='" & left(NDPC,2) & "'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
rst.Open StrSQL,strconn
	if  isnull(rst("项目编码")) then
		ProjectCodeNum=all4(1)
	else
		ProjectCodeNum=All4(right(rst("项目编码"),4)+1)
	end if
ProjectCode=left(NDPC,2)+ProjectCodeNum
ProjectUser=session("usercode")
%>
<%
'项目信息写入数据库
StrSQL="insert into XT_TD_Project (项目编码,项目名称,项目类别,项目负责人,年度批次,申报时间,主持单位) values ('"&ProjectCode&"','"&ProjectName&"','"&ProjectType&"','"&ProjectUser&"','"&NDPC&"','"&Date&"','"&ZhuChiCom&"')"
conn.Execute StrSQL

'将注册的项目编码,项目名称赋给全局变量
session("ProjectCode")=ProjectCode
session("ProjectName")=ProjectName
session("ProjectType")=ProjectType

'协作单位名称写入数据库
no=1
for i=0 to N
if not XieZhuoCom(i)="" then 
StrSQL1="insert into xt_td_ProjectCompany (项目编码,单位序号,单位名称,联系人,联系电话,电子邮件,传真,单位类型) values ('"&ProjectCode&"','"&no&"','"&XieZhuoCom(i)&"','','','','','')"
conn.execute strsql1
no=no+1
end if	
next  '注册结束
Response.Redirect ("Project_edit2.asp?projectInfo=封面注册成功!")
else
ProjectCode=session("ProjectCode")

'处理主持单位部分的修改
strsql="update XT_TD_Project set 项目名称="+"'"+ProjectName+"'"+",项目类别="+"'"+ProjectType+"'"+",主持单位="+"'"+ZhuChiCom+"'"+" where 项目编码="+"'"+ProjectCode+"'"
conn.Execute strsql,1
'将修改后的项目编码,项目名称赋给全局变量
session("ProjectCode")=ProjectCode
session("ProjectName")=ProjectName
session("ProjectType")=ProjectType

'处理协作单位部分的修改
	set rst1=server.CreateObject ("ADODB.recordset")
	strsql1="select * from XT_TD_ProjectCompany 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_ProjectCompany 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_ProjectCompany (项目编码,单位序号,单位名称,联系人,联系电话,电子邮件,传真,单位类型) 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_ProjectCompany 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_ProjectCompany where 项目编码='"&projectCode&"' and 单位序号='"&cstr(j)&"'"
	conn.execute strsql1
next
end if
Response.Redirect ("Project_edit1.asp?projectInfo=封面修改成功!&code="+session("projectCode")+"&name="+session("ProjectName"))
end if 

%>

<%
function all4(int1)  '将数字转化为4位的字符串，前面添0
if int1=0 then
	all4="0000"
	else
	if int1<10 then	
       all4="000"+cstr(int1)
       else
       if int1<100 then	
          all4="00"+cstr(int1)
          else
          if int1<1000 then	
             all4="0"+cstr(int1)
             else all4=cstr(int1)
          end if
        end if
     end if
 end if
end function
%>