投票（ASP版，写入文件）

来源：互联网发布：亡命之徒纵贯线知乎编辑：程序博客网时间：2024/04/29 01:45

赛迪的博客里也有

<%
'读文件
set fos=server.CreateObject("scripting.FileSystemobject")
set fileread=fos.OpenTextFile(server.MapPath ("test.txt"),1)
w=cint(fileread.readline())
u=cint(fileread.readline())
l=cint(fileread.readline())
fileread.close()
' Response.Write w
'写文件
os1=request("os1")
if request("sub")="投票" then
  set filewrite=fos.OpenTextFile(server.MapPath ("test.txt"),2)

   if os1="windows" then w=w+1
   if os1="Unix" then u=u+1
   if os1="Linux" then l=l+1

  filewrite.writeline(w)
  filewrite.writeline(u)
  filewrite.writeline(l)
  filewrite.close

'计算:统计数量
  pw=cint(w)+10
  pu=cint(u)+10
  pl=cint(l)+10

'统计比例
'total=u+w+l
'pw=cint(w/total*100)
'pu=cint(u/total*100)
'pl=cint(l/total*100)
end if

%>
<h2 align="center" style="FONT-SIZE: x-large; FONT-STYLE: italic; FONT-FAMILY: 隶书">操作系统调查</h2>
<hr>
<table border=0 align="center" >
<tr>
<td>Windows</td>
<td>
  <IMG height=15 src="w.bmp" width="<%=pw%>" >
</td>
</tr>
<tr><td>Unix</td>
<td>
  <IMG height=15 src="u.bmp" width="<%=pu%>" >
</td>
</tr>
<tr>
<td>Linux</td>
<td>
  <IMG height=15 src="l.bmp" width="<%=pl%>" >
</td>
</tr>
</table>
<br><br>

<form action="vote.asp" method="post" >
<input type="radio" name="os1" value="windows" >Windows<br>
<input type="radio" name="os1" value="Unix">Unix<br>
<input type="radio" name="os1" value="Linux">Linux<br>
<input type="submit" name="sub" value="投票">
</form>