<%
Function CheckCAPTCHA(valCAPTCHA)
SessionCAPTCHA = Trim(Session("CAPTCHA"))
Session("CAPTCHA") = vbNullString
if Len(SessionCAPTCHA) < 1 then
CheckCAPTCHA = False
exit function
end if
if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then
CheckCAPTCHA = True
else
CheckCAPTCHA = False
end if
End Function
'------------------Posted Form ----------------------------
If Request.ServerVariables("REQUEST_METHOD") = "POST" and Len(Request.Form("btnRegister")) > 0 Then
memUser = Replace(Request.Form("txtUsername"),"'","")
memUser = Replace(memUser ,";","")
memUser = Trim(memUser)
memPass = Replace(Request.Form("txtPassword"),"'","")
memPass = Replace(memPass,";","")
memPass = Trim(memPass)
memName = Replace(Request.Form("txtName"),"'","")
memName = Replace(memName,";","")
memName = Trim(memName)
memFamily = Replace(Request.Form("txtFamily"),"'","")
memFamily = Replace(memFamily,";","")
memFamily = Trim(memFamily)
memCity = Replace(Request.Form("txtCity"),"'","")
memCity = Replace(memCity,";","")
memCountry = Trim(memCity )
memCountry = Replace(Request.Form("txtCountry"),"'","")
memCountry = Replace(memCountry,";","")
memCountry = Trim(memCountry)
memState = Replace(Request.Form("txtState"),"'","")
memState = Replace(memState,";","")
memState = Trim(memState)
memEmail = Replace(Request.Form("txtEmail"),"'","")
memEmail = Replace(memEmail,";","")
memEmail = Trim(memEmail)
memPassConf = Replace(Request.Form("txtConfPassword"),"'","")
memPassConf = Replace(memPassConf,";","")
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
'------------------------------// User Band Input #1 //------------------
Function isValidUserName(txtUserName)
isValidE = True
Set regEx = New RegExp
regEx.IgnoreCase = False
regEx.Pattern = "[^a-zA-Z0-9\.\-]"
isValidE = regEx.Test(txtUserName)
isValidUserName = isValidE
End Function
memUserBool = isValidUserName(memUser)
If Not memUserBool = True and Len(memUser) => 6 Then
Session("Err_User2") = ""
Else
Session("Err_User2") = "True"
End If
'------------------------------// User Band Input #1 //------------------
'------------------------------// User Duplicate Input #2 //------------------
Set Rs = Conn.Execute("Select * From tblMembers Where memUser = '"&memUser&"'")
If Rs.BOF = True and Rs.EOF = True Then
Session("Err_User1") = ""
Else
Session("Err_User1") = "True"
End If
'------------------------------// User Duplicate Input #2 //------------------
'------------------------------// Check Passwords //------------------
Function isValidUserPass(txtPass)
isValidE = True
Set regEx = New RegExp
regEx.IgnoreCase = False
regEx.Pattern = "[^a-zA-Z0-9\.\-]"
isValidE = regEx.Test(txtPass)
isValidUserPass = isValidE
End Function
memPassBool = isValidUserPass(memPass)
If Not memPassBool = True and Len(memPass) => 6 Then
Session("Err_Pass") = ""
Else
Session("Err_Pass") = "True"
End If
If memPass = memPassConf Then
Session("Err_ConfPass") = ""
Else
Session("Err_ConfPass") = "True"
End If
'------------------------------// Check Passwords //------------------
'------------------------------// Check Name //------------------
If Len(memName) > 0 Then
Session("Err_Name") = ""
Else
Session("Err_Name") = "True"
End If
'------------------------------// Check Name //------------------
'------------------------------// Check Family //------------------
If Len(memFamily) > 0 Then
Session("Err_Family") = ""
Else
Session("Err_Family") = "True"
End If
'------------------------------// Check Name //--------------------
'------------------------------// Check City //------------------
If Len(memCity) > 0 Then
Session("Err_City") = ""
Else
Session("Err_City") = "True"
End If
'------------------------------// Check City //--------------------
'-----------------------------// Check Email //----------------------
Function isValidEmail(txtEmail)
isValidE = True
Set regExEmail = New RegExp
regExEmail.IgnoreCase = False
regExEmail.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
isValidE = regExEmail.Test(txtEmail)
isValidEmail = isValidE
End Function
memEmailBool = isValidEmail(memEmail)
If Not memEmailBool = False Then
Session("Err_Email") = ""
Else
Session("Err_Email") = "True"
End If
'-----------------------------// Check Email //----------------------
'------------------------------// User Duplicate Email #2 //------------------
Set mRs = Conn.Execute("Select * From tblMembers Where memEmail = '"&memEmail&"'")
If mRs.BOF = True and mRs.EOF = True Then
Session("Err_Email2") = ""
Else
Session("Err_Email2") = "True"
End If
'------------------------------// User Duplicate Email #2 //------------------
'------------------------------// Check Security Code //------------------
If CheckCAPTCHA(strCAPTCHA) = True Then
Session("Err_Code") = ""
Session("Err") = ""
Else
Session("Err_Code") = "True"
Session("Err") = "True"
End If
'------------------------------// Check Security Code //------------------
'--------------------// Check ERR //---------------------------
If Session("Err_User1") = "" and Session("Err_User2") = "" and Session("Err_Pass") = "" and Session("Err_ConfPass") = "" and Session("Err_Name") = "" and Session("Err_Family") = "" and Session("Err_City") = "" and Session("Err_Email") = "" and Session("Err_Email2") = "" and Session("Err_Code") = "" Then
'---- Do Insert and form is valid
Session("Err") = ""
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorType = 2
Rs.LockType = 3
Rs.Open "Select * From tblMembers",Conn
Rs.AddNew
Rs.Fields ("memUser") = memUser
Rs.Fields ("memPass") = memPass
Rs.Fields ("memEmail") = memEmail
Rs.Fields ("memName") = memName
Rs.Fields ("memFamily") = memFamily
Rs.Fields ("memCountry") = memCountry
Rs.Fields ("memState") = memState
Rs.Fields ("memCity") = memCity
Rs.Fields ("memIsML") = "Yes"
Rs.Fields ("memCredit") = 0
Rs.Fields ("memJoinDate") = Date()
Rs.Update
Rs.Close()
Set Rs = Nothing
'-------------// URL Decode Function //---------------
' An inverse to Server.URLEncode
function URLDecode(str)
dim re
set re = new RegExp
str = Replace(str, "+", " ")
re.Pattern = "%([0-9a-fA-F]{2})"
re.Global = True
URLDecode = re.Replace(str, GetRef("URLDecodeHex"))
end function
' Replacement function for the above
function URLDecodeHex(match, hex_digits, pos, source)
URLDecodeHex = chr("&H" & hex_digits)
end function
'-------------// URL Decode Function //---------------
ReturnURL = Request.QueryString("Return-URL")
If ReturnURL = "" or Len(ReturnURL) <=0 Then
Response.Redirect("Register-Finish.shtml")
Else
Set loRs = Conn.Execute("SELECT @@IDENTITY AS NewID")
Session("Members") = loRs.Fields("NewID").value
Response.Redirect(URLDecode(ReturnURL))
End If
Else
Session("Err") = "True"
'---- Show Errors and form have errors
End If
'--------------------// Check ERR //---------------------------
Else
Session("Err") = ""
Session("Err_User1") = ""
Session("Err_User2") = ""
Session("Err_Pass") = ""
Session("Err_ConfPass") = ""
Session("Err_Name") = ""
Session("Err_Family") = ""
Session("Err_Email") = ""
Session("Err_City") = ""
Session("Err_Code") = ""
Session("Err_Email2") = ""
End If
'------------------Posted Form ----------------------------
%>
شما اینجا هستید:صفحه نخست /
ایجاد حساب کاربری جدید
فرم
عضویت
عضویت در بانی هاست چند
دقیقه بیشتر طول نخواهد کشید. لطفا تمامی اطلاعات خواسته
شده را به دقت وارد کنید.
<% If Not Session("Err") = "" Then %>
پیام سیستم:
کاربر گرامی، لطفا خطا هایی که در زیر ذکر شده
را در فرم اصلاح کنید تا ثبت نام شما
تکمیل شود.
<% If Not Session("Err_User2") = "" Then %>
-
نام
کاربری:
برای نام
کاربری فقط می توانید از حروف و اعداد انگلیسی
استفاده کنید ، نام کاربری باید بیش از 6 حرف
باشد.
<% End If %>
<% If Not Session("Err_User1") = "" Then %>
-
نام
کاربری:
نام کاربری
انتخاب شده شما قبلا توسط شخص دیگری ثبت شده
است. لطفا یک نام کاربری دیگر انتخاب کنید.
<% End If %>
<% If Not Session("Err_Pass") = "" Then %>
- کلمه رمز:
برای کلمه رمز
نمی توانید از کاراکتر های مخصوص و فاصله
استفاده کنید.
<% End If %>
<% If Not Session("Err_ConfPass") = "" Then %>
- کلمه رمز:
مقدار وارد شده
در فیلد تکرار کلمه رمز با مقدار وارد شده
برای کلمه رمز یکسان نمی باشد.
<% End If %>
<% If Not Session("Err_Name") = "" Then %>
- نام:
لطفا نام کوچک
خود را به فارسی وارد کنید.
<% End If %>
<% If Not Session("Err_Family") = "" Then %>
- نام
خانوادگی:
لطفا نام
خانوادگی خود را به فارسی وارد کنید.
<% End If %>
<% If Not Session("Err_Email") = "" Then %>
- آدرس ایمیل:
آدرس ایمیل
وارد شده معتبر نمی باشد. - مثال:
you@somewhere.com
<% End If %>
<% If Not Session("Err_Email2") = "" Then %>
- آدرس ایمیل:
آدرس ایمیل
وارد شده قبلا توسط شخص دیگری ثبت شده است.
لطفا یک آدرس ایمیل دیگر وارد کنید.
<% End If %>
<% If Not Session("Err_City") = "" Then %>
- نام شهر:
لطفا نام شهر
محل سکونت خود را وارد کنید.
<% End If %>
<% If Not Session("Err_Code") = "" Then %>
- کد امنیتی:
کد امنیتی وارد
شده صحیح نمی باشد. دقت کنیدکه زبان صفحه کلید تان بر روی "EN"
باشد.
<%
If Session("Members") = "" or Len(Session("Members")) <=0 Then
%>
<%
Else
Set Rs = Conn.Execute("Select * From tblMembers Where memID = "&Session("Members"))
If Rs.BOF = True and Rs.EOF = True Then
Else
side_MemName = Rs("memName")&" "&Rs("memFamily")
side_MemCredit = Rs("memCredit")
side_NewMsg = 0
Set msgRs = Conn.Execute("Select * From tblPM Where pmStatus = 'New' and pmTo = "&Session("Members"))
While Not msgRs.EOF
side_NewMsg = side_NewMsg + 1
msgRs.MoveNext
Wend
End If
%>
کارشناسان هشدار دادند، آسيبپذيريهاي امنيتي موجود در سايتهاي مکافي، بهخصوص يکي از اين پايگاههاي اينترنتي که به منظور اسکن کردن سايتهاي کاربران براي بررسي احتمال وجود حفرههاي امنيتي در آنها ساخته شده است، ميتواند باعث انتشار اطلاعات شخصي مربوط به حسابهاي اينترنتي کاربران شود و در قالب نرمافزارهاي امنيتي مکافي، در مقابل کاربران حملاتي را انجام دهد.
مکافي روز گذشته در اين خصوص توضيح داد که بيشتر اين حفرههاي امنيتي برطرف شده و تنها بخشي از اين سايت اينترنتي که در حالت آفلاين مورد استفاده قرار ميگيرد، باقي مانده است.
18-2-88
كتابخوان الكترونيك آمازون
شركت آمازون آمادهء عرضهء نسل جديد كتابخوان الكترونيك خود موسوم به Kindle است كه صفحهء بزرگتري دارد و اين در حالي است كه اين شركت تنها سه ماه قبل نسل ديگري از اين سخت افزار را ارائه كرده بود.
كتابخوان در كنفرانس خبري اين شركت به نمايش گذاشته خواهد شد.
صفحهء بزرگ تر Kindle نسبت به مدل هاي قبل اجازه خواهد داد صفحات مجلات و روزنامه ها بهتر نمايش داده شوند. دستگاه هاي فعلي Kindle اجازه مي دهند كه كاربر آبونمان نشريات مورد علاقهء خود را انجام داده و هر روز صبح روزنامه يا مجلهء مورد نظر خود را مستقيماً بر روي دستگاه دريافت كند.
15-2-88
مسابقه نوكيا براي طراحي نرمافزار Widget براي N97
شركت نوكيا به منظور برقراري ارتباط توسعه دهندگان نرمافزاري با ابزارها، اطلاعات فني، پشتيباني و كانالهاي توزيع در سراسر جهان، اقدام به راهاندازي برنامه جهاني توسعه دهندگان نوكيا فوروم شركت نوكيا از طریق فوروم نوکیا ( Forum Nokia ) كرده است.
از اقدامات اين فوروم مي توان به ارايه پشتيباني هاي فني و توسعه تجاري به طراحان و برنامه نويسان نرم افزار براي توليد سرويس ها و برنامه هاي كاربردي مفيد در سراسر جهان اشاره كرد.
به اين ترتيب مسابقهاي با همكاري فوروم نوكيا براي گردهمايي همه مبتكران در زمينه طراحي و توسعه نرم افزارهاي كاربردي در تاريخ 28-29 آوريل در موناكو در كنفرانس توسعه دهندگان برنامه هاي نوكيا برگزار شد و گروه هاي توسعه دهنده برتر از سراسر جهان براي ساخت برنامه هاي متنوع به مبارزه پرداختند كه در نهايت پس از گذشت 24 ساعت، ديويد امانوئل كاسترو گواررو از مكزيك به عنوان برنده نخست مسابقه انتخاب شد.
خوش
آمدید، 
