expert_regist.asp

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

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"--><!--引入数据库连接模块-->
<%
'接收传来的变量
srtsql=Request.QueryString ("strsql")
expertCode=Request.QueryString ("code")
edit=Request.QueryString ("edit")
page=Cstr(Request.QueryString ("page"))

'接收表单数据
Dim ExpertCode,ExpertName,Password,Question,Answer,LeiBie,Sex,Year,Month,Day,Birth,MinZhu,YuanXiao,ZhuanYe,XueWei,XueLi,ZhiCheng,ZhiWu,ChengHao,CompanyName,ComProperty,Add,YouBian,FTel,WTel,MTel,Fax,ChuanHu,Email,Major,JianLi,ZhuanChang,ChengGuo,TuiJian
ExpertName=trim(request("ExpertName"))
Password=request("password")
Question=request("Question")
Answer=request("Answer")
LeiBie=request("LeiBie")
Sex=request("sex")
Year=cstr(request("year"))
Month=cstr(request("Month"))
Day=cstr(request("Day"))
Birth=cdate(month&","&day&","&year)'注意,好一番修改
MinZhu=request("MinZHu")
YuanXiao=request("YuanXiao")
ZhuanYe=request("ZhuanYe")
XueWei=request("XueWei")
XueLi=request("XueLi")
ZhiCheng=request("ZhiCheng")
ZhiWu=request("ZhiWu")
ChengHao=request("ChengHao")
CompanyName=request("CompanyName")
ComProperty=request("ComProperty")
Add=request("Add")
YouBian=request("YouBian")
WTel=request("Wtel")
FTel=request("Ftel")
MTel=request("MTel")
Fax=request("Fax")
ChuanHu=request("ChuanHu")
Email=request("Email")
Major=request("Major")
JianLi=request("JianLi")
ZhuanChang=request("ZhuanChang")
ChengGuo=request("ChengGuo")
TuiJian=request("TuiJian")

'处理修改页面部分
if edit="edit" then
ExpertCode=Request.QueryString ("Code")
birth=cstr(birth)
strsql="update XT_TC_Expert set 专家姓名="+"'"+ExpertName+"'"+",专家类别="+"'"+LeiBie+"'"+",性别="+"'"+Sex+"'"+",出生日期='"+Birth+"',民族="+"'"+MinZhu+"'"+",毕业院校="+"'"+YuanXiao+"'"+",所学专业="+"'"+ZhuanYe+"'"+",学位="+"'"+XueWei+"'"+",学历="+"'"+XueLi+"'"+",专业技术职称="+"'"+ZhiCheng+"'"+",行政职务="+"'"+ZhiWu+"'"+",荣誉称号="+"'"+ChengHao+"'"+",工作单位名称="+"'"+CompanyName+"'"+",单位性质="+"'"+ComProperty+"'"+",通讯地址="+"'"+Add+"'"+",邮编="+"'"+YouBian+"'"+",办公电话="+"'"+WTel+"'"+",住宅电话="+"'"+FTel+"'"+",手机="+"'"+MTel+"'"+",传真="+"'"+Fax+"'"+",传呼="+"'"+ChuanHu+"'"+",E_mail="+"'"+Email+"'"+",现从事专业="+"'"+Major+"'"+",工作简历="+"'"+JianLi+"'"+",领域及专长="+"'"+ZhuanChang+"'"+",科研成果="+"'"+ChengGuo+"'"+",单位推荐意见="+"'"+TuiJian+"'"+" where 专家编码="+"'"+ExpertCode+"'"
		conn.Execute strsql,1
Response.Write ExpertName&"已修改成功!<br>专家编码为:"&ExpertCode
Response.Write "<a href=Expert_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
else

set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 专家姓名 from XT_TC_Expert where 专家姓名='"&ExpertName&"'"
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=Expert_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_VC_Expert"
	'先前的游标类型,锁定类型不对,加上这些条件即可
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2

rst.Open StrSQL,strconn
ExpertCode=all4(rst("专家编码")+1)


'用户信息写入数据库
StrSQL="insert into XT_TC_Expert(专家编码,专家姓名,密码,查询密码问题,查询密码答案,专家类别,性别,出生日期,民族,毕业院校,所学专业,学位,学历,专业技术职称,行政职务,荣誉称号,工作单位名称,单位性质,通讯地址,邮编,办公电话,住宅电话,手机,传真,传呼,E_mail,现从事专业,工作简历,领域及专长,科研成果,单位推荐意见) values ('"&ExpertCode&"','"&ExpertName&"','"&Password&"','"&Question&"','"&Answer&"','"&LeiBie&"','"&Sex&"','"&Birth&"','"&MinZhu&"','"&YuanXiao&"','"&ZhuanYe&"','"&XueWei&"','"&XueLi&"','"&ZhiCheng&"','"&ZhiWu&"','"&ChengHao&"','"&CompanyName&"','"&ComProperty&"','"&Add&"','"&YouBian&"','"&WTel&"','"&FTel&"','"&MTel&"','"&Fax&"','"&ChuanHu&"','"&Email&"','"&Major&"','"&JianLi&"','"&ZhuanChang&"','"&ChengGuo&"','"&TuiJian&"')"
conn.Execute StrSQL
conn.close
set conn=nothing

Response.Write ExpertName&"您已注册成功!您的专家编码为:"&ExpertCode
Response.Write "<a href=Expert_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
end if
%>
<%
function all4(int1)  '将数字转化为4位的字符串，前面添0
	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 function

%>