<!--#include file="Conn.asp"-->
<!--#include file ="Check_Manager.asp"-->
<%Set rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From [Vote] Where Vote_ID=1"
rs.Open Sql,Conn,1,1
%>
<script language="JavaScript">
<!--
function chk(theForm){
        if(confirm("确定要修改投票内容吗?修改后之前的投票数将改为0!"))
           return true;
        else
           return false;
	 
        if (theForm.title.value == ""){
                alert("投票主题不能为空!");
                theForm.title.focus();
                return (false);
        }
        
        if (theForm.message.value == ""){
                alert("投票选项不能为空!");
                theForm.message.focus();
                return (false);
        } 
}
//-->
</script>
<HTML>
<HEAD>
<TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin/admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY>
<SCRIPT>
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=80&&he<=400)
   obj.style.height=he+i+'px';
else 
   obj.style.height='80px';
}
</SCRIPT>
<br>
<table class=tableBorder cellspacing=0 cellpadding=5 width="700" align=center border=0>
  <form id="form1" name="form1" action="Vote_Edit.asp" method="post" onSubmit="return chk(this)">
    <tbody>
      <tr> 
        <th colspan=2 height=25>投票<b>管理</b></th>
      </tr>
      <tr> 
        <td align=right width="27%">投票主题&nbsp;</td>
        <td width="73%"><input name="title" id="title" value="<%=rs("VoteTitel")%>" size=50 maxlength="60"></td>
      </tr>
      <tr> 
        <td align=right width="27%">投票选项&nbsp;</td>
        <td width="73%">
<textarea name="message" rows=8 wrap=VIRTUAL cols=50><%
Dim lng
lng = Len(rs("Selectd"))
Response.Write Replace(Left(rs("Selectd"),lng-1),"|",chr(13)&chr(10))%></textarea>
          <br>
          (一行为一个选项,空行为空选项,请不要空行) <br> &nbsp; <a href="javascript:change(document.all.message,-20)"><img title=缩小文本框 
      src="admin/minus.gif" border=0></a>&nbsp;&nbsp;<a 
      href="javascript:change(document.all.message,20)"><img title=放大文本框 
      src="admin/plus.gif" border=0></a></td>
      </tr>
      <tr align=middle bgcolor=#f7fbff> 
        <td height=30 colspan=2> 
          <div align="center"> 
            <input type=submit value="确认" name=Submit>
            &nbsp;&nbsp; 
            <input type=reset value=重置 name=Submit2>
          </div></td>
      </tr>
    
  </form>
</table>
</body></html>
<%rs.Close
Set rs=Nothing
Set Conn=Nothing
%>