poll.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 42 行

ASP
42 行
字号 
<html>

<title>

简单民意调查

</title>

<body>

<center>

<%

dim numberstring

dim numA,numB,numC,numD

whichfile=server.mappath("poll.txt")

set fs=createobject("Scripting.FileSystemObject")

set thisfile=fs.opentextfile(whichfile)

numberstring=thisfile.readline

thisfile.close

numA=clng(mid(numberstring,instr(numberstring,"A")+1,instr(numberstring,"B")-instr(numberstring,"A")-1))

numB=clng(mid(numberstring,instr(numberstring,"B")+1,instr(numberstring,"C")-instr(numberstring,"B")-1))

numC=clng(mid(numberstring,instr(numberstring,"C")+1,instr(numberstring,"D")-instr(numberstring,"C")-1))

numD=clng(mid(numberstring,instr(numberstring,"D")+1,len(numberstring)-instr(numberstring,"D")))



select case request.form("Editor")

    case "A": numA=numA+1

    case "B": numB=numB+1

    case "C": numC=numC+1

    case "D": numD=numD+1

end select

numberstring="A" & cstr(numA) & "B" & cstr(numB) & "C" & cstr(numC) & "D" & cstr(numD)

set out=fs.createtextfile(whichfile)

out.writeLine(numberstring)

out.close

set fs=nothing

response.write "<br>谢谢你的参与,"

response.write "调查结果为:"

%>

<table border=0>

<tr><td>JavaScript:</td><td><%=numA%></td></tr>

<tr><td>VBScript:</td><td><%=numB%></td></tr>

<tr><td>PerlScript:</td><td><%=numC%></td></tr>

<tr><td>其它:</td><td><%=numD%></td></tr>

</table>

</center>

</body>

</html>

poll.asp - 源码说明

本页面展示了「集合了学习asp的100个实例」中的 poll.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP实例相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?