الرئيسية

التسجيل للدخول بحث بسيط بحث متقدم

إستعراض حسب التصنيف

مواقع زراعية نشرة الإحاطه

الفهرس الإلكتروني

<%'============================CODE Start Here====================================================================== checkPostBack = Request.ServerVariables("REQUEST_METHOD") '######################################AUTHENITICATING USR ENTER#################################################### 'Check_Login() '######################################AUTHENITICATING USR ENTER#################################################### '----------------------------------initialize connection string--------------------------- Set Conn = Server.CreateObject("ADODB.Connection") dbPath = Server.MapPath( "./AOAD-Library.mdb") connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Conn.Open connString + dbPath '----------------------------------initialize connection string--------------------------- Session("ErrMsg")="" '==================================initialize recordsts=================================== Set rs =Server.CreateObject("ADODB.Recordset") Set rs_User_Types =Server.CreateObject("ADODB.Recordset") 'RECORDSET FOR user_types FROM TABLE=TBL_SUB_SYSTEM_INFO Set rs_Sub_Systems =Server.CreateObject("ADODB.Recordset")'RECORDSET FOR SUB_SYSTEM INFO FROM TABLE=TBL_SUB_SYSTEM_INFO set rs_Sys=server.createobject("Adodb.recordset") 'RECORDSET FOR SUB_SYSTEM INFO FROM TABLE=TBL_SUB_SYSTEM_INFO set rs_Dept=server.createobject("Adodb.recordset") 'RECORDSET FOR SUB_SYSTEM INFO FROM TABLE=TBL_CITIES '==================================initialize recordsts=================================== '+++++++++++++++++++++initialize sql for subsystems++++++++++++++++++++++++++++++++++ sql_Sub_Sys="select * from TBL_Sub_Systems_Info where 1=1" sqlDept="select * from TBL_Departments where 1=1" sql_Usertypes="select * from TBL_User_Types where 1=1" '+++++++++++++++++++++END initialize sql for subsystems++++++++++++++++++++++++++++++++++ '********************OPENING RECORDSET*********************************************** rs_User_Types.open sql_Usertypes,conn,1 rs_Sub_Systems.open sql_Sub_Sys,conn,1 rs_Dept.open sqlDept,conn,1 '********************END OPENING RECORDSET*********************************************** '++++++++++++++++++++++++++++++Retrieving Values+++++++++++++++++++++++++++++++++++++++++ '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&CASE INSERTING&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& if request.form("username")<>"" then username=request.form("username") else username=request.querystring("username") end if if request.form("password")<>"" then password=request.form("password") else password=request.querystring("password") end if if request.form("repassword")<>"" then repassword=request.form("repassword") else repassword=request.querystring("repassword") end if if request.form("Member_Id")<>"" then Member_Id=request.form("Member_Id") else Member_Id=request.querystring("Member_Id") end if if request.form("Member_Email")<>"" then Member_Email=request.form("Member_Email") else Member_Email=request.querystring("Member_Email") end if 'if request.form("Sys_Id")<>"" then 'Sys_Id=request.form("Sys_Id") 'else 'Sys_Id=request.querystring("Sys_Id") 'end if 'if request.form("User_Type")<>"" then 'User_Type=request.form("User_Type") 'else 'User_Type=request.querystring("User_Type") 'end if if request.form("id")<>"" then id=request.form("id") else id=request.querystring("id") end if if request.form("Member_Name")<>"" then Member_Name=request.form("Member_Name") else Member_Name=request.querystring("Member_Name") end if if request.form("State")<>"" then State=request.form("State") else State=request.querystring("State") end if if request.form("Dept")<>"" then Dept=request.form("Dept") else Dept=request.querystring("Dept") end if 'on error resume next '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&CASE INSERTING&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& '++++++++++++++++++++++++++++++++Retrieving Values++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '================== START Validation======================================================%> <% if (checkPostBack="POST" ) then Check_Empty username,"username" Check_Empty Member_Name,"Member_Name" Check_Empty password,"password" Check_Empty repassword,"repassword" Check_equal password,repassword 'Field_Exist "Member_Id",Member_Id,"TBL_Member_Login","String" if State="" then User_Exist "username","TBL_Member_Login",username 'response.write "Call" end if 'Check_dba dba if State<>"Conf" then CheckErrorStatus("User_Register.asp?Member_Name="+Member_Name+"&username="+username+"&password="+password+"&repassword="+repassword+"&Member_Id="+Member_Id+"&Member_Email="+Member_Email+"&id="+id+"&TBL_name="+TBL_Name+"&Dept="&Dept) end if end if%> <%'================== END Validation======================================================%> <%'@@@@@@@@@@@@@@@@@@ Insertion/ Updating THE RECORDSET@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%> <%'+++++++++response.write (Session("_stamp") <> Request.Form("_stamp")) '++++++++++response.write ErrCount if (checkPostBack="POST") then if (Session("_stamp") <> Request.Form("_stamp")) then if (ErrCount=0 and request.form("State")="") then 'sql="Insert Into TBL_Member_Login([Member_Name],[username],[password],[Member_Email],[Sys_Id],[User_Type],[Dept]) values('"&Member_Name&"','"&username&"','"&password &"','" & Member_Email & "'," & Sys_Id&","&User_Type&","&Dept&")" sql="Insert Into TBL_Member_Login([Member_Name],[username],[password],[Member_Email],[Dept],[status]) values('"&Member_Name&"','"&username&"','"&password &"','" & Member_Email &"',"&Dept&"," & "'New"&"')" response.write "This is the sql sql====" & sql conn.execute sql sqlquery="select * from TBL_Member_Login where 1=1" rs.open sqlquery,conn,1 rs.movefirst rs.movelast response.redirect("User_Details.asp?TBL_name="+"TBL_Member_Login"&"&id="&rs.fields(0)) '[Flag="True" end if end if end if if (checkPostBack="POST") then if State="U" then 'sqlquery="update TBL_Member_Login set Member_Name='"+Member_Name+"',username='" + username + "'" & ",password='"+password & "',Sys_Id=" & Sys_Id & ",User_Type=" & User_Type & ",Member_Email='" & Member_Email & "',Dept="& Dept & " where TBL_Member_Login.id=" & id 'sqlquery="update TBL_Member_Login set [Member_Name]='"+Member_Name + "'" & ",[username]='" + username + "'" & ",[password]='"+password & "'" & ",[Sys_Id]=" & Sys_Id & ",[User_Type]=" & User_Type & ",[Member_Email]='" & Member_Email & "'" & ",[Dept]="& Dept & " where TBL_Member_Login.id=" & id sqlquery="update TBL_Member_Login set [Member_Name]='"+Member_Name + "'" & ",[username]='" + username + "'" & ",[password]='"+password & "',[Member_Email]='" & Member_Email & "'" &",Status='" &"Confirmed"& "',[Dept]="& Dept & " where TBL_Member_Login.id=" & id response.write "sqlquery====" & sqlquery 'sqlquery="select * from TBL_Member_Login where 1=1" 'rs.open sqlquery,conn,1 'rs.movefirst 'rs.movelast conn.execute sqlquery response.redirect("user_details.asp?TBL_name="+"TBL_Member_Login"&"&id="&id) response.end end if end if if State="Conf" then sqlquery="update TBL_Member_Login set Status=" &"'Confirmed'" & " where TBL_Member_Login.id=" & id conn.execute sqlquery response.write "email=====" & Member_Email if 1=1 then Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mymail2.myregisteredsite.com" ' Specify the authentication mechanism ' to use. .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1 ' The port on which the SMTP service ' specified by the smtpserver field is ' listening for connections (typically 25) .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 'Use SSL for the connection (False or True) .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =false ' Set the number of seconds to wait for a valid socket to be established with the SMTP service before timing out. .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =600 .Item(cdoSendUsername) = "sadigosmanmoh@gmail.com" .Item(cdoSendPassword) = "docum@aoad" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "sadig@aoad.org" .To = Member_Email .Subject = "تم تسجيلك بنجاح في نظام المكتبة الإلكترونية" .TextBody = "Your Library System Username is " & username & " ---- and your password is " &password & " ---- Your current email is " & Member_Email .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Response.write "Message Sent to" & Member_Email %> <%end if%> <%response.redirect("System_admin.asp?TBL_name="+"TBL_Member_Login"&"&id="&id)%> <%end if%> <% if 1=3 then Set objMessage = CreateObject("CDO.Message") objMessage.sendusing=2 objMessage.Subject = "Library Register Confirmation" objMessage.From = Member_email objMessage.To = Member_email objMessage.TextBody ="Your Library System Username is " & username & " and your password is " &password objMessage.Send%> <%end if%> <%''if confirmation then ''confirmation() ''response.write "Flag===" & confirmation %> <%'++++++++++++response.write "User_Type ======" & User_Type%> <%'@@@@@@@@@@@@@@@@@@ Insertion/ Updating THE RECORDSET@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%>

<% ' Create a command object. This object serves to run our queries Set Cm = Server.CreateObject("ADODB.Command") ' Specify the system DSN path 'Cm.ActiveConnection = "Oman_Sub_Systems" ' Now it's time for the query. We need to check the user information ' against the table tUsers %>

التسجيل لعضوية المكتبة الإلكترونية

 

<%if request.form("B1")<>"إرسال" then%> <%''if (request.form("country")<>"") then If Session("ErrMsg")<>"" and checkPostBack="POST" Then ''if ErrCount>0 then ShowError Session("ErrMsg")="" end if ''End If ''End If %>

>  

إسم العضو " />

إسم المستخدم

" />

كلمة الســر

" />

إعادة كلمة الســر

">

البريد الإلكتروني ">
الإدارة
  "text-align: center" size="23">
">">">
<%end if%>