sp1000je
46 lines
992 B
Plaintext
46 lines
992 B
Plaintext
<!--#include virtual="/common/lib/dbcon.asp"-->
|
|
<!--#include virtual="/common/lib/func.asp"-->
|
|
<!--#include file="config.asp"-->
|
|
<%
|
|
|
|
por_mid = InputValue(request("por_mid"))
|
|
po_pk = InputValue(request("po_pk"))
|
|
por_ip = Request.ServerVariables("REMOTE_ADDR")
|
|
|
|
response.cookies("poll_ck"&po_pk)=""
|
|
if request.cookies("poll_ck"&po_pk)="" then
|
|
|
|
response.cookies("poll_ck"&po_pk) = "checked"
|
|
|
|
chk = Replace(request("chk")," ","")
|
|
arr_chk = Split(chk,",")
|
|
|
|
For z=0 To UBound(arr_chk)
|
|
por_result = request("q_"&arr_chk(z))
|
|
|
|
R_Fields_i = "por_result, por_mid, por_wdate, po_pk, poq_idx, por_ip"
|
|
por_wdate = getDateFm(now,3)
|
|
poq_idx = arr_chk(z)
|
|
|
|
Call InsertQuery(R_Fields_i, "poll_result")
|
|
|
|
next
|
|
|
|
' 참여자 추가
|
|
sql = "update poll set po_count = po_count + 1 Where po_pk = "&po_pk
|
|
Dbcon.execute sql
|
|
|
|
else
|
|
|
|
Call Back_back("이미 참가하셨습니다.")
|
|
end if
|
|
|
|
'response.end
|
|
|
|
|
|
Dbcon.close : Set Dbcon = Nothing
|
|
|
|
ok_url = "list.asp?"&page_info
|
|
Call loding("0", ok_url)
|
|
%>
|