최초등록

This commit is contained in:
sp1000je
2026-02-23 10:01:00 +09:00
commit 7bc9767bf4
3120 changed files with 198447 additions and 0 deletions
+45
View File
@@ -0,0 +1,45 @@
<!--#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)
%>