regist.asp

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

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

'接收表单数据
Dim UserCode,Name,Password,Question,Answer,Sex,Year,Month,Day,Depart,ZhiCheng,XueLi,ZhiWei,FTel,WTel,MTel,Fax,Email,Add
Name=trim(request("Name"))
Password=request("password")
Question=request("Question")
Answer=request("Answer")
selfDepart=request("selfDepart")
Sex=request("sex")
if sex="" then sex="男"
Year=cstr(request("year"))
Month=cstr(request("Month"))
Day=cstr(request("Day"))
if year<>"" and month<>"" and day<>"" then
Birth=cdate(month&","&day&","&year)'注意,好一番修改
else
birth=cdate("1901,1,1")
end if
DepartType=request("DepartType")
Depart=request("depart")
ZhiCheng=request("ZhiCheng")
XueLi=request("XueLi")
ZhiWei=request("ZhiWei")
FTel=request("Ftel")
WTel=request("Wtel")
MTel=request("MTel")
Fax=request("Fax")
Email=request("Email")
Add=request("Add")
YouBian=request("YouBian")
UserType=request("UserType")
if request("LianXiRen")="" then'个人注册
LianXiRen=""
else'企业注册
LianXiRen=request("LianXiRen")
end if
self=Request("self")
'处理修改页面部分
if edit="edit" then
UserCode=Request.QueryString ("Code")
birth=cstr(birth)
strsql="update XT_TC_User set 用户姓名="+"'"+Name+"'"+",密码="+"'"+Password+"'"+",查询密码问题="+"'"+Question+"'"+",查询密码问题答案="+"'"+Answer+"'"+",部门编码="+"'"+selfDepart+"'"+",性别="+"'"+Sex+"'"+",出生年份='"+Birth+"',学历="+"'"+XueLi+"',主管部门类别="+"'"+DepartType+"',职称="+"'"+ZhiCheng+"'"+",职位="+"'"+ZhiWei+"'"+",通讯地址="+"'"+Add+"'"+",邮编="+"'"+YouBian+"'"+",办公电话="+"'"+WTel+"'"+",家庭电话="+"'"+FTel+"'"+",移动电话="+"'"+MTel+"'"+",传真="+"'"+Fax+"'"+",Email="+"'"+Email+"'"+",企业联系人="+"'"+LianXiRen+"',用户类型="+"'"+UserType+"'"+" where 用户编码="+"'"+UserCode+"'"
conn.Execute strsql,1
Response.Write Name&"已修改成功!<br>用户编码为:"&UserCode
	if self="self" then 
	Response.Write "<a href=../system/systemUser_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
	else
	Response.Write "<a href=../index.asp>按此返回登录界面.</a>"
	end if
else

'检查数据库内是否有此用户
set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select  用户姓名 from XT_VC_User where len(用户编码)=6 and left(用户编码,3)='"+depart+"'"
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) =trim(Request("name")) then
%>
<script Language="JavaScript">
<!--
alert("这个用户名已经存在，请检查您是否已经注册。/n如果确实没有，清在用户名后面加上1，2，等标示，然后再试!");
history.back(-1);
// -->
</script>

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


%>
<%


'确定用户编码
'用户编码为6位,3位为主管部门编码,3位为用户顺序号
set rst=server.CreateObject ("ADODB.recordset")
StrSQL="select max(用户编码) as 用户编码 from XT_TC_User where left(用户编码,3)='" & depart & "'and len(用户编码)=6"
	'先前的游标类型,锁定类型不对,加上这些条件即可
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
	
rst.Open StrSQL,strconn
if  isnull(rst("用户编码")) then
UserCodeNum=all3(1)
else
UserCodeNum=All3(right(rst("用户编码"),3)+1)
end if
UserCode=Depart+UserCodeNum

if len(UserCode)<>6 then'出错
%>
<script Language="JavaScript">
<!--
alert("数据库出错，请重新注册！);
history.back(-2);
// -->
</script>
<%
end if

'用户信息写入数据库
StrSQL="insert into XT_TC_User(用户编码,用户姓名,密码,查询密码问题,查询密码问题答案,性别,出生年份,主管部门类别,部门编码,职称,学历,职位,家庭电话,办公电话,移动电话,传真,Email,通讯地址,邮编,用户类型,企业联系人) values ('"&UserCode&"','"&Name&"','"&Password&"','"&Question&"','"&Answer&"','"&Sex&"','"&Birth&"','"&DepartType&"','"&selfDepart&"','"&ZhiCheng&"','"&XueLi&"','"&ZhiWei&"','"&FTel&"','"&WTel&"','"&MTel&"','"&Fax&"','"&Email&"','"&Add&"','"&YouBian&"','"&UserType&"','"&LianXiRen&"')"
conn.Execute StrSQL
conn.close
set conn=nothing

Response.Write "注册成功!<br>"+Name+",您的用户编码为:"+usercode+"密码为:"+Password
Response.Write "<br>您需等待您的主管部门批准您的用户名有效，然后登录网站。"
	if self="self" then 
	Response.Write "<a href=../system/systemUser_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
	else
	Response.Write "<a href=../index.asp>按此返回登录界面.</a>"
	end if

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