몇 달 전, JS+VML을 사용하여 한 네티즌 lshdic이 작성한 "Vml을 사용하여 3차원 기둥형 투표 차트를 생성하는 완전한 프로그램"이라는 기사를 본 적이 있습니다.
이 방법은 매우 좋다고 생각합니다. 그림을 사용하지 않고도 통계 차트를 생성할 수 있습니다. 이제 ASP를 사용하여 이 프로그램을 구현해 보겠습니다.
준비: ACCESS를 사용하여 vote.mdb라는 MDB 데이터베이스를 생성하고 데이터베이스에 다음 두 테이블을 생성합니다.
그런 다음 ASP 개발 규칙에 따라 데이터베이스에 연결하는 conn.asp 파일을 만듭니다.
<%
'conn.asp
conn=Server.CreateObject("ADODB.Connection") 설정
conn.Open "driver={Microsoft Access Driver(*.mdb)};dbq="& Server.MapPath("vote.mdb")
%>
우리가 만들고자 하는 것은 다중 프로젝트 투표 시스템이기 때문에 투표 프로젝트 목록을 표시합니다 vote_list.asp
<!--#include 파일="conn.asp"-->
<html>
<머리>
<title>투표 항목 목록</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/main.css" rel="stylesheet" type="text/css">
</head>
<%
set rs=conn.execute("투표 ID 설명에 따른 투표 제목 순서에서 * 선택")
%>
<table border=1cellspacing="0" style="border-collapse:collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<tr>
<td bgcolor="#EFEFEF">모든 투표 목록</td>
</tr>
<%rs.eof가 아닌 동안 수행%>
<tr>
<td>번호:<font color="#FF0000"><%=rs("voteid")%> </font><a href="vote.asp?voteid=<%=rs("voteid"" )%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("time")%>)</td>
</tr>
<%rs.movenext
고리
RS.닫기
rs=아무것도 설정하지 않음%>
</table>
</body>
</html>
투표 표시 페이지 vote_show.asp
<%if request("voteid")="" 다음
response.write "매개변수가 지정되지 않았습니다."
응답.끝()
다음과 같은 경우 종료%>
<!--#include 파일="conn.asp"-->
<html>
<머리>
<title>결과 보기</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<스타일>
td{글꼴 크기:12px}
본문{글꼴 크기:12px}
v:*{behavior:url(#default#VML);} //v는 여기에서 VML 공용 변수로 선언됩니다.
</STYLE>
<link href="../images/main.css" rel="stylesheet" type="text/css">
</head>
<%
희미한 투표
voteid=요청("투표 ID")
set rs=conn.execute("votetitle.voteid="&voteid&" 및 vote.voteid=votetitle.voteid 순서가 ID인 vote,votetitle에서 개수 선택")
iii=0
rs.eof가 아닌 동안 수행
ii=ii+1
ii=1이면
ceocio=trim(rs("개수"))
ceocio1=trim("array1["&iii&"]")
또 다른
ceocio=trim(ceocio&","&rs("개수"))
ceocio1=트림(ceocio1&"+array1["&iii&"]")
종료하면
iii=iii+1
rs.movenext
고리
RS.닫기
rs=아무것도 설정하지 않음
'응답.쓰기 ii
'response.write ceocio1
%>
<스크립트>
array1=new Array(<%=ceocio%>) //투표번호가 다름
allstr=<%=ceocio1%>
//경고(allstr)
//allstr=array1[0]+array1[1]+array1[2]+array1[3]+array1[4]+array1[5] //총 개수를 구합니다.
for(i=0;i<=<%=(ii-1)%>;i++){
mathstr=Math.round(100/(allstr/array1[i])) //백분율 찾기, 100/(sum/single)
document.write ("<v:ret fillcolor='lime' style='width:20;color:navy;height:"+500*<%=(ii-1)%>/(1000/mathstr)+"' ><br> %"+mathstr+"<br>"+array1[i]+"人<v:Extrusion backlength='15pt' on='true'/></v:ract>")
}
</script>
<%
voteid=요청("투표 ID")
set rs=conn.execute("select * from vote,votetitle where votetitle.voteid="&voteid&" and vote.voteid=votetitle.voteid order by id")
%>
<table border=1cellspacing="0" style="border-collapse:collapse" cellpadding="2" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<tr>
<td bgcolor="#EFEFEF">다음에 대한 결과 찾기:<font color="#FF0000"><%=rs("votetitle")%></font>:<br>
총<b><font color="#FF0000"><%=rs("total")%></font></b>가 설문조사에 참여했습니다<br>
(<%=rs("time")%>to<%=date%>)</td>
</tr>
<%rs.eof가 아닌 동안 수행
디미
나는=나는+1%>
<tr>
<td>옵션<%=i%>:<%=rs("title")%> <font color="#FF0000"><%=rs("count")%>사람< /글꼴></td>
</tr>
<%rs.movenext
고리
RS.닫기
rs=아무것도 설정하지 않음%>
<tr>
<td> </td>
</tr>
</table>
<br>
<a href="vote_list.asp">지난 투표 보기</a> <br>
<a href="vote.asp?voteid=<%=request("voteid")%>">이 프로젝트에 투표하세요</a>
</body>
</html>
vote.asp
<!--#include 파일="conn.asp"-->
<%if request("voteid")="" 다음
set rs=conn.execute("투표 ID 설명에 따른 투표 제목 순서에서 상위 1개의 투표 ID 선택")
voteid=rs("투표ID")
RS.닫기
rs=아무것도 설정하지 않음
또 다른
voteid=요청("투표 ID")
다음과 같은 경우 종료%>
<html>
<머리>
<title>제목 없는 문서</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<본문>
<%
request("action")="투표"인 경우
ID 1의 투표와 ID 11의 투표를 혼동하지 않도록 ',"&request("voteid")","를 추가하세요.
if instr(request.cookies("vote"),","&request("voteid")&",")=0이면
또 다른
response.write "이미 투표하셨습니다"
응답.끝
종료하면
sql="update [vote] set count=count+1 여기서 id="&request("votevalue")
conn.execute(sql)
sql="update [votetitle] set total=total+1 where voteid="&request("voteid")
conn.execute(sql)
'쿠키 유효기간 쓰기
Response.Cookies("vote").Expires=날짜+1
'투표된 모든 옵션을 ','로 구분하여 쿠키에 기록합니다.
Response.Cookies("vote")=","&Request.Cookies("vote")&","&Request("voteid")&","
voteid=요청("투표 ID")
'기본으로 가세요.
response.redirect "vote_show.asp?voteid="&voteid
종료하면
%>
<%
'어두운 투표
'voteid=request("투표 ID")
set rs=conn.execute("select * from vote,votetitle where votetitle.voteid="&voteid&" and vote.voteid=votetitle.voteid order by id")
%>
<table border=1cellspacing="0" style="border-collapse:collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td colspan="2" bgcolor="#EFEFEF">조사: <%=rs("votetitle")%>(<%=rs("time")%>)</td>
</tr><form name="form1" method="post" action="vote.asp?action=vote&voteid=<%=voteid%>">
<%rs.eof가 아닌 동안 수행
디미
나는=나는+1%>
<tr>
<td colspan="2">
<input type="radio" name="votevalue" value="<%=rs("id")%>" <%if i=1 then%>선택됨<%end if%>>
<%=rs("제목")%>
</td>
</tr>
<%rs.movenext
고리
RS.닫기
rs=아무것도 설정하지 않음%>
<tr>
<td colspan="2">
<%if instr(request.cookies("vote"),","&voteid&",")=0 then%>
<input type="submit" name="Submit" value="Vote"></form>
<%다른%>
<font color="#FF0000">이미 투표하셨습니다</font>
<%경우 종료%></td>
</tr>
</table>
<br>
<a href="vote_list.asp">지난 투표 보기</a> <br>
<a href="vote_show.asp?voteid=<%=voteid%>">이 투표 결과 보기</a>
</body>
</html>
백엔드 관리 페이지 admin_vote_list.asp
<!--#include 파일="conn.asp"-->
<%'여기에 관리자 권한을 추가해 주시면 모두의 편의를 위해 인증 없이 바로 입장을 허용하겠습니다%>
<html>
<머리>
<title>투표 항목 목록</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<본문>
<%
'모듈 삭제
희미한 행동
액션=요청("액션")
action="del"인 경우
DimStrSQL1,StrSQL2
StrSQL1="voteid="&request("voteid")인 투표에서 삭제
conn.StrSQL1 실행
StrSQL2="voteid="&request("voteid")인 votetitle에서 삭제
conn.StrSQL2 실행
응답.리디렉션 "?"
종료하면
'모듈 수정
'///////////////////////
'양식 수정
action="추가"인 경우
%>
<table border=1cellspacing="0" style="border-collapse:collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td bgcolor="#EFEFEF"><센터>
새 설문조사 추가</center></td>
</tr>
<tr>
<td>이 설문조사에 필요한 옵션 수를 입력하세요. </td>
</tr>
<tr>
<td><form name="form1" method="post" action="?action=add1">
<이름 선택="번호">
<%for i1=2 ~ 10%>
<옵션 값="<%=i1%>"><%=i1%></option>
<%다음%>
</select>
<input type="submit" name="제출" value="제출">
</form></td>
</tr>
</table>
<%
종료하면
action="add1"이면
숫자=요청("숫자")
%>
<table border=1cellspacing="0" style="border-collapse:collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td bgcolor="#EFEFEF"><센터>
새 설문조사 추가</center></td>
</tr>
<tr>
<td>이 설문조사에 필요한 세부정보를 입력하세요. </td>
</tr>
<tr>
<td><form name="form2" method="post" action="?action=add2">
투표 이름
<input type="text" name="투표제목">
<br>
<%for i2=1 ~ num%>
옵션<%=i2%><input type="text" name="<%=i2%>"><br>
<%다음%>
<input type="hidden" name="num" value="<%=request("num")%>">
<input type="submit" name="Submit2" value="제출">
<input type="reset" name="Submit3" value="Reset">
</form></td>
</tr>
</table>
<%end if
action="add2"인 경우
rs=Server.CreateObject("ADODB.Recordset")를 설정합니다.
sql="SELECT * FROM 투표제목"
rs.SQL,conn,1,3 열기
rs.새로 추가
rs("투표제목")=request("투표제목")
rs("시간")=날짜()
RS.업데이트
RS.닫기
set rs=conn.execute("투표 ID 설명에 따른 투표 제목 순서에서 상위 1개의 투표 ID 선택")
voteid=rs("투표ID")
RS.닫기
rs=아무것도 설정하지 않음
'///////////////
'/////////////주기
숫자=요청("숫자")
i3=1에서 num까지
rs=Server.CreateObject("ADODB.Recordset")를 설정합니다.
sql="SELECT * FROM 투표"
rs.SQL,conn,1,3 열기
rs.새로 추가
rs("제목")=요청(i3)
rs("투표 ID")=투표 ID
RS.업데이트
RS.닫기
다음
'////////////루프 끝
rs=아무것도 설정하지 않음
response.Write "<a href=admin_vote_list.asp>성공적으로 추가되었습니다. 반환해 주세요</a>"
종료하면
'수정 양식 끝
'//////////////////////
'실행코드 수정
'실행코드 수정 끝
%>
<%if action="" 다음
set rs=conn.execute("투표 ID 설명에 따른 투표 제목 순서에서 * 선택")
%>
<table border=1cellspacing="0" style="border-collapse:collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td colspan="2" bgcolor="#EFEFEF">모든 투표 목록</td>
</tr>
<%rs.eof가 아닌 동안 수행%>
<tr>
<td width="44%">번호: <font color="#FF0000"><%=rs("voteid")%> </font><a href="vote.asp?voteid=<% =rs("voteid")%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("time")%>)</td>
<td width="50%">【<a href="?action=del&voteid=<%=rs("voteid")%>">삭제</a>】</td>
</tr>
<%rs.movenext
고리
RS.닫기
rs=아무것도 설정하지 않음%>
<tr>
<td colspan="2">[<a href="?action=add">새 설문조사 추가</a>]</td>
</tr>
</table>
</body>
</html>
<%end if%>
최종 표시 효과는 다음과 같습니다.
