วิธีใช้ ASP เพื่อรับความละเอียดหน้าจอไคลเอนต์ เราสามารถทำได้ด้วยวิธีต่อไปนี้:
เมื่อเข้าถึงหน้าเว็บ ให้ใช้ js เพื่อรับความละเอียดของเบราว์เซอร์ จากนั้นเปลี่ยนเส้นทางไปยังหน้าเว็บนี้และส่งความละเอียดออกไป จากนั้นรับความละเอียดและเก็บไว้ในเซสชัน และสุดท้ายเปลี่ยนเส้นทางไปยังหน้าเว็บก่อนหน้า
รหัส:
-
'ถ้ามันถูกเปลี่ยนโดยอัตโนมัติเพื่อดำเนินการคำสั่งตามเงื่อนไขนี้
ถ้า Bint(trim(request(sw))) > 0 แล้ว
session(MyScreenWidth)=Bint(trim(request(sw)))
เซสชัน (MyScreenHeight) = Bint (ตัดแต่ง (คำขอ (sh)))
การตอบสนองการเปลี่ยนเส้นทาง (เซสชัน (FrontUrl))
สิ้นสุดถ้า
-
-
'เยี่ยมชมหน้าเว็บเป็นครั้งแรก
ถ้า Bint(session(MyScreenWidth))=0 แล้ว
ถ้า Bint(trim(request(sw))) = 0 แล้ว
เซสชัน (FrontUrl) = GetUrl()
สิ้นสุดถ้า
การตอบสนองเขียน(<scr&ipt>)
ถ้า Instr(GetUrl(),?) > 0 แล้ว
response.Write(window.location='&GetUrl()&&sw='+screen.width+'&sh='+screen.height;)
อื่น
response.Write(window.location='&GetUrl()&?sw='+screen.width+'&sh='+screen.height;)
สิ้นสุดถ้า
การตอบสนองเขียน(</scr&ipt>)
สิ้นสุดถ้า
-
<%=ความละเอียดของคุณคือ: &session(MyScreenWidth)&*&session(MyScreenHeight)%>
-
'ต่อไปนี้เป็นฟังก์ชันหลายอย่าง
ฟังก์ชั่น Bint(str)
ถ้า IsNumeric(str) แล้ว
บินต์ = Clng(str)
Elseif IsEmpty(str) แล้ว
บินต์ = 0
Elseif IsNull(str) แล้ว
บินต์ = 0
อื่น
บินต์ = 0
จบถ้า
สิ้นสุดฟังก์ชัน
ฟังก์ชัน GetUrl()
sUrl = คำขอ ServerVariables (URL)
sQueryString=
สำหรับแต่ละ x ใน Request.QueryString
sQueryString = sQueryString & & & x & = & Server.URLEncode (คำขอ (x))
ต่อไป
ถ้า len(sQueryString)>0 แล้ว
sQueryString = ขวา (sQueryString,len (sQueryString)-1)
อื่น
sQueryString=
สิ้นสุดถ้า
ถ้า len(sQueryString)>0 แล้ว
GetUrl = sUrl & ? & sQueryString
อื่น
GetUrl = sUrl
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
-