개인 홈페이지를 운영하는 네티즌들은 방문자들이 자신의 작품을 어떻게 평가하는지 알고 개선 방향을 제시하고 싶어 한다고 생각합니다.
다음 온라인 설문조사가 하나의 예입니다.)
FSO를 지원하는 공간이 필요합니다. 파일 두 개만 필요합니다. 하나는 처리 페이지 poll.asp이고, 다른 하나는 데이터 파일 poll.txt이고, 물론 다른 하나는 to입니다. 제출 양식 페이지를 표시하면 코드가 아래와 같습니다
. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<머리>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>사이트 설문조사</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</head>
<본문>
<p>
<%
희미한 폴링, 전체
희미한 폴퍼(4)
희미한 폴링 이름(7)
희미한 pollnum(4)
polled=cint(Request.Form("선택"))
fs= Server.CreateObject("scripting.filesystemobject")를 설정합니다.
poll=server.MapPath("poll.txt")
textar=fs.opentextfile(poll,1,0,0) 설정
세션(폴링)이 아닌 경우
나는=0
textar.atendofstream이 아닌 동안
getdata=textar.readline
폴이름(i)=left(rtrim(getdata),7)
pollnum(i)=right(RTrim(getdata),4)
내가 폴링했다면
j=cdbl(폴번호(i))+1
pollnum(i)=right(space(6)&trim(cstr(j)),7)
종료하면
나=나+1
향하게 하다
textar.close
textar1=fs.createtextfile(poll,-1,0) 설정
토틀=0
j=0에서 (i-1)까지
총계=총계+cdbl(pollnum(j))
textar1.writeline pollname(j)&pollnum(j)
다음
textar1.close
%>
<span class="news1"> 이 사이트의 어떤 부분에 개선이 필요하다고 생각하시나요? </span></p>
<%
j=0에서 (i-1)까지
pollper(j)=cdbl(pollnum(j))/전체
너비=500*폴퍼(j)
%>
<테이블 너비="750" 테두리="0" 정렬="왼쪽">
<tr>
<td align="왼쪽" bgcolor="#CCCCCC">
<%Response.Write(trim(pollname(j))&"(")
Response.Write(formatnumber(pollnum(j),0)&")")
응답.쓰기("<br>")
Response.Write("<img src='images/bg1.gif' 폭=")
응답.쓰기(너비&"' 높이=10>")
Response.Write(formatpercent(pollper(j)) &"<p>")
다음
Response.Write("합계:")
Response.Write(형식번호(전체,0))
%>
</td>
</tr>
</table>
<%
세션(폴링)=true
또 다른
Response.Write("이미 투표하셨습니다. 투표해 주셔서 감사합니다!")
종료하면
%>
<p>
</body>
</html>
2.poll.txt:
페이지 아트 27
콘텐츠 범위 35
콘텐츠 업데이트 속도 43
해당 웹 사이트의 방문 횟수는 53회입니다.
표시하려는 페이지(양식) :
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center" background="images/bg1.gif" class="1">이 사이트에서 어떤 부분에 개선이 필요하다고 생각하시나요? </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" 확인됨>
페이지 아트</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
콘텐츠 범위</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2">
콘텐츠 업데이트 속도</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<input type="radio" name="select" value="3">
웹사이트 방문</td>
</tr>
<tr>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<input type="submit" name="Submit2" value="제출">
</span><a href="poll.asp">보기</a></td>
</tr>
</table>
아주 간단하지 않나요? 빨리 직접 만들어보세요 :)