admin_vote.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
Select Case Request("action")
	Case "add" : add()
	Case "save" : save()
	Case "del" : del()
	Case "modi" : modi()
	Case "setvote" : setvote()
	Case Else
		list()
	End Select
Sub  del
Dim admin_flag
admin_flag=",36,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
dim id,sql
id=request.QueryString("id")
conn.execute" delete from [vote] where ID="&id
response.redirect"admin_vote.asp"
end if
End sub

Sub  list
Dim admin_flag
admin_flag=",36,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
set rs=server.createobject("adodb.recordset")
rs.open "select * from [vote] order by id desc",conn,1,1
%>
         <table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
          <tr>
           <td>
             <table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="100%" align="center">
                <tr>
                  <td class=classtop height=27 align=center>网站投票</td>
                 </tr>
              </table>
           <table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="100%" align="center">
          <form method="POST" action="?action=setvote">
            <tr height=20 class=classtd> 
              <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>
<%
do while not rs.eof
%>
            <tr height=20 class=classtd> 
              <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="location.href='?action=modi&id=<%=rs("ID")%>'" type="button" value="修改" name="button1" class="button"></td>
              <td width="10%" align="center"> 
                <input onClick="location.href='?action=del&id=<%=rs("ID")%>'" type="button" value="删除" name="button2" class="button"></td>
          </tr>
    <%rs.movenext
     loop
     rs.close
         %>
            <tr> 
              <td colspan=5 align=center height="30" class="classfooter">  
                <input type="submit" value="选定投票项" name="submit" class="button"> <input type="button" onClick="location.href='?action=add'" value="添加新投票" name="button" class="button">
              </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
  <%
set rs=nothing
end if
End  sub
%>

<%Sub Add
Dim admin_flag
admin_flag=",36,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
%>

         <table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
          <tr>
           <td>
             <table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="100%" align="center">
                <tr>
                  <td class=classtop height=27 align=center>添加网站投票</td>
                 </tr>
              </table>
                   <table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="100%" align="center">
          <form method="POST" action="?action=save">
            <tr height=20 class=classtd>  
              <td width="15%" align="right">主题：</td>
              <td width="85%"> 
                <input type="text" name="Title" size="50" class="form"></td>
          </tr>
<%for i=1 to 8%>            <tr height=20 class=classtd>  
              <td align="right">选项<%=i%>：</td>
              <td> 
                <input type="text" name="select<%=i%>" size="20" class="form">  票数：<input type="text" name="answer<%=i%>" size="5" value="0" onKeyPress="event.returnValue=IsDigit();" class="form"></td>
          </tr>
<%next%>
            <tr>  
              <td colspan=2 align=center height="30" class="classfooter"> 
                <input type="hidden" value="add" name="act">
              <input type="button" value=" 返 回 " onclick="javascript:history.go(-1)" class="button">&nbsp; <input type="submit" value=" 添 加 " name="cmdok" class="button">&nbsp; 
              <input type="reset" value=" 取 消 "  name="cmdcancel" class="button">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
end if
End sub%>

<%
Sub modi
Dim admin_flag
admin_flag=",36,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
dim id,Title,DateAndTime,i,sql
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from [vote] where id="&id
rs.open sql,conn,1,1
if rs.eof then
        response.write "<script>alert('对不起，投票主题不能为空！');history.go(-1);</Script>"	
	Response.End 
else
Title=rs("Title")
DateAndTime=rs("DateAndTime")
end if
%>
         <table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
          <tr>
           <td>
             <table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="100%" align="center">
                <tr>
                  <td class=classtop height=27 align=center>修改网站投票</td>
                 </tr>
              </table>
                   <table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="100%" align="center">
          <form method="POST" action="?action=save&id=<%=id%>">
            <tr height=20 class=classtd> 
              <td width="15%" align="right">主题：</td>
              <td width="85%"> 
                <input type="text" name="Title" value="<%=Title%>" size="50" class="form"></td>
          </tr>
<%for i=1 to 8%>
            <tr height=20 class=classtd>  
              <td align="right">选项<%=i%>：</td>
              <td> 
                <input type="text" name="select<%=i%>" value="<%=rs("select"&i)%>" size="20" class="form"> 票数：<input type="text" name="answer<%=i%>" value="<%=rs("answer"&i)%>" size="5" class="form"></td>
          </tr>
<%next%>
            <tr height=20 class=classtd> 
              <td align="right" height=25>发布时间：</td>
              <td><%=DateAndTime%>　</td>
          </tr>
            <tr> 
              <td colspan=2 align=center height="30" class="classfooter"> 
                <input type="hidden" value="edit" name="act">
               <input type="button" value=" 返 回 " onclick="javascript:history.go(-1)" class="button">&nbsp; 
              <input type="submit" value=" 修 改 " name="cmdok" class="button">&nbsp; 
              <input type="reset" value=" 清 除 "  name="cmdcancel" class="button">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
  <%
rs.close
set rs=nothing
end if
End sub
%>

<%
Sub   save
Dim admin_flag
admin_flag=",36,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
dim id,title,act,DateAndTime,Content,sql,i
ID=request.QueryString("id")
Title=trim(request.form("Title"))
act=request("act")
if DateAndTime="" then DateAndTime=now()
Content=trim(request.form("Content"))
if Title="" then
        response.write "<script>alert('对不起，投票主题不能为空！');history.go(-1);</Script>"	
	Response.End 
end if

	set rs=server.createobject("adodb.recordset")
	if act="edit" then
		sql="select * from [vote] where ID="&ID
	elseif act="add" then
		sql="select * from [vote]"
	end if
	rs.open sql,conn,1,3
	if act="add" or act="edit" then
		if act="edit" then
			if rs.eof then
                                response.write "<script>alert('操作错误！');history.go(-1);</Script>"	
				Response.End 
			end if
		end if
		if act="add" then rs.addnew
		rs("Title")=Title
		'rs("depid")=session("UserDepID")
		for i=1 to 8
			if request("select"&i)<>"" then
				rs("select"&i)=Safereplace(trim(request("select"&i)))
				if request("answer"&i)="" then
					rs("answer"&i)=0
				else
					rs("answer"&i)=request("answer"&i)
				end if
			end if
		next
		rs("dateandtime")=now()
		rs.update
	end if
	rs.close
	set rs=nothing
	Response.Redirect "admin_vote.asp"
end if
End     sub
%>

<%
Sub setvote
Dim admin_flag
admin_flag=",36,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
dim Checked,sql
Checked=request.form("Checked")
if Checked="" then
        response.write "<script>alert('对不起，请您选择投票项！');history.go(-1);</Script>"	
	Response.End 	
end if
set rs=server.createobject("adodb.recordset")
sql="Select isChecked from [vote] where IsChecked=1"
rs.open sql,conn,1,3
if not rs.eof then
	do while not rs.eof
		rs("IsChecked")=0
	rs.movenext
	loop
end if
rs.close

sql="Select IsChecked from [vote] where ID="&Checked
rs.open sql,conn,1,3
if not rs.EOF then
	do while not rs.EOF 
		rs("isChecked")=1
	rs.MoveNext 
	loop
end if
rs.close
set rs=nothing
response.redirect "admin_vote.asp"
end if
End sub
%>
<SCRIPT language="JavaScript" type="text/javascript">
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>