موصى به: يتم فصل أرقام ASP الطويلة بواسطة فواصل لعرض رمز المثيل ٪ وظيفة فاصلة (str) إذا لم يكن (isNumeric (str)) أو str = 0 ثم النتيجة = 0 elseif len (fix (str)) 4 ثم النتيجة = str else pos = instr (1 ، str ،.) إذا poS 0 ثم dec = mid (str ، pos) إذا res = strreverse (fix (str)) loopcount = 1 بينما
نظرًا لعلاقات العمل ، تتمثل إحدى الوظائف في التصويت للمستخدمين ، مما يتطلب أن نفس عنوان IP لا يمكنه التصويت إلا لنفس المستخدم مرة واحدة ، ونشر رمز ASP
- <٪
- المؤلف: المصدر القاسي:
- db_conn (DBS)
- pottusername = trim (request.querystring (اسم المستخدم))
- RS_CREATE (SelectUserNameFrom [user] whereusername = '& pottusername &')
- ifrs.eofandrs.bofthen
- استجابة. كتابة معلمات غير صحيحة ، يرجى الوصول إليها من بشكل صحيح!
- استجابة.
- Endif
- "الحالة الأولى هي النقر الأول ، ملفات تعريف الارتباط فارغة ، و IP فارغة
- "الوضع الثاني هو النقر على الشخص الثاني للتصويت ، وتواجد ملفات تعريف الارتباط الخاصة بالشخص الأول ، وملفات تعريف الارتباط الخاصة بالشخص الثاني ، لكن IP موجود
- "الوضع الثالث هو التصويت باستخدام IP ، ووجود ملفات تعريف الارتباط ، و IP فارغ
- ifrequest.cookies (DWWW) (& pottusername &) = ثم
- Response.cookies (DWWW) (& pottusername &) = pottusername & |
- استجابة
- callvoteBody ()
- آخر
- IFINSTR (request.cookies (DWWW) (& pottusername &) ، request.cookies (dwww) (& pottusername &) & |) <> 0then
- callvoteBody ()
- آخر
- 'الرد. اكتب آسف ، لقد صوتت! تكرر ملفات تعريف الارتباط
- Response.write <Script> ALERT ("آسف ، لقد صوتت!") ؛ History.back () ؛ </script>
- استجابة.
- Endif
- Endif
- تخزين المكواة ()
- pottusername = trim (request.querystring (اسم المستخدم))
- cadcip = request.servervariables (http_x_forwarded_for) 'propass proxy ip
- ifcheckip = thecheckip = request.servervariables (Remote_addr)
- geturl =
- geturl = request.servervariables (http_referer)
- SQL = SelectUserName ، ipfromVotewhereUserName = '& pottusername &' andip = '& checkip &'
- rs_create (SQL)
- ifnotrs.bofandnotrs.eofthen
- 'الرد. اكتب آسف ، لقد صوتت! IP تكرار
- Response.write <Script> ALERT ("آسف ، لقد صوتت!") ؛ History.back () ؛ </script>
- استجابة.
- آخر
- conn.execute (insertintovote (اسم المستخدم ، IP ، AddTime) القيم ('& pottusername &' ، '& chovip &' ، '& now ())))
- conn.execute (تحديث [المستخدم] setVote = التصويت+1 WhyeSurname = '& pottusername &')
- 'الرد. نجح التصويت!
- Response.write <Script> ALERT ('تهانينا ، التصويت كان ناجحًا!)
- استجابة.
- Endif
- ينتهي
- rs_close ()
- db_close ()
- ٪>
مشاركة: ASP ينشئ برنامج التحقق من صفحة تسجيل الدخول البرنامج النصي للتحقق من تسجيل تسجيل الدخول ، CHKPWD.ASP ٪ '=========== المستخدم تسجيل تسجيل الدخول إلى المستخدم =======' إذا لم يتم تعريف الكائن الذي تم تمريره بعد ، حدده على أنه خطأ ، مما يعني أنه لم يتم تمرير التحقق. إذا كانت isempty (جلسة (تم تمريرها)) ثم الجلسة (تم تمريرها) = نهاية خاطئة إذا كانت الجلسة (تم تمريرها) = خطأ ، فهذا يعني أنه لم يتم تمرير التحقق ، ثم تبدأ القراءة.