แนะนำ: ASP การลงคะแนน IP ที่ จำกัด การ จำกัด รหัสตัวอย่างที่สมบูรณ์ เนื่องจากความสัมพันธ์ในการทำงานหนึ่งในฟังก์ชั่นคือการลงคะแนนให้ผู้ใช้ต้องการให้ IP เดียวกันลงคะแนนในผู้ใช้รายเดียวกันเพียงครั้งเดียวโพสต์รหัส ASP: % 'ผู้แต่ง: Wurong ที่มา: db_conn (dbs) sotherUname = trim (request.querystring (ชื่อผู้ใช้) rs_create
เนื่องจากความสัมพันธ์ในการทำงานหนึ่งในฟังก์ชั่นคือการเพิ่มอีกฝ่ายเป็นเพื่อน ดังที่แสดงในภาพ:
วิธีที่ใช้คือ AJAX ซึ่งต้องใช้รหัสที่เหมาะสมน้อยกว่า:
<a href = JavaScript: void (0); onclick = add_username ('< %= rs (ชื่อผู้ใช้) %> ');> เพิ่มเป็นเพื่อน </a>, การตรวจสอบ JS ที่ใช้:
<script language = JavaScript src = ajax.js> </script>
<script>
// เพิ่มผู้ใช้
ฟังก์ชั่น add_username (usr) {
-
var sta;
ชื่อผู้ใช้ var = usr;
ถ้า (ชื่อผู้ใช้! =) {
ถ้า (ชื่อผู้ใช้! =) {
ชื่อผู้ใช้ = ชื่อผู้ใช้ =+ชื่อผู้ใช้;
sta = postthttp (ชื่อผู้ใช้, add_friend.asp);
ถ้า (sta == false) {
การแจ้งเตือน (การเพิ่มล้มเหลว, ข้อผิดพลาดของเซิร์ฟเวอร์);
}อื่น{
if (parseint (sta) == 1)
การแจ้งเตือน (ขอแสดงความยินดีเพื่อน ๆ ได้รับการเพิ่มสำเร็จ!);
อื่น
การแจ้งเตือน (sta);
-
}อื่น{
การแจ้งเตือน (โปรดป้อนชื่อเพื่อนของคุณ);
-
-
-
</script>
รหัส ajax.js:
http_request = false;
if (window.xmlhttprequest) {
// สำหรับเบราว์เซอร์เช่น Mozilla, Netscape, Safari และอื่น ๆ
http_request = ใหม่ 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;
-
// รับ responsetext ของ URL
ฟังก์ชั่น getResponSetext (URL)
-
http_request = getRequest ();
http_request.open ('get', url, false);
http_request.send (null);
if (http_request.readystate == 4)
-
// ได้รับการตอบกลับเซิร์ฟเวอร์ที่สมบูรณ์
if (http_request.status == 200) {
// ค่าการตอบกลับเซิร์ฟเวอร์ HTTP นั้นโอเค
requestDoc = http_request.responsetext;
// เขียนสตริงที่ส่งคืนโดยเซิร์ฟเวอร์ไปยังพื้นที่ในหน้าด้วยข้อความ ID
-
อื่น {
requestDoc = http_request.status;
-
-
return requestdoc;
-
// โพสต์ส่งข้อมูล
ฟังก์ชั่น postthttp (str, url) {
http_request = getRequest ();
http_request.open ('โพสต์', url, false);
http_request.setrequestheader (ความยาวเนื้อหา, str.length);
http_request.setrequestheader (ประเภทเนื้อหา, แอปพลิเคชัน/x-www-form-urlencoded);
http_request.send (str);
if (http_request.readystate == 4)
-
// ได้รับการตอบกลับเซิร์ฟเวอร์ที่สมบูรณ์
if (http_request.status == 200) {
// ค่าการตอบกลับเซิร์ฟเวอร์ HTTP นั้นโอเค
requestDoc = http_request.responsetext;
// เขียนสตริงที่ส่งคืนโดยเซิร์ฟเวอร์ไปยังพื้นที่ในหน้าด้วยข้อความ ID
return requestdoc;
}อื่น{
// requestDoc = http_request.status;
กลับเท็จ;
-
-
-
// รับ responsexml ของ url
ฟังก์ชั่น getxmlresponsetext (url)
-
http_request = getRequest ();
http_request.open ('get', url, false);
http_request.send (null);
if (http_request.readystate == 4)
-
// ได้รับการตอบกลับเซิร์ฟเวอร์ที่สมบูรณ์
if (http_request.status == 200) {
// ค่าการตอบกลับเซิร์ฟเวอร์ HTTP นั้นโอเค
requestDoc = http_request.responsexml;
// เขียนสตริงที่ส่งคืนโดยเซิร์ฟเวอร์ไปยังพื้นที่ในหน้าด้วยข้อความ ID
-
อื่น {
requestDoc = http_request.status;
-
-
return requestdoc;
-
จากนั้นประมวลผลใน add_friend.asp
-
Response.contentType = text/html; Charset = GB2312
'โปรแกรมกระบวนการจะไม่ถูกโพสต์ ขั้นแรกให้ตรวจสอบว่าผู้ใช้เข้าสู่ระบบไม่ว่าจะผ่านชื่อผู้ใช้ของเพื่อนหรือไม่ไม่ว่าชื่อผู้ใช้ของเพื่อนจะถูกกฎหมายไม่ว่าจะเป็นการเพิ่มชื่อผู้ใช้ของเพื่อนเป็นครั้งแรก ฯลฯ หากการเพิ่มขึ้นถูกต้อง
ถ้า add_friend = 1 แล้ว 'ถ้าคุณสามารถเพิ่มเพื่อนได้อย่างถูกต้อง add_friend = 1
response.write 1 'ค่านี้จะถูกส่งกลับไปยัง JS โดยอัตโนมัติ
อื่น
มีข้อผิดพลาดในการตอบสนองเขียน 'โปรดตรวจสอบรหัส
สิ้นสุดถ้า
-
กลับมาพร้อมท์ดังแสดงในรูป:
แชร์: ตัวเลขยาว 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)