recive.asp

功能齐全的oa系统

<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MD5.asp" -->
<%
function emailcheck(StrMail)
  Dim Count
  Count = 0
  
  While Instr(StrMail, "@") > 0
    StrMail = Replace(StrMail, "@", "", 1, 1, 1)
    Count = Count + 1
  Wend
  
  emailcheck = Count
end function

	Dim ObjDB,ObjRS,SYSAccountSQL,SYSAccountRoleSQL,StrSQL,AccountID,MSNAccountSQL
	Dim A_AccountName,C_TrueName,A_Password,A_Is1,A_Is2,A_Is3,A_IsValid,C_Gender,A_roleIDs
	Dim O_Password,C_IsMarriage,C_Birthday,C_Education,C_Title,C_Nation,C_NativePlace
	Dim C_Tel,C_Email,C_HomeTel,C_Mob,C_Address,C_Des,C_SubRoleID
	
 '接收域的信息进入变量
 A_AccountName=Replace(Request.Form("A_AccountName"),"'","''")
 C_TrueName=Replace(Request.Form("C_TrueName"),"'","''")
 A_Password=Replace(Request.Form("A_Password"),"'","''")
 O_Password=Replace(Request.Form("Password1"),"'","''")
 A_Is1=0
 A_Is2=0
 A_Is3=1
 A_IsValid=Replace(Request.Form("A_IsValid"),"'","''")
 C_Gender=Replace(Request.Form("C_Gender"),"'","''")
 A_roleIDs=Replace(Request.Form("A_roleIDs"),"'","''")
 C_IsMarriage=Replace(Request.Form("C_IsMarriage"),"'","''")
 C_Birthday=Replace(Request.Form("C_Birthday"),"'","''")
 C_Education=Replace(Request.Form("C_Education"),"'","''")
 C_Title=Replace(Request.Form("C_Title"),"'","''")
 C_Nation=Replace(Request.Form("C_Nation"),"'","''")
 C_NativePlace=Replace(Request.Form("C_NativePlace"),"'","''")
 C_Tel=Replace(Request.Form("C_Tel"),"'","''")
 C_Email=Replace(Request.Form("C_Email"),"'","''")
 C_HomeTel=Replace(Request.Form("C_HomeTel"),"'","''")
 C_Mob=Replace(Request.Form("C_Mob"),"'","''")
 C_Address=Replace(Request.Form("C_Address"),"'","''")
 C_Des=Replace(Request.Form("C_Des"),"'","''")
 C_SubRoleID = Replace(Request.Form("C_SubRoleName"),"'","''")

 Set ObjDB = Server.CreateObject ("ADODB.Connection")
 OpenDB ObjDB

 StrSQL = "select count(*) from t_OA_SYS_Account where AccountName = " & "'" & A_AccountName & "'"
 'response.write StrSQL
 'response.end
 Set ObjRS = ObjDB.Execute (StrSQL)
 if ObjRS(0) > 0  then
   Response.Redirect("../../../error.asp?err=您刚才输入的登录名已经存在，请重新输入")
 end if

 if A_Password <> O_Password then
%>
<script language=javascript>
   alert("密码与确认密码不一致，请重新输入！")
   window.history.back();
</script>
<%
   Response.End
 end if
 
 if A_AccountName = "" then
%>
<script language=javascript>
   alert("没有输入登录名，请重新输入！")
   window.history.back();
</script>
<%
   Response.End
 end if
 
 if A_roleIDs = "" then
%>
<script language=javascript>
   alert("没有选择角色，请重新选择！")
   window.history.back();
</script>
<%
   Response.End
 end if

 'Response.Write "C_Email = " & C_Email & "<BR>"
 'Response.Write "Count = " & emailcheck(C_Email)
 'Response.End
 if emailcheck(Request.Form("C_Email")) <> 1  then
   if emailcheck(Request.Form("C_Email")) <> 0  then
%>
<script language=javascript>
     alert("EMail地址输入错误，请重新输入！")
     window.history.back();
</script>
<%
     Response.End
   end if
 end if

 if emailcheck(Request.Form("C_Email")) <> 0  then
   if emailcheck(Request.Form("C_Email")) <> 1  then
%>
<script language=javascript>
     alert("EMail地址输入错误，请重新输入！")
     window.history.back();
</script>
<%
     Response.End
   end if
 end if

 if C_SubRoleID = "" OR Cstr(C_SubRoleID) = "0" then
%>
<script language=javascript>
   alert("没有选择子系统角色，请重新选择！")
   history.go(-1)
</script>
<%
   Response.End
 end if

 SYSAccountSQL="INSERT  t_OA_SYS_Account (AccountName,Password,RoleIDS,Is1,Is2,Is3,IsValid,SubRoles) VALUES ('"&A_AccountName&"','"&md5(A_Password)&"','"&A_roleIDs&"','"&A_Is1&"','"&A_Is2&"','"&A_Is3&"','1', '" & C_SubRoleID & "')"
   '往t_OA_SYS_Account中插入数据
 Set ObjDB = Server.CreateObject("ADODB.Connection")
 Set ObjRS = Server.CreateObject("ADODB.RecordSet")

	OpenDB ObjDB 
  StrSQL = "Select ID From t_OA_SYS_Account Where AccountName = '" & Request.Form("A_AccountName") & "'"
	ObjRS.Open StrSQL,ObjDB
	'If ObjRS("ID")<>"" Then Response.Redirect("../../../error.asp?err=您刚才输入的登录名已经存在，请重新选择")
    ObjRS.Close
        
  '往t_OA_SYS_Account中插入数据
        ObjDB.Execute(SYSAccountSQL)
        Set ObjRS = Server.CreateObject("ADODB.RecordSet")
        StrSQL = "Select ID From t_OA_SYS_Account Where AccountName = '" & Request.Form("A_AccountName") & "'"
		ObjRS.Open StrSQL,ObjDB
        AccountID=ObjRS("ID")
        ObjRS.Close

  '往t_OA_SYS_Account_Character中插入数据
    SYSAccountRoleSQL="INSERT t_OA_SYS_Account_Character(AccountID,TrueName,Gender,Title,Birthday,IsMarriage,Nation,NativePlace,Tel,Address,Education,Des,HomeTel,Mob,Email) VALUES ('"&AccountID&"','"&C_TrueName&"','"&C_Gender&"','"&C_Title&"','"&C_Birthday&"','"&C_IsMarriage&"','"&C_Nation&"','"&C_NativePlace&"','"&C_Tel&"','"&C_Address&"','"&C_Education&"','"&C_Des&"','"&C_HomeTel&"','"&C_Mob&"','"&C_Email&"')"
    ObjDB.Execute(SYSAccountRoleSQL)
    
 '往t_OA_MSN_Account中插入数据
    MSNAccountSQL="INSERT  t_OA_MSN_Account (AccountID,State,imageid) VALUES ('"&AccountID&"','0','1')"
    ObjDB.Execute(MSNAccountSQL)
		
	ObjDB.Close 
	Set ObjDB = Nothing

	Response.Redirect "List.asp"
%>