G票所

<% @ Language=VBScript CodePage=65001%> <% Session.CodePage = 65001 response.charset="utf-8"%> <% ' 投票區題目和選項 Set rs_vote = Server.CreateObject("ADODB.Recordset") sql_vote = "SELECT top 1 AutoID,Subject FROM Vote_Info where SDate < getdate() AND EDate > getdate()-1 and Display <> 'D' order by newid()" rs_vote.Open sql_vote,conn,3 if rs_vote.recordcount >= 1 then Subject= rs_vote("Subject") else Subject="" end if On Error Resume Next %> G票所

<% else sql_item = "select S_AutoID,Item_Name from Vote_Item where Display is null and AutoID = "& rs_vote("AutoID") set rs_item = conn.Execute(sql_item) i=1 do while not rs_item.eof S_AutoID=rs_item("S_AutoID") Item_Name=rs_item("Item_Name")%> <% rs_item.movenext if rs_item.eof then exit do i=i+1 loop %>

<% if rs_vote.recordcount < 1 then %>

<%=Subject%>

目前未開放投票哦！！

checked <%end if%> /> <%=Item_Name%>

" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('now','','../images/vote/bum_now_b.gif',0)">

<%rs_item.close set rs_item=nothing end if%>

<% rs_vote.close set rs_vote=nothing %>