اعتبار سنجی مقادیر وارد شده

[ali643]

سلام
تو asp می خوایم چک کنیم که در یه textbox عدد وارد شده یا نه و تعداد این اعداد چند تا هست و آیا مقداری وارد شده است یا نه و یک پیغام مناسب به کاربر نمایش بدیم چه طوری انجام می دهیم ؟

مرسی

[M-Gheibi]

حالا چرا با ASP با جاوا اسکریپت هم میشه این کار رو کرد.
متاسفانه الآن وقت ندارم انشاالله فردا کد ASPش رو براتون میذارم.

شب خوش

[ali643]

انشا الله :strange:

[M-Gheibi]

سلام
البته کد زیر کد ساده ای هست و برای اینکه حساسیت بالایی داشته باشه (حساب نکردن فواصل و ...) باید چند خطی بهش اضافه بشه.
توضیح کد صفحه Check.asp رو هم مینویسم تا اگه با دستورات به کار رفته آشنایی ندارید متوجه شوید.

dim str
متغیری با نام str می سازد.

str = request.form("txtnumber")
مقدار وارد شده در تکست باکس (txtnumber) را در متغیر str می ریزد.

Function chrcount(strnum)
chrcount = len(strnum)
End Function
این تابع کار محاسبه تعداد کاراکتر ها را انجام می دهد.
ابتدا strnum را گرفته و سپس با استفاده از len تعداد کاراکتر های آن را برمی گرداند.

select case trim(str)
شرطی برای str اعمال می کند که اگر :

case ""
response.write("Please enter something.")
مقداری وارد نشده بود عبارت Please enter something را نمایش دهد.

case else
در غیر اینصورت٬

if isnumeric(str) = true then
response.write(chrcount(str))
اگر مقدار وارد شده تنها از اعداد تشکیل شده بود٬ تعداد کاراکترهای آن را با استفاده از تابع chrcount بدست آورده و نمایش دهد.

else
response.write("Your input string is not numeric.")
اگر مقدار وارد شده عددی نبود٬ پیغام Your input string is not numeric را نمایش دهد.

end if
end select
پایان شرطهای استفاده شده.

امیدوارم کارتون رو راه انداخته باشه.
اگر چیز دیگه ای نیاز بود ... :wink:

روز خوش :)

[ali643]

مرسی :flower:

[ali643]

سلام

من می خواستم این فرمی که داخل این فایل zip هستش رو وقتی روی دکمه ارسال اطلاعات کلیک می کنیم اگر داخل فیلد های نام و نام خانوادگی عدد وارد کرد بهش گیر بده و اگه شماره دانشجوی رو کمتر از 7 رقم وارد کرد یه پیغام بده و کد درسهای انتخابی رو اگر به جای عدد حروف وارد کرد بازم گیر بده

مرسی

[3nitro]

این هم سورس فایل چک.اسپ :


<%
Function chrcount(strnum)
chrcount = len(strnum)
End Function
dim str
str = request.form("txtname")
dim str2
str2 = request("txtfamil")
dim txtids
txtids=chrcount(cint(request("txtIdno")))
if isnumeric(str) = true or isnumeric(str2) = true then
response.write "<br>Name or Family is number ...Please Write String"
end if
if txtids < 7 then
response.write "<br>len ID is < 7"
end if
if isnumeric(request("txtv1")) <> true or isnumeric(request("txtv2")) <> true or isnumeric(request("txtv3")) <>

true or isnumeric(request("txtv4")) <> true or isnumeric(request("txtv5")) <> true then
response.write "<br>please enter a number"
end if
%>

چک کردم درست کار می کنه ! :موفق:

[M-Gheibi]

1. دوستان به جای ارسال آف تاپیک به اصل موضوع بپردازید. (به علت آف تاپیک بودن چند پست٬ همگی حذف شدند)
2. ali643 جان فکر کنم کد زیر مشکلت رو حل کنه (خودمونیم قراره کم کم پروژت رو رو کنی. خب همین الآن بگو تا بنویسیمش :mrgreen: :موفق: )

کد مربوط به فایل Check.asp :

<%
Dim vfname, vlname, vid, vr1, vr2, vr3, vr4, vr5
vfname = Request.FORm("txtname")
vlname = Request.FORm("txtfamil")
vid = Request.FORm("txtIdno")
vr1 = Request.FORm("txtv1")
vr2 = Request.FORm("txtv2")
vr3 = Request.FORm("txtv3")
vr4 = Request.FORm("txtv4")
vr5 = Request.FORm("txtv5")

Function ChrCount(StrNum)
ChrCount = Len(StrNum)
End Function

Function Validate(Str,kind)
if kind = "Number" then
ValidNumericCh = "0123456789"
FOR i = 1 to Len(Str)
ch = Mid(Str,i,1)
If InStr(ValidNumericCh, ch) = 0 Then
Validate = "False"
Exit Function
End If
Next
elseif kind = "String" then
ValidNumericCh = "0123456789~!@#$%^&*()_+`-=/.,?><\|';:}{]["
FOR i = 1 to Len(Str)
ch = Mid(Str,i,1)
If InStr(ValidNumericCh, ch) <> 0 Then
Validate = "False"
Exit Function
End If
Next
end if
End Function

If Trim(vfname) = "" OR Trim(vlname) = "" OR Trim(vid) = "" OR _
Trim(vr1) = "" OR Trim(vr2) = "" OR Trim(vr3) = "" OR Trim(vr4) = "" OR Trim(vr5) = "" Then
Response.write("Please fill all the fileds.")
else
If Validate(vfname,"String") = "False" Then
Response.write("Please correct your first name.<BR>")
End If

If Validate(vlname,"String") = "False" Then
Response.write("Please correct your last name.<BR>")
End If

If Validate(vid,"Number") = "False" OR ChrCount(vid) > 7 then
Response.write("Please enter a valid id number.<BR>")
End If

If isnumeric(vr1) = false OR isnumeric(vr2) = false OR isnumeric(vr3) = false OR _
isnumeric(vr4) = false OR isnumeric(vr5) = false Then
Response.write("Please enter a valid code.<BR>")
End If
End If
%>

موفق باشید
روز خوش :)

[ali643]

تا اینجا که دستت درد نکنه ردیف شد