Saya yakin netizen yang memiliki beranda pribadi ingin mengetahui bagaimana pengunjung mengevaluasi karyanya, sehingga dapat memberikan arahan untuk perbaikan.
Survei online berikut adalah salah satu contohnya :)
Anda memerlukan ruang yang mendukung FSO. Anda hanya memerlukan dua file, satu adalah halaman pemrosesan poll.asp, yang lainnya adalah file data poll.txt, dan tentu saja yang lainnya adalah untuk tampilkan halaman formulir penyerahan, kode-kode diberikan di bawah ini:
1. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<title>Survei Lokasi</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</kepala>
<tubuh>
<p>
<%
redup yang disurvei, total
redupkan poller(4)
redupkan nama jajak pendapat (7)
redupkan angka pollum(4)
disurvei=cint(Permintaan.Formulir("pilih"))
set fs= Server.CreateObject("scripting.filesystemobject")
poll=server.MapPath("poll.txt")
setel textar=fs.opentextfile(jajak pendapat,1,0,0)
jika tidak sesi (disurvei) maka
saya=0
sementara bukan textar.atendofstream
getdata=textar.readline
nama jajak pendapat(i)=kiri(rtrim(getdata),7)
pollnum(i)=kanan(RTrim(getdata),4)
jika i=disurvei maka
j=cdbl(jumlah jajak pendapat(i))+1
pollnum(i)=kanan(spasi(6)&trim(cstr(j)),7)
berakhir jika
saya=saya+1
pergi ke
textar.close
setel textar1=fs.createtextfile(polling,-1,0)
jumlah=0
untuk j=0 sampai (i-1)
total=total+cdbl(jumlah jajak pendapat(j))
textar1.writeline nama jajak pendapat(j)&nomor jajak pendapat(j)
Berikutnya
teksar1.tutup
%>
<span class="news1"> Menurut Anda, di bagian mana situs ini perlu perbaikan? </span></p>
<%
untuk j=0 sampai (i-1)
pollper(j)=cdbl(jumlah jajak pendapat(j))/total
lebar=500*pewawancara(j)
%>
<tabel lebar="750" border="0" align="kiri">
<tr>
<td align="kiri" bgcolor="#CCCCCC">
<%Respon.Tulis(trim(nama jajak pendapat(j))&"(")
Respon.Tulis(formatnumber(pollnum(j),0)&")")
Respon.Tulis("<br>")
Respon.Tulis("<img src='images/bg1.gif' width=")
Respon.Tulis(lebar&"' tinggi=10>")
Respon.Tulis(formatpersen(pollper(j)) &"<p>")
Berikutnya
Respon.Tulis("Total:")
Respon.Tulis(formatangka(total,0))
%>
</td>
</tr>
</tabel>
<%
sesi(disurvei)=benar
kalau tidak
Response.Write("Anda sudah memilih, terima kasih atas suara Anda!")
berakhir jika
%>
<p>
</tubuh>
</html>
2.poll.txt:
Seni halaman 27
Cakupan konten 35
Kecepatan pembaruan konten 43
Jumlah kunjungan website adalah 53.
Halaman (form) yang ingin ditampilkan:
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center" background="images/bg1.gif" class="1">Area apa yang menurut Anda perlu ditingkatkan pada situs ini? </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" dicentang>
Seni halaman</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
Cakupan konten</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2">
Kecepatan pembaruan konten</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<input type="radio" name="pilih" value="3">
Kunjungan situs web</td>
</tr>
<tr>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<input type="kirim" nama="Kirim2" nilai="Kirim">
</span><a href="poll.asp">Lihat</a></td>
</tr>
</table>
Sangat mudah bukan? Ayo buat sendiri :)