أنا أرسلت الأكواد لحتى تفيدوني
رحتوا أخذتوا الأكواد بدون ماتفيدوني
أنا أريد أن تساعدوني
أنا عندي أكم من كود عايز شرح مفصل الهم حتى أستطيع شرحم في مناقشة مشروع التخرج فأرجوا مساعدتي بسرعة ...................................
وأنا ممكن أكون بأفيد البعض بهذي الأكواد لكن أتمنى انكم تفيدوني مثل ما أفدتكم
الأول عبارة عن عداد زوار :
<body>
<%
set h=server.createobject("MSWC.pagecounter")
if request.cookies("abc")="" then
h.pagehit
response.cookies("abc")="hello"
end if
%>
<p dir="ltr">
<%
For i = 1 to Len(h.hits)
response.Write("<img src='"&Mid(h.hits,i,1)&".bmp'>")
next
%>
</p>
</body>
أما الثاني فهو عبارة عن حساب هل الوزن سليم
<script language=JAVASCRIPT>
<!-- hide this script tag's contents from old browsers
function ClearForm(form){
form.weight.value = "";
form.height.value = "";
form.bmi.value = "";
form.my_comment.value = "";
}
function bmi(weight, height) {
bmindx=weight/eval(height*height);
return bmindx;
}
function checkform(form) {
if (form.weight.value==null||form.weight.value.length==0 || form.height.value==null||form.height.value.length==0){
alert("\nمن فضلك ادخل القيم في النموذج ادناه");
return false;
}
else if (parseFloat(form.height.value) <= 0||
parseFloat(form.height.value) >=500||
parseFloat(form.weight.value) <= 0||
parseFloat(form.weight.value) >=500){
alert("\nأعرف ماذا يجب ان تفعل؟ \nمن فضلك ادخل القيم مرة اخرى. \nالوزن كجم\nالطول سم");
ClearForm(form);
return false;
}
return true;
}
function computeform(form) {if (checkform(form)) {yourbmi=Math.round(bmi(form.weight.value, form.height.value/100));
form.bmi.value=yourbmi;
if (yourbmi >40) {
form.my_comment.value= " انت افرطت في سمنتك .... استشر الاخصائي ";
}
else if (yourbmi >30 && yourbmi <=40) {
form.my_comment.value=" !أنت مفرط في السمنة، تحتاج لازالة بعض الدهون";
}
else if (yourbmi >25 && yourbmi <=30) {
form.my_comment.value=" وزنك فوق المعدل الطبيعي، تحتاج تمارين رياضية";
}
else if (yourbmi >=20 && yourbmi <=25) {
form.my_comment.value=" تهانينا ان هذا هو الوزن السليم ... حافظ على ذلك";
}
else if (yourbmi >=16 && yourbmi <20) {
form.my_comment.value="انت ضعيف جدا عليك بزيادة وتنويع الاكل ";
}
else if (yourbmi <16) {
form.my_comment.value="انت عندك سؤ تغذية حاد، تحتاج الى عناية سريرية";
}
return;
}
// -- done hiding from old browsers -->
}
</SCRIPT>
أما الكود الثالث فهو لمعرفة ماهو برجك
<script language=JAVASCRIPT>
function calc(form)
{
if(((form.val2.value=="3")&&((form.val1.value>=21)&&(form.val1.value<=31)))||((form.val2.value=="4")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الحمل");
else if(((form.val2.value=="4")&&((form.val1.value>=21)&&(form.val1.value<=30)))||((form.val2.value=="5")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الثور");
else if(((form.val2.value=="5")&&((form.val1.value>=21)&&(form.val1.value<=31)))||((form.val2.value=="6")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الجوزاء");
else if(((form.val2.value=="6")&&((form.val1.value>=21)&&(form.val1.value<=30)))||((form.val2.value=="7")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو السرطان");
else if(((form.val2.value=="7")&&((form.val1.value>=21)&&(form.val1.value<=31)))||((form.val2.value=="8")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الأسد");
else if(((form.val2.value=="8")&&((form.val1.value>=21)&&(form.val1.value<=31)))||((form.val2.value=="9")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو العذراء");
else if(((form.val2.value=="9")&&((form.val1.value>=21)&&(form.val1.value<=30)))||((form.val2.value=="10")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الميزان");
else if(((form.val2.value=="10")&&((form.val1.value>=21)&&(form.val1.value<=31)))||((form.val2.value=="11")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو العقرب");
else if(((form.val2.value=="11")&&((form.val1.value>=21)&&(form.val1.value<=30)))||((form.val2.value=="12")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو القوس");
else if(((form.val2.value=="12")&&((form.val1.value>=21)&&(form.val1.value<=31)))||((form.val2.value=="1")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الجدي");
else if(((form.val2.value=="1")&&((form.val1.value>=21)&&(form.val1.value<=31)))||((form.val2.value=="2")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الدلو");
else if(((form.val2.value=="2")&&((form.val1.value>=21)&&(form.val1.value<=29)))||((form.val2.value=="3")&&((form.val1.value>="1")&&(form.val1.value<=20))))
alert("برجك هو الحوت");
else
alert("لقد أدخلت تاريخ خطأ ...حاول مرة أخرى");
}
</SCRIPT>
أما الكود الرابع فهو لتحويل التاريخ الهجري للميلادي والعكس
<script language=JavaScript>
function intPart(floatNum){
if (floatNum< -0.0000001){
return Math.ceil(floatNum-0.0000001)
}
return Math.floor(floatNum+0.0000001)
}
function weekDay(wdn){
if(wdn==0){
return "الأثنين"
}
if(wdn==1){
return "الثلاثاء"
}
if(wdn==2){
return "الأربعاء"
}
if(wdn==3){
return "الخميس"
}
if(wdn==4){
return "الجمعة"
}
if(wdn==5){
return "السبت"
}
if(wdn==6){
return "الأحد"
}
return ""
}
function chrToIsl(arg) {
d=parseInt(arg.CDay.value)
m=parseInt(arg.CMonth.value)
y=parseInt(arg.CYear.value)
if ((y>1582)||((y==1582)&&(m>10))||((y==1582)&&(m==10)&&(d>14)))
{
jd=intPart((1461*(y+4800+intPart((m-14)/12)))/4)+intPart((367*(m-2-12*(intPart((m-14)/12))))/12)-
intPart( (3* (intPart( (y+4900+ intPart( (m-14)/12) )/100) ) ) /4)+d-32075
}
else
{
jd = 367*y-intPart((7*(y+5001+intPart((m-9)/7)))/4)+intPart((275*m)/9)+d+1729777
}
arg.JD.value=jd
arg.wd.value=weekDay(jd%7)
l=jd-1948440+10632
n=intPart((l-1)/10631)
l=l-10631*n+354
j=(intPart((10985-l)/5316))*(intPart((50*l)/17719))+(intPart(l/5670))*(intPart((43*l)/15238))
l=l-(intPart((30-j)/15))*(intPart((17719*j)/50))-(intPart(j/16))*(intPart((15238*j)/43))+29
m=intPart((24*l)/709)
d=l-intPart((709*m)/24)
y=30*n+j-30
arg.HDay.value=d
arg.HMonth.value=m
arg.HYear.value=y
}
function islToChr(arg) {
d=parseInt(arg.HDay.value)
m=parseInt(arg.HMonth.value)
y=parseInt(arg.HYear.value)
jd=intPart((11*y+3)/30)+354*y+30*m-intPart((m-1)/2)+d+1948440-385
arg.JD.value=jd
arg.wd.value=weekDay(jd%7)
if (jd> 2299160 )
{
l=jd+68569
n=intPart((4*l)/146097)
l=l-intPart((146097*n+3)/4)
i=intPart((4000*(l+1))/1461001)
l=l-intPart((1461*i)/4)+31
j=intPart((80*l)/2447)
d=l-intPart((2447*j)/80)
l=intPart(j/11)
m=j+2-12*l
y=100*(n-49)+i+l
}
else
{
j=jd+1402
k=intPart((j-1)/1461)
l=j-1461*k
n=intPart((l-1)/365)-intPart(l/1461)
i=l-365*n+30
j=intPart((80*i)/2447)
d=i-intPart((2447*j)/80)
i=intPart(j/11)
m=j+2-12*i
y=4*k+n+i-4716
}
arg.CDay.value=d
arg.CMonth.value=m
arg.CYear.value=y
}
</SCRIPT>
واللي عنده كون لتضمين برنامج فيجوال بيسيك في HTML أرجوا انوا يعطيني اياه
هذا كل شيئ حتى الآن
ولكم جزيل الشكر
أرجو افادتي بسرعة ........