topdepart_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"))

'接收表单数据
TopDepartName=request("TopDepartName")
TopDepartCode=request("TopDepartCode")
TopDepartType=request("TopDepartType")
Password=request("Password")
Question=request("Question")
Answer=request("Answer")


'处理修改页面部分
if edit="edit" then
strsql="update XT_TC_user set 用户姓名='"+TopDepartName+"',主管部门类别="+"'"+TopDepartType+"'"+",密码="+"'"+password+"'"+",查询密码问题="+"'"+question+"'"+",查询密码问题答案="+"'"+answer+"'"+",用户编码="+"'"+TopDepartCode+"'"+" where 用户编码="+"'"+topdepartCode+"'"
		conn.Execute strsql,1
Response.Write TopDepartName&"已修改成功!<br>用户编码为:"&TopDepartCode
Response.Write "<a href=TopDepart_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
Response.Write "  或者<a href=../index.asp>重新登录</a>"
else

set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 用户编码 from XT_TC_user where 用户编码='"&TopDepartCode&"'"
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
rst2.Open strsql,strconn
if not rst2.EOF then
	Response.Write "这个用户编码已经存在，<a href=TopDepart_Edit.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">请重新注册!</a> "
	Response.End 
end if

%>
<%
'用户信息写入数据库
StrSQL="insert into XT_TC_User(用户编码,用户姓名,主管部门类别,密码,查询密码问题,查询密码问题答案,性别,出生年份,部门编码,职称,学历,职位,家庭电话,办公电话,移动电话,传真,Email,通讯地址,邮编,有效标志,用户类型) values ('"&TopDepartcode&"','"&TopDepartName&"','"&TopDepartType&"','"&Password&"','"&Question&"','"&Answer&"','男','01,01,1901','','','','','','','','','','','','1','主管部门')"
conn.Execute StrSQL

'设置用户角色为主管部门
StrSQL="insert into XT_TP_UserRole(角色编码,用户编码) values ('2','"+TopDepartCode+"')"
conn.Execute StrSQL

conn.close
set conn=nothing

Response.Write TopDepartName&"已注册成功!<br>用户编码为:"&TopDepartCode
Response.Write "<a href=TopDepart_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>