projectxq_regist.asp

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

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

'接收表单数据
projectname=request("projectname")
danweiname=request("danweiname")
zhudaochanye=request("zhudaochanye")
guanlichushi=request("guanlichushi")
beizhua=request("beizhua")
beizhub=request("beizhub")
beizhuc=request("beizhuc")
'处理修改页面部分
if edit="edit" then
projectname=request("projectname")

strsql="update diaoca set 单位名称="+"'"+danweiname+"'"+" ,主导产业="+"'"+zhudaochanye+"'"+" ,管理处室="+"'"+danweiname+"'"+" ,备注1="+"'"+beizhua+"'"+" ,备注2="+"'"+beizhub+"'"+" ,备注3="+"'"+beizhuc+"'"+" where 项目名称="+"'"+projectname+"'"+" "
		conn.Execute strsql,1
Response.Write "已修改成功!"
Response.Write "<a href=projectXQ_editlist.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
else

set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 项目名称 from diaoca where 项目名称='"&projectname&"'"
rst2.CursorLocation =3
rst2.LockType =2
rst2.Open strsql,strconn
if not rst2.EOF then
	Response.Write "已经存在，<a href=projectXQ_Edit.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">请重新注册!</a> "
	Response.End 
end if

%>
<%
'用户信息写入数据库
StrSQL="insert into diaoca(项目名称,单位名称,主导产业,管理处室,备注1，备注2，备注3) values ('"&projectname&"','"&danweiName&"','"&zhudaochanye&"','"&guanlichushi&"','"&beizhua&"','"&beizhub&"','"&beizhuc&"')"
conn.Execute StrSQL
conn.close
set conn=nothing

Response.Write "已注册成功!"
Response.Write "<a href=projectXQ_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"

end if
%>
<script language="vbscript">
function back(i)
history.go(i)
end function
</script>