📄 feedback.asp

📁 该资料包含大量网络开发的案例和源代码

💻 ASP

字号:

<%@ Language=VBScript %>
<%
  candicate=Request.Form("candicates")
  voter=Request.Form("voter")
  classNo=Request.Form("classNo")
  stuNo=Request.Form("stuNo")
  ip=request.servervariables("REMOTE_ADDR")
  votetime=cstr(now())

currDir=Server.MapPath("/")
filename=currDir+"\"+candicate
tempfile=currDir+"\"+candicate+"tmp"

set myfileObject=server.createObject("Scripting.FileSystemObject")
set oldfile=myfileObject.OpenTextFile(filename,1,true)
set mytemp=myfileObject.openTextFile(tempfile,2,true)
if oldfile.AtEndOfLine then
total=0
else
total=cint(oldfile.readline)
end if
total=total+1
total=cstr(total)
mytemp.WriteLine(total)

while not oldfile.AtEndOfStream
	mytemp.writeline(oldfile.readline)
wend

mytemp.WriteLine("姓名: "+voter)
mytemp.writeline("班级: "+classNo)
mytemp.writeline("学号:"+stuNo)
mytemp.writeline("登录ip:"+ip)
mytemp.writeline("投票时间:"+votetime)
mytemp.writeline("")

oldfile.close
mytemp.Close

myfileobject.copyfile tempfile,filename

myfileObject.DeleteFile tempfile,true
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta name="Microsoft Border" content="t, default">
</HEAD>
<BODY bgcolor="#f0f000">
<P align=center><FONT color=navy face="" 
size=5>谢谢你，<%Response.Write(voter)%>
<br>
您的投票已经被提交.</FONT></P>
<hr>
<DIV align=center>

<form action="show.asp">
<input type="submit" value="查看当前投票情况">
</form>

<form action="vote.htm">
<input type="submit" value="返回">
</form>

</DIV>
<p>　</p>
</BODY>
</HTML>
<%
resf=Server.MapPath("result.txt")

set resultfile=myfileObject.opentextfile(resf,2,true)
set myfolder=myfileObject.GetFolder(currDir)

num=len(currDir)+1
for each thing in myfolder.Files
set	currfile=myfileObject.opentextfile(thing,1,true)
	thing=mid(cstr(thing),num+1)
	resultfile.writeline(thing+"	"+(currfile.readline))
	currfile.close
next
resultfile.close
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -