📄 votemanage.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<%
'==========================================
'
'  
'
'  
'
'==========================================
'程序名称：渐飞商务信息更新程序
'程序作用：
'程序创建时间：18:58 2002-9-7
'程序完成时间：21:50 2002-8-7
'最后修改时间：21:50 2002-8-7
'==========================================
  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="0" align="center" bgcolor="#4397c5">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="3" height="25">
    <!--#include file = topMenu.htm--></td>
  </tr>
  <form method="post" action="">
  <tr bgcolor="#FFFFFF"> 
    <td valign="middle" width="27%" background="images/BLogo.gif" height="25" align="center"> 
      <a href=VoteAdd.asp>添加投票</a><br>
    </td>
    <td width="73%" height="25" colspan="2" valign="top" background="images/BLogo.gif">
	<select name="SearchType">
      <option value="Title">标题</option>
    </select>
    <input type="text" name="KeyWord">
	<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" cellspacing="1" cellpadding="0" bgcolor="#F5F5F5">
          <%
  if rs.eof and rs.bof then
%>
          <tr bgcolor="#FFFFFF"> 
            <td width="47%" align="center"><font color=red>暂时没有投票</font></td>
          </tr>
          <%
  response.end
  end if
  for i=1 to rs.pagesize
    if rs.eof then exit for
%>
          <tr bgcolor="#FFFFFF"> 
            <td height=20 width="47%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><a href=# onClick="windowOpener('../showVote.asp?action=show&VoteClassID=<%=rs("VoteClassID")%>')"><%=rs("title")%></a></td>
            <td width="30%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><%=rs("AddDate")%></td>
            <td 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 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 bgcolor="#FFFFFF"> 
            <td 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)">
              选中所有 
			  <input type=hidden name=action value=del>
              <input type=submit value=删除 onclick="return Del()"> </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td 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 bgcolor="#FFFFFF"> 
            <td 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 + -