答案:POLL.HTM
<html>
<title>
不用数据库的民意调查
</title>
<body>
<center>
你最常用的ASP脚本编辑器为:<br><hr>
<form action=poll.asp method=post>
<table border=0>
<tr><td>
<input type=radio name=Editor value=A checked> JavaScipt
</td></tr>
<tr><td>
<input type=radio name=Editor value=B> VBScript
</td></tr>
<tr><td>
<input type=radio name=Editor value=C> PerlScript
</td></tr>
<tr><td>
<input type=radio name=Editor value=D> 其他
</td></tr>
<tr><td>
<input type=submit value=确定>
<input type=reset value=复位>
</td></tr>
</table>
</form>
</center>
</body>
</html>
POLL.ASP
<html>
<title>
简单民意调查
</title>
<body>
<center>
<%
dim numberstring
dim numA,numB,numC,numD
whichfile=server.mappath("poll.txt")
set fs=createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
numberstring=thisfile.readline
thisfile.close
numA=clng(mid(numberstring,instr(numberstring,"A")+1,instr(numberstring,"B")-instr(numberstring,"A")-1))
numB=clng(mid(numberstring,instr(numberstring,"B")+1,instr(numberstring,"C")-instr(numberstring,"B")-1))
numC=clng(mid(numberstring,instr(numberstring,"C")+1,instr(numberstring,"D")-instr(numberstring,"C")-1))
numD=clng(mid(numberstring,instr(numberstring,"D")+1,len(numberstring)-instr(numberstring,"D")))select case request.form("Editor")
case "A": numA=numA+1
case "B": numB=numB+1
case "C": numC=numC+1
case "D": numD=numD+1
end select
numberstring="A" & cstr(numA) & "B" & cstr(numB) & "C" & cstr(numC) & "D" & cstr(numD)
set out=fs.createtextfile(whichfile)
out.writeLine(numberstring)
out.close
set fs=nothing
response.write "<br>谢谢你的参与,"
response.write "调查结果为:"
%>
<table border=0>
<tr><td>JavaScript:</td><td><%=numA%></td></tr>
<tr><td>VBScript:</td><td><%=numB%></td></tr>
<tr><td>PerlScript:</td><td><%=numC%></td></tr>
<tr><td>其它:</td><td><%=numD%></td></tr>
</table>
</center>
</body>
</html>POLL.TXT
A108B243C44D24
上一个:处理xml数据的发送、接收类
下一个:ASP石头、剪子、布小游戏实例