-
-
'รับที่อยู่ IP
-
functionUserip ()
dimgetClientip
'หากไคลเอน
getClientip = request.serverVariables ("http_x_forwarded_for")
ifgetClientip = "" orisnull (getClientip) orisEmpty (getClientip) แล้ว
'หากไคลเอน
getClientip = request.serverVariables ("remote_addr")
endif
userip = getClientip
endfunction
-
'แปลงที่อยู่ IP
-
functioncip (SIP)
เคล็ดลับ = CSTR (SIP)
sip1 = ซ้าย (ปลาย, cint (instr (tip, ".")-1))
เคล็ดลับ = กลาง (เคล็ดลับ, cint (instr (เคล็ดลับ, ".")+1)))
sip2 = ซ้าย (ปลาย, cint (instr (tip, ".")-1))
เคล็ดลับ = กลาง (เคล็ดลับ, cint (instr (เคล็ดลับ, ".")+1)))
sip3 = ซ้าย (ปลาย, cint (instr (tip, ".")-1))
sip4 = mid (ปลาย, cint (instr (tip, ".")+1))
CIP = CINT (SIP1)*256*256*256+CINT (SIP2)*256*256+CINT (SIP3)*256+CINT (SIP4)
endfunction
-
'กล่องโต้ตอบปรากฏขึ้น
-
Subalert (ข้อความ)
ข้อความ = แทนที่ (ข้อความ, "'", "/'")
Response.write ("<script> การแจ้งเตือน ('" & ข้อความ & "') </script>")
enddub
-
'กลับไปที่หน้าก่อนหน้ามักจะใช้หลังจากตัดสินว่ามีการส่งข้อมูลอย่างสมบูรณ์
-
subgoback ()
Response.write ("<script> history.go (-1) </script>")
enddub
-
'เปลี่ยนเส้นทางการเชื่อมต่ออื่น
-
subgo (URL)