كيفية استخدام ASP للحصول على دقة شاشة العميل، يمكننا تحقيق ذلك بالطرق التالية:
عند الوصول إلى صفحة ويب، استخدم js للحصول على دقة المتصفح، ثم أعد التوجيه إلى صفحة الويب هذه وقم بتمرير الدقة، ثم احصل على الدقة وقم بتخزينها في الجلسة، وأخيرًا أعد التوجيه إلى صفحة الويب السابقة.
شفرة:
<%
'إذا تم تحويله تلقائيًا لتنفيذ هذا البيان الشرطي
إذا Bint(trim(request(sw))) > 0 ثم
session(MyScreenWidth)=Bint(trim(request(sw)))
الجلسة (MyScreenHeight) = Bint(trim(request(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)%>
<%
'في ما يلي عدة وظائف
دالة بينت(شارع)
إذا كان IsNumeric(str) إذن
بينت = كلنج (شارع)
السيف IsEmpty(str) إذن
بنت = 0
السيف IsNull(str) ثم
بنت = 0
آخر
بنت = 0
انتهي إذا
وظيفة النهاية
الدالة GetUrl()
sUrl = Request.ServerVariables(URL)
سلسلة الاستعلام =
لكل x في Request.QueryString
sQueryString = sQueryString & & & x & = & Server.URLEncode(Request(x))
التالي
إذا كان len(sQueryString)>0 إذن
sQueryString = حق (sQueryString، len (sQueryString) -1)
آخر
سلسلة الاستعلام =
نهاية إذا
إذا كان len(sQueryString)>0 إذن
GetUrl = sUrl & sQueryString
آخر
GetUrl = sUrl
نهاية إذا
وظيفة النهاية
%>