admin_edit.asp

功能很强大 功能很强大 功能很强大

</select>
月
<select name="MayVote_EndDateTime3" id="MayVote_EndDateTime3">
  <option value="01"<%If Int(Day(rs("MayVote_EndDateTime"))) = 1 Then Response.Write"selected"%>>01</option>
  <option value="02"<%If Int(Day(rs("MayVote_EndDateTime"))) = 2 Then Response.Write"selected"%>>02</option>
  <option value="03"<%If Int(Day(rs("MayVote_EndDateTime"))) = 3 Then Response.Write"selected"%>>03</option>
  <option value="04"<%If Int(Day(rs("MayVote_EndDateTime"))) = 4 Then Response.Write"selected"%>>04</option>
  <option value="05"<%If Int(Day(rs("MayVote_EndDateTime"))) = 5 Then Response.Write"selected"%>>05</option>
  <option value="06"<%If Int(Day(rs("MayVote_EndDateTime"))) = 6 Then Response.Write"selected"%>>06</option>
  <option value="07"<%If Int(Day(rs("MayVote_EndDateTime"))) = 7 Then Response.Write"selected"%>>07</option>
  <option value="08"<%If Int(Day(rs("MayVote_EndDateTime"))) = 8 Then Response.Write"selected"%>>08</option>
  <option value="09"<%If Int(Day(rs("MayVote_EndDateTime"))) = 9 Then Response.Write"selected"%>>09</option>
  <option value="10"<%If Int(Day(rs("MayVote_EndDateTime"))) = 10 Then Response.Write"selected"%>>10</option>
  <option value="11"<%If Int(Day(rs("MayVote_EndDateTime"))) = 11 Then Response.Write"selected"%>>11</option>
  <option value="12"<%If Int(Day(rs("MayVote_EndDateTime"))) = 12 Then Response.Write"selected"%>>12</option>
  <option value="13"<%If Int(Day(rs("MayVote_EndDateTime"))) = 13 Then Response.Write"selected"%>>13</option>
  <option value="14"<%If Int(Day(rs("MayVote_EndDateTime"))) = 14 Then Response.Write"selected"%>>14</option>
  <option value="15"<%If Int(Day(rs("MayVote_EndDateTime"))) = 15 Then Response.Write"selected"%>>15</option>
  <option value="16"<%If Int(Day(rs("MayVote_EndDateTime"))) = 16 Then Response.Write"selected"%>>16</option>
  <option value="17"<%If Int(Day(rs("MayVote_EndDateTime"))) = 17 Then Response.Write"selected"%>>17</option>
  <option value="18"<%If Int(Day(rs("MayVote_EndDateTime"))) = 18 Then Response.Write"selected"%>>18</option>
  <option value="19"<%If Int(Day(rs("MayVote_EndDateTime"))) = 19 Then Response.Write"selected"%>>19</option>
  <option value="20"<%If Int(Day(rs("MayVote_EndDateTime"))) = 20 Then Response.Write"selected"%>>20</option>
  <option value="21"<%If Int(Day(rs("MayVote_EndDateTime"))) = 21 Then Response.Write"selected"%>>21</option>
  <option value="22"<%If Int(Day(rs("MayVote_EndDateTime"))) = 22 Then Response.Write"selected"%>>22</option>
  <option value="23"<%If Int(Day(rs("MayVote_EndDateTime"))) = 23 Then Response.Write"selected"%>>23</option>
  <option value="24"<%If Int(Day(rs("MayVote_EndDateTime"))) = 24 Then Response.Write"selected"%>>24</option>
  <option value="25"<%If Int(Day(rs("MayVote_EndDateTime"))) = 25 Then Response.Write"selected"%>>25</option>
  <option value="26"<%If Int(Day(rs("MayVote_EndDateTime"))) = 26 Then Response.Write"selected"%>>26</option>
  <option value="27"<%If Int(Day(rs("MayVote_EndDateTime"))) = 27 Then Response.Write"selected"%>>27</option>
  <option value="28"<%If Int(Day(rs("MayVote_EndDateTime"))) = 28 Then Response.Write"selected"%>>28</option>
  <option value="29"<%If Int(Day(rs("MayVote_EndDateTime"))) = 29 Then Response.Write"selected"%>>29</option>
  <option value="30"<%If Int(Day(rs("MayVote_EndDateTime"))) = 30 Then Response.Write"selected"%>>30</option>
  <option value="31"<%If Int(Day(rs("MayVote_EndDateTime"))) = 31 Then Response.Write"selected"%>>31</option>
