تحدث عن مدونة ASP العملية للغاية

أحرف التصفية :

FunctionGetSafester (Str)

getSafestr = استبدال (استبدال (استبدال (استبدال (استبدال (str ، '،') ،) ،) ، & ،) ، <، & lt ؛) ،> ، & gt ؛)

الوظيفية

التقويم الغريغوري إلى التقويم القمري

<٪

functionNongli ()

Dimweekname (7) ، Monthadd (11) ، Nonglidata (99) ، Tiangan (9) ، Dizhi (11) ، Shuxiang (11) ، DayName (30) ، Monname (12)

dimcurtime ، curyear ، curmonth ، curday ، curweekday

Dimgonglistr ، WeekDaysstr ، Nonglistr ، NonglidayStr

Dimi ، M ، N ، K ، isend ، bit ، thedate

احصل على وقت النظام الحالي

Curtime = التاريخ

اسم الأسبوع

WeekName (0) =*

WeekName (1) = الأحد

WeekName (2) = الاثنين

اسم WeekName (3) = الثلاثاء

WeekName (4) = الأربعاء

WeekName (5) = الخميس

WeekName (6) = الجمعة

WeekName (7) = السبت

اسم السيقان السماوية

تيانجان (0) = أ

تيانجان (1) = ب

تيانجان (2) = ج

تيانجان (3) = دينغ

تيانجان (4) = هـ

تيانجان (5) = 发

تيانجان (6) = جينج

تيانجان (7) = شين

تيانجان (8) = رن

تيانغان (9) = غو

اسم الفرع الأرضي

dizhi (0) = sub

dizhi (1) = قبيح

dizhi (2) = yin

dizhi (3) = 口

dizhi (4) = تشن

dizhi (5) = s

dizhi (6) = 可

dizhi (7) = n

dizhi (8) = شين

dizhi (9) = uni

Dizhi (10) = Xu

dizhi (11) = هاي

اسم زودياك

shuxiang (0) = الفئران

shuxiang (1) = nuo

Shuxiang (2) = Tiger

Shuxiang (3) = الأرنب

Shuxiang (4) = التنين

shuxiang (5) = الأفعى

Shuxiang (6) = حصان

Shuxiang (7) = الأغنام

Shuxiang (8) = Monkey

Shuxiang (9) = الدجاج

Shuxiang (10) = كلب

shuxiang (11) = خنزير

اسم تاريخ القمر

DayName (0) =*

DayName (1) = السنة الأولى

DayName (2) = الصف الثاني

DayName (3) = السنة الأولى

DayName (4) = الرابع

DayName (5) = اليوم الخامس من الشهر القمري الأول

DayName (6) = السادس الأول

DayName (7) = Quinity

DayName (8) = الثامن الأول

DayName (9) = 分小

DayName (10) = العشرة الأولى

DayName (11) = 11

DayName (12) = اثنا عشر

DayName (13) = Thirteen

DayName (14) = 14

DayName (15) = خمسة عشر

DayName (16) = 16

DayName (17) = 17

DayName (18) = ثمانية عشر

DayName (19) = 19

DayName (20) = عشرين

DayName (21) = 21

DayName (22) = 22

DayName (23) = 23

DayName (24) = 24

DayName (25) = 25

DayName (26) = 26

DayName (27) = 27

DayName (28) = 28

DayName (29) = 29

DayName (30) = 30

اسم الشهر القمري

monname (0) =*

monname (1) = إيجابي

Monname (2) = 2

Monname (3) = ثلاثة

Monname (4) = أربعة

Monname (5) = 5

Monname (6) = ستة

Monname (7) = 7

Monname (8) = 8

Monname (9) = 9

Monname (10) = عشرة

Monname (11) = 11

monname (12) = الماء

'عدد الأيام التي سبقت كل شهر من التقويم الغريغوري

monthadd (0) = 0

monthadd (1) = 31

monthadd (2) = 59

monthadd (3) = 90

monthadd (4) = 120

monthadd (5) = 151

monthadd (6) = 181

monthadd (7) = 212

monthadd (8) = 243

monthadd (9) = 273

monthadd (10) = 304

monthadd (11) = 334

بيانات التقويم القمري

nonglidata (0) = 2635

nonglidata (1) = 333387

nonglidata (2) = 1701

