Cara menggunakan ASP untuk mendapatkan resolusi layar klien, kita dapat mencapainya dengan cara berikut:
Saat mengakses halaman web, gunakan js untuk mendapatkan resolusi browser, lalu arahkan ke halaman web ini dan berikan resolusinya, lalu terima resolusinya dan simpan dalam sesi, dan terakhir arahkan ke halaman web sebelumnya.
Kode:
<%
'Jika sudah otomatis bergeser untuk menjalankan pernyataan kondisional ini
jika Bint(trim(permintaan(sw))) > 0 maka
sesi(Lebar Layar Saya)=Bint(trim(permintaan(sw)))
sesi(MyScreenHeight) = Bint(trim(permintaan(sh)))
respon.Redirect(sesi(FrontUrl))
berakhir jika
%>
<%
'Kunjungi halaman web untuk pertama kalinya
jika Bint(sesi(Lebar Layar Saya))=0 maka
jika Bint(trim(permintaan(sw))) = 0 maka
sesi(Url Depan) = GetUrl()
berakhir jika
respon.Tulis(<scr&ipt>)
jika Instr(GetUrl(),?) > 0 maka
respon.Tulis(window.location='&GetUrl()&&sw='+layar.lebar+'&sh='+layar.tinggi;)
kalau tidak
respon.Tulis(window.location='&GetUrl()&?sw='+layar.lebar+'&sh='+layar.tinggi;)
berakhir jika
respon.Tulis(</scr&ipt>)
berakhir jika
%>
<%=Resolusi Anda adalah: &session(MyScreenWidth)&*&session(MyScreenHeight)%>
<%
'Berikut ini adalah beberapa fungsi
Fungsi Bint(str)
Jika IsNumeric(str) maka
Bint = Clng(str)
Elseif IsEmpty(str) lalu
Bint = 0
Elseif IsNull(str) lalu
Bint = 0
Kalau tidak
Bint = 0
Berakhir jika
Fungsi akhir
Fungsi DapatkanUrl()
sUrl = Permintaan.Variabel Server(URL)
sQueryString =
Untuk Setiap x Dalam Permintaan.QueryString
sQueryString = sQueryString & & & x & = & Server.URLEncode(Permintaan(x))
Berikutnya
jika len(sQueryString)>0 maka
sQueryString = kanan(sQueryString,len(sQueryString)-1)
kalau tidak
sQueryString =
berakhir jika
jika len(sQueryString)>0 maka
DapatkanUrl = sUrl & ? & sQueryString
kalau tidak
DapatkanUrl = sUrl
berakhir jika
Fungsi akhir
%>