ASP 구현 DIG 프로그램의 투표를 분석하십시오

권장 : 구문 분석되지 않은 문자를 필터링하는 방법
% 함수 Badchar (str) badstr = uncivilized 문자 목록, | (게시시 캐릭터를 포함 할 수 없기 때문에 게시 할 수 없습니다.) Badword = split (badstr, |)의 경우 i = 0에서 ubound (badword) instr (str, badword (i)) 0이면 badchar = else badchar = false end if lals

ASP는 DIG 프로그램에서 투표를합니다 (일부는 상단 및 단계 켜짐). 코드가 길고 핵심 부분 만 게시됩니다. 투표의 코드

페이지는 투표를 보여줍니다.

<div class = vote1> <script src = '/voveresult.asp? id = 1 & action = view'> </script> </div>

효과는 그림과 같이 다음과 같습니다. 그러면 투표를 클릭하면 투표 횟수가 1 씩 증가합니다.

viseresult.asp 코드

<%

응답 .ContentType = Text/Html; charset = gb2312

'저자 : Wuqing 출처 : 재판 할 때 출처를 유지하십시오

'링크 데이터베이스 코드가 생략되었습니다

set rs = server.createobject (adodb.recordset)

SQL = (News_ID 선택, DWWW_NEWS에서 투표하여 News_id = & request (id) &)

Rs. Open SQL, Conn, 1,1

rs.eof가 아니라 rs.bof가 아니라면 'ID가 올바른지 확인하십시오.

요청 (action) = view 'view'the it in the it o eid 인 경우 뉴스 코드

If inst (request.cookies (voteid), request (id) & |) <> 0 인 경우 'ID 소식이 투표했는지 판단하십시오.

response.write document.write (<div class = 'result'id = 'result_ & rs (news_id) &'> & rs (vote) & </div>);

response.write document.write (<span class = 'result_link'id = 'result_link_ & rs (news_id) &'> 투표 </span>);

또 다른

response.write document.write (<div class = 'result'id = 'result_ & rs (news_id) &'> <a href = 'javaScript : dovote (& request (id) &)'> & rs (vote) & </a> </div>);

response.write document.write (<span class = 'result_link'id = 'result_link_ & rs (news_id) &'> <a href = 'javaScript : dovote (& request (id)'> vote </a> </span>);

끝 If

그렇지 않으면 '프로세스 코드에 투표하려면 클릭하십시오

If inst (request.cookies (voteid), request (id) & |) <> 0입니다

응답 .cookies (voteid) = request (id) & |

응답 .cookies (voteid) .expires = date ()+365

또 다른

response.cookies (voteid) = request (id) & | & request.cookies (voteid)

응답 .cookies (voteid) .expires = date ()+365

끝 If

공유 : ASP는 Pure IP 라이브러리 예제를 호출합니다
% '======================================================= IP 정보 disp_ipaddressdata (ip, 0)' ======================================================== Function Look_IP (IP) Dim WRY, IPTYPE, QQWRYVERSION, IPCOUNTER 'SET CLASS 객체 세트 WRY = NEW TQQWRY'시작 검색 시작