nonglidata (3) = 1748

nonglidata (4) = 267701

nonglidata (5) = 694

nonglidata (6) = 2391

nonglidata (7) = 133423

nonglidata (8) = 1175

nonglidata (9) = 396438

nonglidata (10) = 3402

nonglidata (11) = 3749

Nonglidata (12) = 331177

nonglidata (13) = 1453

nonglidata (14) = 694

Nonglidata (15) = 201326

nonglidata (16) = 2350

Nonglidata (17) = 465197

nonglidata (18) = 3221

Nonglidata (19) = 3402

Nonglidata (20) = 400202

nonglidata (21) = 2901

nonglidata (22) = 1386

Nonglidata (23) = 267611

nonglidata (24) = 605

nonglidata (25) = 2349

Nonglidata (26) = 137515

Nonglidata (27) = 2709

Nonglidata (28) = 464533

Nonglidata (29) = 1738

nonglidata (30) = 2901

nonglidata (31) = 330421

nonglidata (32) = 1242

nonglidata (33) = 2651

Nonglidata (34) = 199255

nonglidata (35) = 1323

Nonglidata (36) = 529706

nonglidata (37) = 3733

Nonglidata (38) = 1706

Nonglidata (39) = 398762

nonglidata (40) = 2741

nonglidata (41) = 1206

Nonglidata (42) = 267438

Nonglidata (43) = 2647

Nonglidata (44) = 1318

Nonglidata (45) = 204070

Nonglidata (46) = 3477

Nonglidata (47) = 461653

Nonglidata (48) = 1386

Nonglidata (49) = 2413

Nonglidata (50) = 330077

nonglidata (51) = 1197

nonglidata (52) = 2637

Nonglidata (53) = 268877

Nonglidata (54) = 3365

Nonglidata (55) = 531109

Nonglidata (56) = 2900

Nonglidata (57) = 2922

Nonglidata (58) = 398042

Nonglidata (59) = 2395

nonglidata (60) = 1179

Nonglidata (61) = 267415

Nonglidata (62) = 2635

Nonglidata (63) = 661067

Nonglidata (64) = 1701

Nonglidata (65) = 1748

Nonglidata (66) = 398772

Nonglidata (67) = 2742

Nonglidata (68) = 2391

Nonglidata (69) = 330031

Nonglidata (70) = 1175

nonglidata (71) = 1611

Nonglidata (72) = 200010

Nonglidata (73) = 3749

Nonglidata (74) = 527717

nonglidata (75) = 1452

Nonglidata (76) = 2742

Nonglidata (77) = 332397

Nonglidata (78) = 2350

nonglidata (79) = 3222

Nonglidata (80) = 268949

nonglidata (81) = 3402

nonglidata (82) = 3493

Nonglidata (83) = 133973

Nonglidata (84) = 1386

Nonglidata (85) = 464219

nonglidata (86) = 605

Nonglidata (87) = 2349

Nonglidata (88) = 334123

Nonglidata (89) = 2709

Nonglidata (90) = 2890

Nonglidata (91) = 267946

Nonglidata (92) = 2773

Nonglidata (93) = 592565

nonglidata (94) = 1210

nonglidata (95) = 2651

Nonglidata (96) = 395863

Nonglidata (97) = 1323

Nonglidata (98) = 2707

Nonglidata (99) = 265877

"إنشاء السنة التقويمية الحالية ، الشهر ، اليوم ==> gonglistr

curyear = سنة (curtime)

curmonth = الشهر (curtime)

curday = اليوم (curtime)

Gonglistr = curyear والسنة

إذا (curmonth <10) ثم

Gonglistr = Gonglistr & 0 & Curmonth & Month

آخر

Gonglistr = Gonglistr & Curmonth & Month

Endif

إذا (curday <10) ثم

Gonglistr = Gonglistr & 0 & curday & day

آخر

Gonglistr = Gonglistr & Curday & Day

Endif

'إنشاء الأسبوع الغريغوري الحالي ==> weekdaysstr

curweekday = أيام الأسبوع (curtime)

WeekDayStr = WeekName (Curweekday)

'عدد الأيام إلى الوقت الأولي في 8 فبراير 1921: 1921-2-8 (اليوم الأول من الشهر القمري الأول)

