pollmodify.asp

音乐类型的好网站

<%PageName="admin_ResearchModify"%>
<!--#include file="function.asp"-->
<%CheckAdmin2%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from Poll where id="&id
rs.open sql,conn,1,1
if rs.eof then
	errmsg=errmsg+"<br>"+"<li>操作错误！请联系管理员"
	call error()
	Response.End 
else
Title=rs("Title")
DateAndTime=rs("DateAndTime")
end if

%>
<div align="center">
<center>
<table border="0" width="90%" cellspacing="1" cellpadding="1">
  <tr>
    <td align=center valign=top>
      <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#FF1171" bordercolordark="#FFFFFF">
        <form method="POST" action="PollSave.asp?id=<%=id%>">
          <tr>
            <td width="100%" height="20" colspan=2 bgcolor="#FF1171" align=center><font color="white"><b>修 改 网 站 调 查</b></font></td>
          </tr>
          <tr>
            <td width="15%" align="right">主题：</td>
            <td width="85%"><input type="text" name="Title" value="<%=Title%>" size="20"></td>
          </tr>
<%for i=1 to 10%>
          <tr>
            <td align="right">选项<%=i%>：</td>
            <td><input type="text" name="select<%=i%>" value="<%=rs("select"&i)%>" size="20"> 连接:<input type="text" name="url<%=i%>" value="<%=rs("url"&i)%>" size="20"> 票数：<input type="text" name="answer<%=i%>" value="<%=rs("answer"&i)%>" size="5"></td>
          </tr>
<%next%>
          <tr>
            <td align="right">发布时间：</td>
            <td><%=DateAndTime%></td>
          </tr>
          <tr>
            <td colspan=2 align=center>
              <input type="hidden" value="edit" name="act">
              <input type="submit" value=" 修 改 " name="cmdok">&nbsp; 
              <input type="reset" value=" 清 除 "  name="cmdcancel">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing%></body></html>