conproject_regist.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'接收传来的变量
srtsql=Request.QueryString ("strsql")
ConProjectCode=Request.QueryString ("code")
edit=Request.QueryString ("edit")
page=Cstr(Request.QueryString ("page"))

'接收表单数据
ConProjectName=trim(request("ConProjectName"))
NDPC=request("NDPC")

'处理修改页面部分
if edit="edit" then
ConProjectCode=Request.QueryString ("Code")
strsql="update XT_TD_CoProject set 项目名称="+"'"+ConProjectName+"'"+",年度批次="+"'"+NDPC+"' where 合并项目编码="+"'"+ConProjectCode+"'"
		conn.Execute strsql,1
Response.Write ConProjectName&"已修改成功!<br>合并项目编码为:"&ConProjectCode
Response.Write "<a href=ConProject_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
else

set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 项目名称 from XT_VD_CoProject where 项目名称='"&ConProjectName&"'"
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
rst2.Open strsql,strconn
if not rst2.EOF then
	Response.Write "这个项目名已经存在，请检查您是否已经注册。如果确实没有，清在项目名后面加上1，2，等标示，然后再试!"
	Response.Write "<a href=ConProject_Edit.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">请重新注册!</a> "
	Response.End 
end if

%>

<%


'确定合并项目编码
'合并项目编码为4位,前两位为年度批次的后两位,后两位为顺序号
set rst=server.CreateObject ("ADODB.recordset")
StrSQL="select max(合并项目编码) as 合并项目编码 from XT_VD_CoProject "
	'先前的游标类型,锁定类型不对,加上这些条件即可
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
rst.Open StrSQL,strconn

if  isnull(rst("合并项目编码")) then
ConProjectCodeNum=all2(1)
else
ConProjectCodeNum=All2(right(rst("合并项目编码"),2)+1)
end if
ConProjectCode=left(NDPC,2)+ConProjectCodeNum

'合并项目信息写入数据库
StrSQL="insert into XT_TD_CoProject(合并项目编码,项目名称,年度批次) values ('"&ConProjectCode&"','"&ConProjectName&"','"&NDPC&"')"
conn.Execute StrSQL
conn.close
set conn=nothing

Response.Write ConProjectName&"您已注册成功!您的合并项目编码为:"&ConProjectCode
Response.Write "<a href=ConProject_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
end if
%>
<%
function all2(int1)  '将数字转化为4位的字符串，前面添0
	if int1<10 then	
       all2="0"+cstr(int1)
    else all2=cstr(int1)
    end if
end function

%>