個人のホームページを持っているネットユーザーは、訪問者が自分の作品をどのように評価しているかを知り、改善の方向性を見出したいと考えていると思います。
次のオンライン アンケートは一例です:)
FSO をサポートするスペースが必要なのは 2 つのファイルだけです。1 つは処理ページの poll.asp、もう 1 つはデータ ファイルの poll.txt、そしてもちろんもう 1 つは送信フォーム ページを表示します。コードは以下のとおりです。
1. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<頭>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>現地調査</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</head>
<本文>
<p>
<%
ディムポーリング、合計
ディムポーパー(4)
ディムポール名(7)
ディムポールナム(4)
ポーリング=cint(Request.Form("select"))
set fs= Server.CreateObject("scripting.filesystemobject")
poll=server.MapPath("poll.txt")
set textar=fs.opentextfile(poll,1,0,0)
セッション（ポーリング）でない場合は、
i=0
textar.atendofstream ではありませんが
getdata=textar.readline
ポール名(i)=left(rtrim(getdata),7)
pollnum(i)=right(RTrim(getdata),4)
i=ポーリングされた場合
j=cdbl(pollnum(i))+1
pollnum(i)=right(space(6)&trim(cstr(j)),7)
終了する場合
i=i+1
曲がります
textar.close
set textar1=fs.createtextfile(poll,-1,0)
合計=0
j=0 ～ (i-1) の場合
total=total+cdbl(pollnum(j))
textar1.writeline ポール名(j)&ポール番号(j)
次
textar1.close
%>
<span class="news1"> このサイトのどこを改善する必要があると思いますか? </span></p>
<%
j=0 ～ (i-1) の場合
pollper(j)=cdbl(pollnum(j))/合計
幅=500*ポーリング(j)
%>
<テーブル幅="750" ボーダー="0" align="left">
<tr>
<td align="left" bgcolor="#CCCCCC">
<%Response.Write(trim(pollname(j))&"(")
Response.Write(formatnumber(pollnum(j),0)&")")
Response.Write("<br>")
Response.Write("<img src='images/bg1.gif' width=")
Response.Write(幅&"' 高さ=10>")
Response.Write(formatpercent(pollper(j)) &"<p>")
次
Response.Write("合計:")
Response.Write(フォーマット番号(合計,0))
%>
</td>
</tr>
</テーブル>
<%
セッション(ポーリング)=true
それ以外
Response.Write("あなたはすでに投票しています。投票していただきありがとうございます!")
終了する場合
%>
<p></p>
</body>
</html>
2.poll.txt:
ページ アート 27
内容範囲 35
コンテンツ更新速度 43
Webサイトへのアクセス数は53です。
表示したいページ(フォーム)：
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center"background="images/bg1.gif" class="1">このサイトのどの部分を改善する必要があると思いますか? </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" チェック済み>
ページアート</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
コンテンツの対象範囲</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2">
コンテンツの更新速度</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<input type="radio" name="select" value="3">
ウェブサイトへのアクセス</td>
</tr>
<tr>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<input type="submit" name="Submit2" value="Submit">
</span><a href="poll.asp">表示</a></td>
</tr>
</table>
とても簡単なので、急いで自分で作ってみませんか :)