votemanage.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
%>
<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>
<br><table border="0" width="700" cellspacing="0" cellpadding="0" 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="voteSet.asp">
          <tr>
            <td width="100%" height="20" colspan=5 align=center><b>管 理 网 站 投 票</b></td>
          </tr>
          <tr>
            <td width="10%" align="center">选择</td>
            <td width="10%" align="center">ID</td>
            <td width="60%" align="center">主题</td>
            <td width="10%" align="center">修改</td>
            <td width="10%" align="center">删除</td>
          </tr>
		<%
		dim rs
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from vote1 order by id desc",conn,1,1
		do while not rs.eof
		%>
		  <tr>
			<td width="10%" align="center"><input type="radio" value=<%=rs("ID")%><%if rs("IsChecked")=1 then%> checked<%end if%> name="Checked"></td>
			<td width="10%" align="center"><%=rs("ID")%>　</td>
			<td width="60%"><%=rs("Title")%>　</td>
			<td width="10%" align="center"><input onclick="javascript:window.open('voteModify.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button1" style="font-family: 宋体; font-size: 9pt"></td>
			<td width="10%" align="center"><input onclick="javascript:window.open('voteDel.asp?id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="button2" style="font-family: 宋体; font-size: 9pt"></td>
		  </tr>
		<%
		rs.movenext
		loop
		%>
          <tr>
            <td colspan=5 align=center><input type="submit" value="选定投票项" name="submit" style="font-family: 宋体; font-size: 9pt">　
              <input onclick="javascript:window.open('voteAdd.asp','_self','')" type="button" value="添加新投票" name="button" style="font-family: 宋体; font-size: 9pt"></td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table></br>
<%End SUb%>