votemodify.asp

同学录的设计

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->

<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
Call opendatabase
Call txl_SiteHead (const_txlname&"- 管理员")
If Request.QueryString("action") ="del" Then
	Call del
Else
	Call main
End If

Call CloseDataBase
Call SiteBottom
Sub main
%>

<%
dim id,Title,DateAndTime,i,sql,rs
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from vote1 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
%>
<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} 

a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
<SCRIPT language="JavaScript" type="text/javascript">
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<br><table border="0" width="700" cellspacing="0" cellpadding="1" bgcolor="#ffffff" align=center>
  <tr>
    <td align=center valign=top width="100%">
      <table border="1" width="100%" cellspacing="0" cellpadding="8" style="border-collapse: collapse" align=center>
        <form method="POST" action="voteSave.asp?id=<%=id%>">
          <tr>
            <td width="100%" height="20" colspan=2  align=center><b>修 改 网 站 投 票</b></td>
          </tr>
          <tr>
            <td width="15%" align="right">主题：</td>
            <td width="85%"><input type="text" name="Title" value="<%=Title%>" size="50" style="font-family: 宋体; font-size: 9pt"></td>
          </tr>
<%for i=1 to 8%>
          <tr>
            <td align="right">选项<%=i%>：</td>
            <td><input type="text" name="select<%=i%>" value="<%=rs("select"&i)%>" size="20" style="font-family: 宋体; font-size: 9pt"> 票数：<input type="text" name="answer<%=i%>" value="<%=rs("answer"&i)%>" size="5" style="font-family: 宋体; font-size: 9pt"></td>
          </tr>
<%next%>
          <tr>
            <td align="right" height=25>发布时间：</td>
            <td><%=DateAndTime%>　</td>
          </tr>
          <tr>
            <td colspan=2 align=center>
 <input type="hidden" value="edit" name="act">
<input type="button" value=" 返 回 " onclick="javascript:history.go(-1)" style="font-family: 宋体; font-size: 9pt">&nbsp; 
              <input type="submit" value=" 修 改 " name="cmdok" style="font-family: 宋体; font-size: 9pt">&nbsp; 
              <input type="reset" value=" 清 除 "  name="cmdcancel" style="font-family: 宋体; font-size: 9pt">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table></br>
<%End SUb%>