PK
dJ; dist/admin/admin_group_edit.asp
<%
'+++++++++++++++++++++++++++
'嵩嵩系统 版权所有
'QQ:36004457
'微信号:zhousongxj
'+++++++++++++++++++++++++++
if not iNum(rq("id")) Then
rr "admin_group.asp"
end if
%>
<%
here = "admin_group"
%>
添加分组 - <%=s_name%> - <%=s_names%>
添加分组
<%
set rs = sql31("select * from [group] where id="&rq("id"))
if not rs.eof then
%>
<%
end if
rs.close
set rs=nothing
%>
PK
dJ+sM% % ! dist/admin/admin_group_submit.asp
<%
'+++++++++++++++++++++++++++
'嵩嵩系统 版权所有
'QQ:36004457
'微信号:zhousongxj
'+++++++++++++++++++++++++++
%>
<%
If not inull(rf("method")) Then
if rf("method") = "del" then
'删除'
If Not inull(rf("id")) Then
conn.Execute("delete from [group] where id in ("&rf("id")&")")
rwe "{""code"":""0"",""msg"":""删除成功""}"
end if
end if
if rf("method") = "add" then
'添加'
Set rs = sql33("select * from [group]")
rs.addnew
rs("g_name") = rf("g_name")
rs("g_min") = rf("g_min")
rs("g_max") = rf("g_max")
rs("g_order") = rf("g_order")
rs("g_time") = now()
rs.Update
rs.Close
Set rs = Nothing
rwe "{""code"":""0"",""msg"":""添加成功""}"
end if
if rf("method") = "edit" and iNum(rf("id")) then
'修改'
Set rs = sql33("select * from [group] where id="&rf("id"))
rs("g_name") = rf("g_name")
rs("g_min") = rf("g_min")
rs("g_max") = rf("g_max")
rs("g_order") = rf("g_order")
rs("g_time") = now()
rs.Update
rs.Close
Set rs = Nothing
rwe "{""code"":""0"",""msg"":""修改成功""}"
end if
end if
rwe "{""code"":""1"",""msg"":""操作失败""}"
%>
PK
dJ2 dist/admin/admin_index_data.asp
<%
'+++++++++++++++++++++++++++
'嵩嵩系统 版权所有
'QQ:36004457
'微信号:zhousongxj
'+++++++++++++++++++++++++++
%>
PK
dJT&zh dist/admin/admin_object.asp
<%
'+++++++++++++++++++++++++++
'嵩嵩系统 版权所有
'QQ:36004457
'微信号:zhousongxj
'+++++++++++++++++++++++++++
%>
<%
here = "admin_object"
%>
投票对象管理 - <%=s_name%> - <%=s_names%>
PK
dJ8 dist/admin/admin_object_edit.asp
<%
'+++++++++++++++++++++++++++
'嵩嵩系统 版权所有
'QQ:36004457
'微信号:zhousongxj
'+++++++++++++++++++++++++++
%>
<%
if not iNum(rq("oid")) Then
rr "admin_object.asp"
end if
here = "admin_object"
%>
修改投票对象 - <%=s_name%> - <%=s_names%>
修改投票对象
<%
set rs = sql31("select * from [object] where id="&rq("oid"))
if not rs.eof then
%>
<%
end if
rs.close
set rs=nothing
%>
PK
dJʋiw w " dist/admin/admin_object_submit.asp
<%
'+++++++++++++++++++++++++++
'嵩嵩系统 版权所有
'QQ:36004457
'微信号:zhousongxj
'+++++++++++++++++++++++++++
%>
<%
If not inull(rf("method")) Then
if rf("method") = "del" then
'删除'
If Not inull(rf("id")) Then
conn.Execute("delete from [object] where id in ("&rf("id")&")")
rwe "{""code"":""0"",""msg"":""删除成功""}"
end if
end if
if rf("method") = "hide" then
'隐藏'
If Not inull(rf("id")) Then
conn.Execute("update [object] set o_status=2 where id in ("&rf("id")&")")
rwe "{""code"":""0"",""msg"":""隐藏成功""}"
end if
end if
if rf("method") = "show" then
'隐藏'
If Not inull(rf("id")) Then
conn.Execute("update [object] set o_status=1 where id in ("&rf("id")&")")
rwe "{""code"":""0"",""msg"":""显示成功""}"
end if
end if
if rf("method") = "add" then
'添加'
Set rs = sql33("select * from [object]")
rs.addnew
rs("o_id") = rf("o_id")
rs("o_name") = rf("o_name")
rs("o_info") = rf("o_info")
rs("o_text") = rf("o_text")
rs("o_img") = rf("o_img")
rs("o_order") = rf("o_order")
rs("o_status") = 1
rs("o_time") = now()
rs.Update
rs.Close
Set rs = Nothing
rwe "{""code"":""0"",""msg"":""添加成功""}"
end if
if rf("method") = "edit" and iNum(rf("id")) then
'修改'
Set rs = sql33("select * from [object] where id="&rf("id"))
rs("o_id") = rf("o_id")
rs("o_name") = rf("o_name")
rs("o_info") = rf("o_info")
rs("o_text") = rf("o_text")
rs("o_img") = rf("o_img")
rs("o_order") = rf("o_order")
rs.Update
rs.Close
Set rs = Nothing
rwe "{""code"":""0"",""msg"":""修改成功""}"
end if
end if
rwe "{""code"":""1"",""msg"":""操作失败""}"
%>
PK
dJtN&