adminfav.asp

来自「一个不错的论坛原代码」· ASP 代码 · 共 81 行

ASP
81 行
字号 
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->

<body  <%=background%> >
 <% 
if Request.QueryString("action")="del" then
f_username=chktopic(request.form("f_username"))
sql="delete  from favs where f_username='"&f_username&"'"
conn.execute(sql)
response.write "<script>alert(""批量删除完毕"");</script>"
end if
if Request.QueryString("action")="delall" then

sql="delete from favs"

conn.execute(sql)
response.write "<script>alert(""批量删除完毕"");</script>"
end if

%>




<table  border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >

 <form name="form2" method="POST" action="?action=del" >
    <tr>
      <td colspan="2" class=tdc1 height=24 <%=hColor%>>
      <p align="center">批量删除用户的收藏夹</td>
    </tr>
    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=22>删除某用户的收藏</td>
    </tr>
    <tr> 
      <td align="center" width="50%" bgcolor=<%=tColor2%> class=tdc><div align="center">
        <input name="f_username" class=tdc size="25" ></div></td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        &nbsp;<input type="submit" name="Submit" value="提交" class=bdtj onclick="{if(confirm('确定删除纪录吗?')){this.document.recycle.submit();return true;}return false;}"></td>
    </tr>
  </form>
    </table>
  </div>


   
<table  border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >

   <form name="form2" method="POST" action="?action=delall" >
    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=22>删除论坛用户的收藏夹</td>
    </tr>
    <tr> 
      <td align="right" width="10%" bgcolor=<%=tColor2%> class=tdc> 
        <p align="center">　</td>
      <td align="right" width="10%" bgcolor=<%=tColor2%> class=tdc>
      <p align="left">&nbsp;<input type="submit" name="Submit" value="提交" class=bdtj onclick="{if(confirm('确定删除纪录吗?')){this.document.recycle.submit();return true;}return false;}"> 
        　</td>
    </tr>
  </form>
  <%dim sqlpm,rspm,pmid
  sqlpm="select count(f_username) as pmid from favs"
  set rspm=conn.execute(sqlpm)
  pmid=rspm("pmid")
  set rspm=nothing%>
      <tr> 
      <td align="center" width="20%" bgcolor=<%=tColor2%> class=tdc colspan="2">当前论坛总共有 <%=pmid%> 条收藏地址 
        　</td>
    </tr>
    </table>
  </div>





<%
 conn.close
set conn=nothing%>

adminfav.asp - 源码说明

本页面展示了「一个不错的论坛原代码」中的 adminfav.asp 源码文件，采用 ASP 编程语言编写，共 81 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与论坛相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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