รหัสตัวอย่างที่สมบูรณ์ของ ASP ที่ จำกัด

แนะนำ: ตัวเลขยาว ASP ถูกคั่นด้วยเครื่องหมายจุลภาคเพื่อแสดงรหัสอินสแตนซ์
ฟังก์ชั่น comma (str) ถ้าไม่ (isnumeric (str)) หรือ str = 0 จากนั้นผลลัพธ์ = 0 elleif len (fix (str)) 4 จากนั้นผลลัพธ์ = str else pos = instr (1, str,.) ถ้า pos 0, dec = mid (str, pos)

เนื่องจากความสัมพันธ์ในการทำงานหนึ่งในฟังก์ชั่นคือการลงคะแนนให้กับผู้ใช้โดยกำหนดให้ IP เดียวกันสามารถลงคะแนนให้กับผู้ใช้รายเดียวกันได้เพียงครั้งเดียวและโพสต์รหัส ASP

 -
 'ผู้แต่ง: แหล่งที่มาอย่างโหดเหี้ยม:
 db_conn (dbs)
 โหวต USERNAME = TRIM (request.QueryString (ชื่อผู้ใช้)))
 rs_create (selectusernamefrom [ผู้ใช้] whereusername = '& sotionusername &')
 ifrs.eofandrs.bofthen
 Response.write พารามิเตอร์ที่ไม่ถูกต้องโปรดเข้าถึงได้อย่างถูกต้อง!
 Response.end ()
 endif
 'กรณีแรกคือคลิกแรกคุกกี้ว่างเปล่าและ IP ว่างเปล่า
 'สถานการณ์ที่สองคือการคลิกบุคคลที่สองเพื่อลงคะแนนเสียงคุกกี้ของบุคคลแรกมีอยู่คุกกี้ของบุคคลที่สองไม่มีอยู่จริง แต่ IP มีอยู่จริง
 'สถานการณ์ที่สามคือการลงคะแนนด้วย IP มีคุกกี้อยู่ IP ว่างเปล่า
 ifrequest.cookies (dwww) (& sotionusername &) = จากนั้น
 Response.cookies (dwww) (& voteusername &) = sotherusername & |
 Response.cookies (dwww) .expires = วันที่ ()+365
 callvotebody ()
 อื่น
 ifinstr (request.cookies (dwww) (& sotherusername &), request.cookies (dwww) (& sotherusername &) & |) <> 0 แล้ว
 callvotebody ()
 อื่น
 'response.write ขออภัยคุณโหวต! คุกกี้ทำซ้ำ
 Response.write <Script> การแจ้งเตือน ('ขออภัยคุณโหวต!'); history.back (); </script>
 Response.end ()
 endif
 endif
 subvotebody ()
 โหวต USERNAME = TRIM (request.QueryString (ชื่อผู้ใช้)))
 chect = request.serverVariables (http_x_forwarded_for) 'Bypass Proxy IP
 ifcheckip = thencheckip = request.serverVariables (remote_addr)
 geturl =
 getUrl = request.ServerVariables (http_referer)
 sql = selectusername, ipfromvotewhereusername = '& sotherusername &' Andip = '& checkip &'
 rs_create (SQL)
 ifnotrs.bofandnotrs.eofthen
 'response.write ขออภัยคุณโหวต! IP ซ้ำกัน
 Response.write <Script> การแจ้งเตือน ('ขออภัยคุณโหวต!'); history.back (); </script>
 Response.end ()
 อื่น
 conn.execute (insertintovote (ชื่อผู้ใช้, ip, addTime) ค่า ('& sotherusername &', '& cemnisp &', '& now () &')))
 conn.execute (อัปเดต [ผู้ใช้] setVote = โหวต+1 whereusername = '& sotherusername &')
 'Response.write คะแนนเสียงสำเร็จ!
 Response.write <Script> การแจ้งเตือน ('ขอแสดงความยินดีการโหวตประสบความสำเร็จ!'); location.href = '& request.serverVariables (http_referer) &' </script>
 Response.end ()
 endif
 enddub
 rs_close ()
 db_close ()
 -

แบ่งปัน: ASP สร้างโปรแกรมการตรวจสอบหน้าเข้าสู่ระบบ
สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้, chkpwd.asp % '========= สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้ ======' หากยังไม่ได้กำหนดวัตถุที่ผ่านมาให้กำหนดเป็นเท็จซึ่งหมายความว่าการตรวจสอบยังไม่ผ่าน ถ้า isEmpty (เซสชัน (ผ่าน)) จากนั้นเซสชัน (ผ่าน) = สิ้นสุดเท็จถ้าเซสชัน (ผ่าน) = เท็จหมายความว่าการตรวจสอบยังไม่ผ่านและจากนั้นการอ่านจะเริ่มขึ้น