📄 investigate.asp
字号:
<%@ language=VBScript%>
<HTML>
<HEAD><TITLE>简单民意调查</TITLE></HEAD>
<BODY bgcolor=LightYellow>
<CENTER>
<%
' 声明对象、变量
Dim strTempFile
Dim strData(4), Num(4)
Dim objFSO, objInFile, objOutFile
' 建立文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 获取记录投票结果文件Result.txt应在的物理路径
strTempFile = Server.MapPath("Result.txt")
if Session("counter")="" then ' 如果还未投过票
If objFSO.FileExists(strTempFile) then
' 若找到Result.txt，以文本方式打开投票结果文件
Set objInFile = objFSO.OpenTextFile(strTempFile)
Else
' 否则，建立Result.txt并以文本方式打开,并写入4行"0"
set objOutFile = objFSO.CreateTextFile(strTempFile)
for i=1 to 4
objOutFile.WriteLine("0")
next
' 关闭Result.txt，再以文本方式打开
objOutFile.Close
Set objInFile = objFSO.OpenTextFile(strTempFile)
End If
' 将Result.txt的内容逐行读入，每行对应一个调查数据项
For i=1 to 4
strData(i) = objInFile.ReadLine
If strData(i) = "" Then Strdata(i) = "0"
Num(i) = Clng(strData(i))
Next
' 关闭输入文件
objInFile.Close
' 根据Investigate.htm中获取的选择增加相应的变量
Select Case Request.Form("Editor")
Case "A":
Num(1) = Num(1) + 1
Case "B":
Num(2) = Num(2) + 1
Case "C":
Num(3) = Num(3) + 1
Case "D":
Num(4) = Num(4) + 1
End Select
' 新建存储投票结果文件，逐行写入投票结果字符串，覆盖原有文件Result.txt
set objOutFile = objFSO.CreateTextFile(strTempFile)
For i=1 to 4
objOutFile.WriteLine(Cstr(Num(i)))
Next
' 关闭文件Result.txt
objOutFile.Close
Session("counter")="1"
end if
Set objInFile = objFSO.OpenTextFile(strTempFile)
For i=1 to 4
strData(i) = objInFile.ReadLine
Num(i) = Clng(strData(i))
Next
' 释放内存变量
Set objOutFile = Nothing
Set objInFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
Response.Write "<BR>谢谢你的参与,调查结果为:"
%>
<TABLE>
<TR><TD>JavaScript:</TD><TD><% = Num(1)%></TD></TR>
<TR><TD>VBScript:</TD><TD><% = Num(2)%></TD></TR>
<TR><TD>PerlScript:</TD><TD><% = Num(3)%></TD></TR>
<TR><TD>其它:</TD><TD><% = Num(4)%></TD></TR>
</TABLE>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -