<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx14<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if

dim id,Title,DateAndTime,i,sql
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * From shop_toupiao where id="&id
rs.open sql,conn,1,1
if rs.eof then
response.write "<meta http-equiv=""refresh"" content=""2;url=javascript:history.go(-1)"">"
response.write("<table width=400 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<tr><td>操作错误！</td></tr>")
response.write(" <tr><td><a href=vbscript:history.back()>回去重来</a>,2秒钟后自动返回</td></tr>")
response.write("</table>")
	Response.End 
else
Title=rs("Title")
DateAndTime=rs("DateAndTime")
end if
%>
<head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<LINK href="../css.css" rel=stylesheet>
<title>网软志成在线购物系统</title>
<SCRIPT language="JavaScript" type="text/javascript">
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<style type="text/css">
<!--
.style2 {color: #FF0000}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
}
-->
</style>
</head>
<body>
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="1%" height="28">&nbsp;</td>
    <td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
      <tr>
        <td width="77%" height="27" style="font-size:14px;color:#ffffff">&nbsp;<strong><font color="#000000">网软志成购物后台管理系统 &gt;&gt; 系统管理 &gt;&gt; 修改投票 </font></strong></td>
        <td width="23%" style="font-size:14px;color:#ffffff"><span class="style2">* 为必添项目</span></td>
      </tr>
    </table></td>
  </tr>
</table>
<br>
  <table border="0" width="95%" cellspacing="1" cellpadding="3" style="border-collapse: collapse" align=center bgcolor="#999999">
    <form method="POST" action="web_vote_save.asp?id=<%=id%>">
      <tr bgcolor="#cccccc"> 
        <td width="100%" height="9" colspan=2  align=center><b>修 
          改 网 站 投 票</b></td>
      </tr>
      <tr bgcolor="#F3F3F3">
        <td height="10"><div align="right">选择显示栏目：</div></td>
        <td height="10"><%set rs1=server.createobject("adodb.recordset")
        rs1.open "select * from shop_anclass order by anclassidorder",conn,1,1
	if rs1.eof and rs1.bof then
	response.write "请先添加栏目。"
	response.end
	else
%>
          <select name="classid" size="1" id="classid" class="wenbenkuang">
		  <option  value="0" <%if rs("classid")=0 then%>selected<%end if%>>首页</option>
            <option  value="<%=rs1("anclassid")%>" <%if rs("classid")=rs1("anclassid") then%>selected<%end if%>><%=trim(rs1("anclass"))%></option>
            <% 
        rs1.movenext
        do while not rs1.eof
%>
            <option value="<%=rs1("anclassid")%>" <%if rs("classid")=rs1("anclassid") then%>selected<%end if%>><%=trim(rs1("anclass"))%></option>
            <%
        rs1.movenext
        loop
	end if
        rs1.close
%>
        </select></td>
      </tr>
      <tr bgcolor="#F3F3F3"> 
        <td width="15%" align="right">主题：</td>
        <td width="85%"> 
        <input type="text" name="Title" value="<%=Title%>" size="20" class="wenbenkuang">        </td>
      </tr>
      <%for i=1 to 8%>
      <tr bgcolor="#F3F3F3"> 
        <td align="right">选项<%=i%>：</td>
        <td> 
          <input type="text" name="select<%=i%>" value="<%=rs("select"&i)%>" size="20" class="wenbenkuang">
          票数：
        <input type="text" name="answer<%=i%>" value="<%=rs("answer"&i)%>" size="5" class="wenbenkuang" onKeyPress="return event.keyCode>=48&&event.keyCode<=57">        </td>
      </tr>
      <%next%>
      <tr bgcolor="#F3F3F3"> 
        <td height=12 align="right">发布时间：</td>
        <td><%=DateAndTime%>　</td>
      </tr>
      <tr bgcolor="#F3F3F3">
        <td height=12 align="right">是否显示：</td>
        <td><input name="IsChecked" type="radio" value="1" <%if rs("IsChecked")=1 then%>checked<%end if%>>
        显示        <input type="radio" name="IsChecked" value="0" <%if rs("IsChecked")=0 then%>checked<%end if%>>
        不显示</td>
      </tr>
      <tr bgcolor="#F3F3F3"> 
        <td colspan=2 align=center> 
          <input type="hidden" value="edit" name="act">
          <input type="submit" value="确 认 修 改 " name="cmdok" class="go-wenbenkuang">
          &nbsp; 
          <input type="button" value=" 返 回 " onClick="javascript:history.go(-1)" class="go-wenbenkuang" name="button">
          &nbsp; 
        <input type="reset" value=" 清 除 "  name="cmdcancel" class="go-wenbenkuang">        </td>
      </tr>
    </form>
  </table>
  <%
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</center>
<!--#include file="copyright.asp"-->
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>