موصى به: رمز مثال على IP المقيد ASP نظرًا لعلاقات العمل ، تتمثل إحدى الوظائف في التصويت على المستخدمين ، وتتطلب نفس عنوان IP للتصويت على نفس المستخدم مرة واحدة فقط ، بعد رمز ASP: ٪ 'المؤلف: Wurong المصدر: db_conn (dbs) pottUsername = trim (request.querystring (username)) rs_create (اختر اسم مستخدم من المستخدم = username ='
بسبب علاقات العمل ، تتمثل إحدى الوظائف في زيادة الطرف الآخر كصديق. كما هو موضح في الصورة:
الطريقة المستخدمة هي Ajax ، والتي تتطلب رمزًا أقل ملاءمة:
<a href = javaScript: void (0) ؛ onClick = add_username ('<٪ = rs (اسم المستخدم) ٪> ') ؛> إضافة كصديق </a> ، التحقق من JS المستخدم:
<لغة البرنامج النصي = javaScript src = ajax.js> </script>
<script>
// إضافة المستخدم
وظيفة add_username (usr) {
//
فار ستا
var username = usr ؛
إذا (اسم المستخدم! =) {
إذا (اسم المستخدم! =) {
اسم المستخدم = اسم المستخدم =+اسم المستخدم ؛
sta = postthttp (اسم المستخدم ، add_friend.asp) ؛
if (sta == false) {
تنبيه (فشل الإضافة ، خطأ الخادم) ؛
}آخر{
إذا (parseint (sta) == 1)
في حالة تأهب (تهانينا ، تمت إضافة الأصدقاء بنجاح!) ؛
آخر
تنبيه (STA) ؛
}
}آخر{
تنبيه (الرجاء إدخال اسم صديقك) ؛
}
}
}
</script>
رمز ajax.js:
http_request = false ؛
if (window.xmlhttprequest) {
// للمتصفحات مثل Mozilla و Netscape و Safari ، وما إلى ذلك ، قم بإنشاء XMLHTTPrequest
http_request = new xmlhttprequest () ؛
if (http_request.overridemimetype) {
// إذا كان الرأس الذي يستجيب بواسطة الخادم ليس نصًا/XML ، فيمكنك استدعاء طرق أخرى لتعديل الرأس
http_request.overridemimetype ('text/xml') ؛
}
} آخر إذا (window.activexobject) {
// لمتصفح Internet Explorer ، قم بإنشاء xmlhttprequest
يحاول {
http_request = new ActivexObject (msxml2.xmlhttp) ؛
} catch (e) {
يحاول {
http_request = new ActivexObject (microsoft.xmlhttp) ؛
} catch (e) {}
}
}
إرجاع http_request ؛
}
// احصل على مسؤولية عنوان URL
وظيفة getResponsetext (URL)
{
http_request = getRequest () ؛
http_request.open ('get' ، url ، false) ؛
http_request.send (null) ؛
إذا (http_request.readyState == 4)
{
// تلقى استجابة خادم كاملة
if (http_request.status == 200) {
// قيمة استجابة خادم HTTP على ما يرام
requestDoc = http_request.responsetext ؛
// اكتب السلسلة التي تم إرجاعها بواسطة الخادم إلى المنطقة في الصفحة مع رسالة المعرف
}
آخر {
requestDoc = http_request.status ؛
}
}
Return requestDoc ؛
}
// إرسال البيانات
وظيفة postthttp (str ، url) {
http_request = getRequest () ؛
http_request.open ('post' ، url ، false) ؛
http_request.setRequestHeader (طول المحتوى ، str.length) ؛
http_request.setRequestHeader (نوع المحتوى ، التطبيق/x-www-form-urlencoded) ؛
http_request.send (str) ؛
إذا (http_request.readyState == 4)
{
// تلقى استجابة خادم كاملة
if (http_request.status == 200) {
// قيمة استجابة خادم HTTP على ما يرام
requestDoc = http_request.responsetext ؛
// اكتب السلسلة التي تم إرجاعها بواسطة الخادم إلى المنطقة في الصفحة مع رسالة المعرف
Return requestDoc ؛
}آخر{
// requestDoc = http_request.status ؛
العودة كاذبة
}
}
}
// احصل على Responsexml لعنوان URL
وظيفة getxmlresponsetext (url)
{
http_request = getRequest () ؛
http_request.open ('get' ، url ، false) ؛
http_request.send (null) ؛
إذا (http_request.readyState == 4)
{
// تلقى استجابة خادم كاملة
if (http_request.status == 200) {
// قيمة استجابة خادم HTTP على ما يرام
requestDoc = http_request.responsexml ؛
// اكتب السلسلة التي تم إرجاعها بواسطة الخادم إلى المنطقة في الصفحة مع رسالة المعرف
}
آخر {
requestDoc = http_request.status ؛
}
}
Return requestDoc ؛
}
ثم معالجةها في add_friend.asp.
<٪
استجابة. contenttype = text/html ؛ charset = gb2312
لن يتم نشر برنامج العملية. أولاً ، حدد ما إذا كان المستخدم قد تم تسجيل الدخول ، وما إذا كان قد تم تمرير اسم مستخدم الصديق ، ما إذا كان اسم مستخدم الصديق قانونيًا ، وما إذا كان قد تمت إضافة اسم مستخدم الصديق لأول مرة ، وما إلى ذلك.
إذا add_friend = 1 ثم "إذا كنت تستطيع إضافة أصدقاء بشكل صحيح ، add_friend = 1
Response.write 1 'يتم إرجاع هذه القيمة تلقائيًا إلى JS
آخر
كان هناك خطأ في الرد. الكتابة "يرجى التحقق من الرمز
إنهاء إذا
٪>
عودة موجه كما هو موضح في الشكل:
مشاركة: يتم فصل أرقام 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 بينما