</select>
日</td>
                </tr>
                <tr>
                  <td width="20%" align="right"><b>单/多选：</b></td>
                  <td width="30%"><select name="MayVote_Check" size="1" id="MayVote_Check">
                    <option value="0" <%If rs("MayVote_Check") = May_False Then Response.Write"selected"%>>单选</option>
                    <option value="1" <%If rs("MayVote_Check") = May_True Then Response.Write"selected"%>>多选</option>
                  </select></td>
                  <td width="20%" align="right"><b>投票间隔：</b></td>
                  <td width="30%"><input name="MayVote_Time" type="text" id="MayVote_Time" value="<% = rs("MayVote_Time")%>" size="3" maxlength="4">
小时</td>
                </tr>
                <tr>
                  <td colspan="4" align="center"><input type="submit" name="Submit" value="更新"></td>
                </tr>
              </form>
            </table></td>
          </tr>
      </table></td>
  </tr>
</table>
<%
End If
rs.Close
Set rs = Nothing
End Sub
'编辑投票选项标单
Sub EditOption()
ID = Request.QueryString("ID")
If ID = "" Or isInteger(ID) = False Then Response.Redirect "MayVoteAdmin_Info.asp?InfoContent=<br><li>非法的ID参数。</li>&Action=OtherErr"
Set rs = Server.Createobject("adodb.Recordset")
SQL="Select VID,MayVote_Option,MayVote_Nums,MayVote_Order From MayVote_Options Where ID="&ID
rs.Open SQL,Conn,1,1
If rs.Eof And rs.Bof Then
	Response.Redirect "MayVoteAdmin_Info.asp?InfoContent=<br><li>你所选择的投票项目不存在，或已经被删除。</li>&Action=OtherErr"
Else
%><br>
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666">
  <tr>
    <td><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="25" align="center" background="Images/title.gif"><b><font color="#FFFFFF">编
              辑 投 票 选 项</font></b></td>
      </tr>
    </table>
        <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFF3E6">
          <tr>
            <td><table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF">
              <tr>
                <td colspan="4"><b>　编辑投票选项</b>(标题在20字节以内)</td>
              </tr>
              <form name="EditOption" method="post" action="Admin_Edit_Posting.asp?Action=EditOption">
                <tr>
                  <td width="20%" align="right"><b>ID：</b></td>
                  <td colspan="3"><input name="ID" type="text" id="ID" value="<% = ID%>" size="4" maxlength="4" readonly></td>
                </tr>
                <tr>
                  <td align="right"><b>名称：</b></td>
                  <td colspan="3"><input name="MayVote_Option" type="text" id="MayVote_Option" value="<% = rs("MayVote_Option")%>" size="28" maxlength="20"></td>
                </tr>
                <tr>
                  <td align="right"><b>默认票数：</b></td>
                  <td width="30%"><input name="MayVote_Nums" type="text" id="MayVote_Nums" value="<% = rs("MayVote_Nums")%>" size="5" maxlength="5"></td>
                  <td width="20%" align="right"><b>显示顺序：</b></td>
                  <td><input name="MayVote_Order" type="text" id="MayVote_Order" value="<% = rs("MayVote_Order")%>" size="3" maxlength="4"></td>
                </tr>
                <tr>
                  <td align="right"><b>所属项目：</b></td>
                  <td colspan="3"><select name="VID" size="1" id="VID">
<%
Dim Selected
Set rs1 = Server.Createobject("adodb.Recordset")
SQL="Select ID,MayVote_Topic From MayVote_Votes Order By ID Desc"
rs1.Open SQL,Conn,1,1
While Not rs1.Eof
If rs("VID") = rs1("ID") Then
Selected = "selected"
Else
Selected = ""
End If
If Len(rs1("MayVote_Topic")) >15 Then
Response.Write"<option value='"&rs1("ID")&"' "&Selected&">"&Left(MayHTMLEncode(rs1("MayVote_Topic")),10)&"...</option>"
Else
Response.Write"<option value='"&rs1("ID")&"' "&Selected&">"&Left(MayHTMLEncode(rs1("MayVote_Topic")),15)&"</option>"
End If
rs1.MoveNext
Wend
rs1.Close
Set rs1 = Nothing%>
                  </select></td>
                </tr>
                <tr>
                  <td colspan="4" align="center"><input name="tj" type="submit" id="tj" value="更新"></td>
                </tr>
              </form>
            </table></td>
          </tr>
      </table></td>
  </tr>
</table>
<%
End If
rs.Close
Set rs = Nothing
End Sub
Response.Write"<br><div align='center' class='smalltxt'>"
Call MayVote_CopyRight()
Response.Write"</div>"
Call CloseConn()
%>
</body>
</html>