📄 votemanage.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:

<html>
<head>
<title>投票管理 -晓宇听幽 网站内容管理系统</title>
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
<%Admin="InfoInsert"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_vote.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath=Domain&gfilepath

  if request.form("action")="del" then
    for i=1 to request.form("DelId").count
	  conn.execute("delete from vote where VoteClassID="&request.form("DelId")(i)&"")
	  conn.execute("delete from VoteClass where VoteClassID="&request.form("DelId")(i)&"")
	next
  end if

  page=request.querystring("page")
  if page<=1 or page="" then page=1
  Set rs=Server.CreateObject("Adodb.Recordset")
  if request.form("action")="Search" then  
    sql="Select * from VoteClass where Title like '%"&request.form("KeyWord")&"%' order by VoteClassID desc "
  else
    sql="Select * from VoteClass order by VoteClassID desc "
  end if
  rs.open sql,conn,1,1
  rs.pagesize=20
  for i=1 to rs.pagesize*(page-1)
    if not rs.eof then
	  rs.movenext
	end if
  next
%>
<body background="images/BLogo.gif">
<table width="63%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
  <form method="post" action="">
            <tr> 
            <th align=center height=20 colspan=4 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
             晓宇听幽投票插件——投票管理
            </th>
          </tr>
  <tr> 
    <td valign="middle" width="27%" height="25" align="center" class=forumHeaderBackgroundAlternate> 
      <a href=VoteAdd.asp>添加投票</a><br>
    </td>
    <td width="73%" height="25" colspan="2" valign="top" background="images/BLogo.gif" class=forumHeaderBackgroundAlternate>
	<select name="SearchType">
      <option value="Title">标题</option>
    </select>
    <input type="text" name="KeyWord" size="20">
	<input type="hidden" name=action value="Search">
    <input type="submit" value="搜索"></td>
  </tr>
  </form>
  <tr bgcolor="#FFFFFF" valign="middle" align="center"> 
    <td height="2" colspan="3" background="images/BLogo.gif">
	<form method=post action="">
<table width="100%" border="0" align="center">
          <%
  if rs.eof and rs.bof then
%>
          <tr> 
            <td align="center" colspan=4 class=forumrow><font color=red>暂时没有投票</font></td>
          </tr>
          <%
  response.end
  end if
  for i=1 to rs.pagesize
    if rs.eof then exit for
%>
          <tr> 
            <td class=forumrow height=20 width="47%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><a href=../showVote.asp?action=show&VoteClassID=<%=rs("VoteClassID")%>><%=rs("title")%></a></td>
            <td class=forumrow width="30%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rs("AddDate")%></td>
            <td class=forumrow width="13%" height=20 align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><a href=VoteModify.asp?VoteClassID=<%=rs("VoteClassID")%>>修改</a></td>
            <td class=forumrow height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
              <input type="checkbox" name=DelId value=<%=rs("VoteClassID")%>>
            </td>
          </tr>
          <%
  rs.movenext
  next
%>
          <tr> 
            <td class=forumrow height=20 colspan=4 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
              <input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">
              选中所有 
			  <input type=hidden name=action value=del>
              <input type=submit value=删除 onclick="return Del()"> </td>
          </tr>
          <tr> 
            <td class=forumrow height=20 colspan=4 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
<%
  for i=1 to rs.PageCount
    response.write("<a href=VoteManage.asp?Page="&i&"><b> "&i&" </a></b>")
  next
  rs.close
  set rs=nothing
%>
            </td>
          </tr>
          <tr> 
            <td class=forumHeaderBackgroundAlternate align=center height=20 colspan=4 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
             需要调用的代码请到“代码获取”模块中获得
            </td>
          </tr>
        </table>
	  </form>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -