谁有投票的源代码呀？

VFP 2002-04-01 11:17:02

请给我一份！
andyting@263.net

...全文

29 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

流浪爷们 2002-04-01

打赏
举报

粘了便宜还这样

怪不得信誉：30

以后我不会在回答你的问题了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！11

VFP 2002-04-01

打赏
举报

你贴到这吧。

VFP 2002-04-01

打赏
举报

还没呢

流浪爷们 2002-04-01

打赏
举报

呵呵……
发了
收到就给分吧！
：）

VFP 2002-04-01

打赏
举报

一定给分。

流浪爷们 2002-04-01

打赏
举报

呵呵……
我有！
发过去就给分吗？
确认？

流浪爷们 2002-04-01

打赏
举报

呵呵……
我有！
发过去就给分吗？
确认？

lanying 2002-04-01

打赏
举报

自己写一个，很简单的

alion 2002-04-01

打赏
举报

站点印象投票,采用文本文件的投票系统，功能简单，只有一个ASP文件，如果您的网页空间不足的话，可以考虑它一下，不过文本文件可要自己往上添加啊！
<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
%>

VFP 2002-04-01