thedate = (curyear-1921)*365+int ((curyear-1921)/4)+curday+monthadd (curmonth-1) -38

if ((curyearmod4) = 0AndCurmonth> 2) ثم

thedate = thedate+1

Endif

احسب التقويم القمري ، والفروع الأرضية ، الشهر واليوم

isend = 0

م = 0

يفعل

إذا (nonglidata (m) <4095) ثم

ك = 11

آخر

ك = 12

Endif

ن = ك

يفعل

إذا (n <0) ثم

exitdo

Endif

احصل على قيمة الجزء الثنائي التاسع من nonglidata (م)

بت = nonglidata (م)

forq = 1tonstep1

بت = int (بت/2)

التالي

بت = bitmod2

إذا (thedate <= 29+بت) ثم

isend = 1

exitdo

Endif

thedate = thedate-29 بت

ن = ن -1

حلقة

إذا (isend = 1) ثم

exitdo

Endif

م = م+1

حلقة

curyear = 1921+م

curmonth = k-n+1

curday = thedate

إذا (ك = 12) ثم

if (curmonth = (int (nonglidata (m)/65536) +1) ثم

curmonth = 1-curmonth

elseif (curmonth> (int (nonglidata (m)/65536) +1) ثم

curmonth = curmonth-1

Endif

Endif

"قم بإنشاء تقويم القمر ، والفروع الأرضية ، وعلامات البروج ==> nonglistr

nonglistr = tiangan (((curyear-4) mod60) mod10) و dizhi (((curyear-4) mod60) mod12)

nonglistr = nonglistr & <fontcolor = '#ff9000'> <b> (& shuxiang (((curyear-4) mod60) mod12) &) </b> </font> سنة

"إنشاء الشهر واليوم القمري ==> nongljdaysstr

إذا (curmonth <1) ثم

nonglidaystr = live & monname (-1*curmonth)

آخر

nonglidaystr = monname (curmonth)

Endif

nonglidaystr = nonglidaystr & month

nonglidaystr = nonglidaystr & dayname (curday)

nongli = nonglistr && nonglidaystr

الوظيفية

dimsdate: sdate = nongli ()

استجابة. write (sdate)

٪>

سلاسل تنسيق

اسم الوظيفة: Zerofill (num ، num_length)

وظيفة الوظيفة: تمت إضافة 0 من قبل

وصف المعلمة: الرقم الذي سيتم تشغيله بواسطة NUM

يعرض num_length عدد البتات

'قيمة الإرجاع: سلسلة تنسيق

'

functionzerofill (num ، num_length)

dimzerofill_i ، Zerofill_returnnum

forzerofill_i = len (num) tonum_length-1

zerofill_returnnum = zerofill_returnnum & 0

التالي

zerofill_returnnum = zerofill_returnnum & num

ZEROFILL = ZEROFILL_RETURNNUM

الوظيفية

الوظائف التي تولد رموز الأمان

functionmake_randomize (max_len ، w_n) 'max_len يولد الطول ، w_n: 0 قد يحتوي على رسائل ، 1: فقط للأرقام

عشوائي

forintcounter = 1tomax_len

whatnext = int ((1-0+1)*rnd+w_n)

ifwhatnext = 0then

العلوي = 122

أقل = 97

آخر

العلوي = 57

أقل = 48

Endif

strnewpass = strnewpass & chr (int ((love-lower+1)*rnd)+lower)

التالي

make_randomize = strnewpass

الوظيفية

'safecode = make_randomize (4،0)

'Response.write (Safecode)

٪>

<٪ random_num = make_randomize (4،0) "قم بإنشاء رمز أمان من 4 أرقام

الجلسة (عشوائي_num) = عشوائي_num 'لماذا يتم استدعاء الجلسة؟ لا معنى له تمامًا دون رمز أمان الجلسة. هيه

setjpeg = server.createObject (persits.jpeg) مكون الاتصال

jpeg.openserver.mappath (1.jpg) "افتح الصورة المعدة

jpeg.canvas.font.color = & h006699

jpeg.canvas.font.family = arialblack

jpeg.canvas.font.bold = false

jpeg.canvas.printtext0 ، -2 ، Random_num

jpeg.saveserver.mappath (random_index.jpg) 'حفظ

٪> & nbsp ؛ <imgsrc = random_index.jpgborder = 0align = absmiddle>