<% if Request.Cookies("admindj")<>"1" then Response.Write "



权限不足，你没有此功能的管理权限" Response.end end if %> <% delid=trim(Request("delid")) editid=trim(Request("editid")) saveid=trim(Request("saveid")) title=trim(Request("title")) endtime=trim(Request("endtime")) DD=trim(Request("DD")) sj=date() eendtime=date() if delid<>"" then conn.Execute "delete from [tp] where ID="&CInt(delid) conn.Execute "delete from [tptitle] where tpID="&CInt(delid) end if if editid="" and saveid="" and title<>"" and DD<>"" then conn.Execute "insert into [tp] ([title],[dd],[addtime],[endtime],[ddsl]) values('"&title&"','"&dd&"','"&sj&"','"&endtime&"',0)" elseif editid<>"" and saveid="" and title="" and dd="" then set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select * from [tp] where id="&editid&" order by id desc",conn,1,1 if rs.recordcount<>0 then etitle=rs("title") eendtitle=rs("endtime") DD=rs("DD") end if rs.close:set rs=nothing elseif saveid<>"" and title<>"" and DD<>"" then conn.Execute "update [tp] set [title]='"&title&"',[DD]='"&DD&"',endtime='"&endtime&"' where id="&clng(saveid) end if %>
标题：
结束时间：
<% set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select * from [tp] order by id asc",conn,1,1 while not rs.eof %> <% rs.movenext wend rs.close:set rs=nothing %>
投票标题 投票数 操作
<% DD=rs("DD") if DD=1 then Response.Write "[单项选择]" else Response.Write "[多项选择]" end if %> <%=rs("title")%> <%if Request.Cookies("admindj")="1" then%>
<script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>js-tp.asp?id=<%=rs("id")%>"></script> <%end if%> 		<% set rssum = Server.CreateObject("ADODB.RecordSet") rssum.Open "select sum(tps) as f_sum from [tptitle] where tpid="&rs("id")&" ",conn,1,1 Response.Write rssum(0) rssum.close:set rssum=nothing %> ">可选择项　">修改　">删除
<% conn.close:set conn=nothing %>