Question

有谁会做网站编程不？怎么做个投票器？

Answer 1

<form action="c.asp" method="post">
<font color=#88ddff size=2>你对本站的印象如何:</font>
<p><font color=#ff0000 size=2>很好:<input type=radio name="ying" value="good">
一般:<input type=radio name="ying" value="yiban">
<p>差:<input type=radio name="ying" value="bad">
很差:<input type=radio name="ying" value="vbad"></font>
<p><center><input type=submit value="查看结果">
<P><input type=reset value="重新选择">
</center></form>
<%
ming=request.form("ying")
%>
<%
if ming="" then
%>
<%
elseif ming="good" then
countfile=Server.mappath("good.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren1=textinstance.readall
ren1=ren1+1
set textinstance=fileinstance.createtextfile(countfile,true,false)
textinstance.writeline(ren1)
%>
很好:<%=ren1%>;
<%
countfile1=Server.mappath("yiban.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren2=textinstance.readall
%>
一般:<%=ren2%>;
<%
countfile1=Server.mappath("bad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren3=textinstance.readall
%>
<P> 差:<%=ren3%>;
<%
countfile=Server.mappath("vbad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren4=textinstance.readall
%>
很差:<%=ren4%>;

<%
elseif ming="yiban" then
countfile=Server.mappath("good.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren1=textinstance.readall

%>
很好:<%=ren1%>;
<%
countfile1=Server.mappath("yiban.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren2=textinstance.readall
ren2=ren2+1
set textinstance=fileinstance.createtextfile(countfile1,true,false)
textinstance.writeline(ren2)
%>
一般:<%=ren2%>;
<%
countfile1=Server.mappath("bad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren3=textinstance.readall
%>
<P>差:<%=ren3%>;
<%
countfile=Server.mappath("vbad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren4=textinstance.readall
%>
很差:<%=ren4%>;

<%
elseif ming="bad" then
countfile=Server.mappath("good.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren1=textinstance.readall

%>
很好:<%=ren1%>;
<%
countfile1=Server.mappath("yiban.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren2=textinstance.readall

%>
一般:<%=ren2%>;
<%
countfile1=Server.mappath("bad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren3=textinstance.readall
ren3=ren3+1
set textinstance=fileinstance.createtextfile(countfile1,true,false)
textinstance.writeline(ren3)
%>
<P>差:<%=ren3%>;
<%
countfile=Server.mappath("vbad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren4=textinstance.readall
%>
很差:<%=ren4%>;

<%
elseif ming="vbad" then
countfile=Server.mappath("good.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren1=textinstance.readall

%>
很好:<%=ren1%>;
<%
countfile1=Server.mappath("yiban.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren2=textinstance.readall

%>
一般:<%=ren2%>;
<%
countfile1=Server.mappath("bad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile1,1,false,false)
ren3=textinstance.readall

%>
<P> 差:<%=ren3%>;
<%
countfile=Server.mappath("vbad.txt")
set fileinstance=Server.CreateObject("SCRIPTING.filesystemobject")
set textinstance=fileinstance.opentextfile(countfile,1,false,false)
ren4=textinstance.readall
ren4=ren4+1
set textinstance=fileinstance.createtextfile(countfile1,true,false)
textinstance.writeline(ren4)
%>
很差:<%=ren4%>;
<%
end if
%>

Answer 2

网上有很多，去网上找找吧。