vote_add_choice.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 147 行

<!--#include file=conn.asp-->
<%
IF not(Session("KEY")="super" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF
%>
<% if  request("actions")="1" then
      choice=trim(request("choice"))
	  if choice="" then
	      response.write "<script language='javascript'>alert('选项内容不能为空!');history.go(-1);</script>"
      else
	     if request("IsDefault")="1" then
		    def=true
         else
		    def=false
		 end if 
	     set rs=server.CreateObject("adodb.recordset")
         sql="select * from vote_smallclass where id=null"
         rs.open sql,conn,1,3
		 rs.addnew
         rs("choice")=choice
		 rs("IsDefault")=def
		 rs("extends")=request("ids")
		 rs.update
		 rs.close
		 set rs=nothing
		 response.write "<meta http-equiv='refresh' content='0;url=vote_add_choice.asp?id="&request("ids")&"'>"
      end if
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from vote_bigclass where id="&request("id")
rs.open sql,conn
if rs("choice")=true then
   con="多选"
else
   con="单选"
end if
if rs("current")=true then
   curr="激活"
else
   curr="未激活"
end if
%>
<link href="news.css" rel="stylesheet" type="text/css">

<br>
<br>
<br>
<table width="70%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td height="25" valign="middle" bgcolor="abb8d6"> 
      <div align="center"><strong>请在当前主题下添加选项：</strong></div></td>
  </tr>
</table>

<form name="form1" method="post" action="edit.asp">
  <table width="70%" height="74"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
    <tr>
      <td height="20" bgcolor="#FFFFFF">
<div align="center">当前主题内容</div></td>
    </tr>
    <tr>
      <td valign="middle" bgcolor="#FFFFFF"><%=rs("title")%></td>
    </tr>
    <tr>
      <td valign="middle" bgcolor="#FFFFFF">
<div align="right">选择类型：<%=con%> &nbsp;&nbsp;&nbsp;
      <a class=bai1 href="vote_edit.asp?id=<%=rs("id")%>">修改</a>
      <input name="id" type="hidden" id="id" value="<%=rs("id")%>">
      </div></td>
    </tr>
  </table>
</form>
<div align="center">
  <%rs.close
set rs=nothing%>
<font color=red>注意：请确保每个主题只有一个默认选项，否则将出现不可预料的结果！</font>


</div>
<form name="form2" method="post" action="">
  <table width="70%" height="47"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
    <tr bgcolor="#FFFFFF"> 
      <td> 
        <div align="center">选项内容</div></td>
      <td> 
        <div align="center">是否默认选中</div></td>
      <td>&nbsp;</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="53%" valign="middle"> 
        <div align="center">
        <input name="choice" type="text" class="input" id="choice" size="30">
      </div></td>
      <td width="25%" valign="middle"> 
        <div align="center">
        <input type="radio" name="IsDefault" value="1">
        是
        <input name="IsDefault" type="radio" value="2" checked>
      否</div></td>
      <td width="22%" valign="middle"> 
        <div align="center">
        <input name="ids" type="hidden" id="ids" value="<%=request("id")%>">
        <input name="actions" type="hidden" id="actions" value="1">
        <input type="submit" name="Submit" value="提交">
      </div></td>
    </tr>
  </table>
</form>
<%set rs1=server.CreateObject("adodb.recordset")
sql1="select * from vote_smallclass where extends="&request("id")
rs1.open sql1,conn%>
<table width="70%" height="44"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
  <tr bgcolor="#FFFFFF"> 
    <td width="53%" height="20"> 
      <div align="center">选项内容</div></td>
    <td width="25%" height="20"> 
      <div align="center">是否默认</div></td>
    <td width="22%" height="20"> 
      <div align="center">操作</div></td>
  </tr>
 <%if rs1.eof and rs1.bof then
   else
   do while not rs1.eof
   if rs1("IsDefault")=true then
     Def="是"
   else
     Def="否"
   end if%> 
  <tr bgcolor="#FFFFFF"> 
    <td height="21" valign="middle"><%=rs1("choice")%></td>
    <td valign="middle"><%=Def%></td>
    <td valign="middle"> 
      <div align="center"><a class=bai1 href="vote_edit_choice.asp?cid=<%=rs1("id")%>&id=<%=request("id")%>">修改</a> <a class=bai1 href="vote_del_choice.asp?cid=<%=rs1("id")%>&id=<%=request("id")%>" onClick="return test()">删除</a></div></td>
  </tr>
  <%rs1.movenext
    loop
	rs1.close
	set rs1=nothing
	end if%>
</table>
<p>
  <%end if%>
</p>
<p>&nbsp;</p>