votemanage.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
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%>