พูดคุยเกี่ยวกับรหัสที่ใช้งานได้จริงของ ASP

ตัวกรองอักขระ :

FunctionGetSafestr (STR)

getSafestr = แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (str, ','),),), &,), <, & lt;),>, & gt;)

endfunction

ปฏิทิน Gregorian ไปยังปฏิทินจันทรคติ

-

functionNongli ()

Dimweekname (7), MonthAdd (11), Nonglidata (99), Tiangan (9), Dizhi (11), Shuxiang (11), Dayname (30), Monname (12)

Dimcurtime, Curyear, Curmonth, Curday, Curweekday

Dimgonglistr, WeekDaystr, 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) = วันเสาร์

'ชื่อของลำต้นสวรรค์

tiangan (0) = a

Tiangan (1) = B

Tiangan (2) = C

Tiangan (3) = ding

Tiangan (4) = E

Tiangan (5) = 发

Tiangan (6) = geng

Tiangan (7) = Xin

Tiangan (8) = Ren

Tiangan (9) = gu

'ชื่อของสาขาโลก

dizhi (0) = sub

dizhi (1) = น่าเกลียด

dizhi (2) = หยิน

dizhi (3) = 口

Dizhi (4) = เฉิน

dizhi (5) = s

dizhi (6) = 可

dizhi (7) = n

Dizhi (8) = Shen

dizhi (9) = uni

dizhi (10) = xu

dizhi (11) = hai

ชื่อจักรราศี

shuxiang (0) = หนู

shuxiang (1) = nuo

shuxiang (2) = เสือ

shuxiang (3) = กระต่าย

Shuxiang (4) = Dragon

shuxiang (5) = งู

shuxiang (6) = ม้า

Shuxiang (7) = แกะ

shuxiang (8) = ลิง

Shuxiang (9) = ไก่

shuxiang (10) = สุนัข

shuxiang (11) = หมู

ชื่อวันที่จันทรคติ

dayname (0) =*

DayName (1) = ปีแรก

DayName (2) = ชั้นสอง

DayName (3) = ปีแรก

dayname (4) = สี่

Dayname (5) = วันที่ห้าของเดือนจันทรคติแรก

DayName (6) = First Sixth

DayName (7) = QUINITY

dayname (8) = ครั้งแรกที่แปด

dayname (9) = 分小

dayname (10) = สิบแรก

Dayname (11) = 11

dayname (12) = สิบสอง

dayname (13) = สิบสาม

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

'สร้างปีปฏิทินปัจจุบันเดือนวัน ==> กงลิสต์

curyear = ปี (curtime)

curmonth = เดือน (curtime)

Curday = Day (Curtime)

gonglistr = curyear & ปี

if (curmonth <10) จากนั้น

gonglistr = gonglistr & 0 & curmonth & month

อื่น

Gonglistr = Gonglistr & Curmonth & Month

endif

ถ้า (curday <10) จากนั้น

gonglistr = gonglistr & 0 & curday & day

อื่น

gonglistr = gonglistr & curday & day

endif

'สร้างสัปดาห์ Gregorian ปัจจุบัน ==> WeekDaystr

Curweekday = วันธรรมดา (Curtime)

WeekDaystr = WeekName (Curweekday)

'จำนวนวันถึงเวลาเริ่มต้นของ 8 กุมภาพันธ์ 2464: 2464-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

m = 0

ทำ

ถ้า (nonglidata (m) <4095) แล้ว

k = 11

อื่น

k = 12

endif

n = k

ทำ

ถ้า (n <0) จากนั้น

ออกจาก

endif

'รับค่าของบิตไบนารีที่ n ของ nonglidata (m)

bit = nonglidata (m)

forq = 1tonstep1

bit = int (bit/2)

ต่อไป

bit = bitmod2

if (thedate <= 29+บิต) จากนั้น

isend = 1

ออกจาก

endif

TheDate = theDate-29- บิต

n = n-1

วง

ถ้า (isend = 1) จากนั้น

ออกจาก

endif

M = M+1

วง

curyear = 1921+m

curmonth = k-n+1

Curday = TheDate

ถ้า (k = 12) แล้ว

if (curmonth = (int (nonglidata (m)/65536) +1)) แล้ว

curmonth = 1-curmonth

elseif (curmonth> (int (nonglidata (m)/65536) +1)) จากนั้น

Curmonth = Curmonth-1

endif

endif

'สร้างปฏิทินจันทรคติสาขาของโลกและสัญญาณราศี ==> nonglister

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

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

'สร้างเดือนและวันทางจันทรคติ ==> nongljdaystr

if (curmonth <1) จากนั้น

nonglidaystr = live & monname (-1*curmonth)

อื่น

nonglidaystr = monname (curmonth)

endif

nonglidaystr = nonglidaystr & เดือน

nonglidaystr = nonglidaystr & dayname (curday)

nongli = nonglistr && nonglidaystr

endfunction

Dimsdate: sdate = nongli ()

Response.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

endfunction

ฟังก์ชั่นที่สร้างรหัสความปลอดภัย

functionmake_randomize (max_len, w_n) 'max_len สร้างความยาว w_n: 0 อาจมีตัวอักษร 1: สำหรับตัวเลขเท่านั้น

สุ่ม

forintCounter = 1tomax_len

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

ifhatnext = 0 แล้ว

บน = 122

ต่ำกว่า = 97

อื่น

บน = 57

ต่ำกว่า = 48

endif

strNewPass = strNewPass & chr (int ((บนต่ำสุด+1)*rnd)+ล่าง)

ต่อไป

make_randomize = strNewPass

endfunction

'safeCode = make_randomize (4,0)

'response.write (safeCode)

-

<%random_num = make_randomize (4,0) 'สร้างรหัสความปลอดภัย 4 หลัก

เซสชั่น (แบบสุ่ม) = random_num 'ทำไมเซสชันถึงเรียก? มันไม่มีความหมายอย่างสมบูรณ์หากไม่มีรหัสความปลอดภัยของเซสชัน ฮิฮิ

setJpeg = server.createObject (perves.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 = onader_index.jpgBorder = 0Align = absmiddle>