⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 adminflash.asp

📁 1 管理进入login.asp 用默认的管理员密码登录。默认的管理密码：kukud.net 密码在conn.asp中改。登录后
💻 ASP
字号:
🔍 
<!-- #include file="conn.asp" --><!-- #include file="se.asp" -->
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="7thcss.css" rel=stylesheet>
</head>
<body background=images/zhbg.gif>
  <table border="1" width="80%" cellpadding="1" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#00215a" align="center">
   <tr> 
      <td width="45%" height="25" background="images/iebg.gif"><b>　　　　<font color="#FFFFFF"> 
       网站名称 </font></b></td>
      <td width="11%" height="25" align="center" background="images/iebg.gif"><b><font color="#FFFFFF">设为推荐</font></b></td>
      <td width="10%" height="25"  align="center" background="images/iebg.gif"><b><font color="#FFFFFF">修改</font></b></td>
      
    <td width="9%" height="25" align="center" background="images/iebg.gif"><b><font color="#FFFFFF">人气</font></b> 
    </td>
      <td width="16%" height="25" align="center" background="images/iebg.gif"><b><font color="#FFFFFF">添加时间</font></b></td>
      
    <td width="9%" height="25" align="center" background="images/iebg.gif">删除</td>
    </tr>
     <%
Set rs=Server.CreateObject("ADODB.RecordSet")
'判断classid开始
classid=request("classid")
If classid <> "" then
classid = cint(classid)
if err.number <> 0 then 
err.clear
classid = 1
end if
if classid < 1 then 
classid = 1
end if 
else
classid = 1
End if
'判断classid结束
if Request("classid")<>"" then
sql="Select * from music where class=" & classid & "and isview=1 order by id Desc"
else
sql="Select * from music where isview=1 order by id Desc"
end if


rs.open sql,conn,1,1
rs.pagesize=20  '每页显示数目
num=rs.recordcount
pagenum=rs.pagecount
page=request("page")

if rs.eof and rs.bof then
response.Write("此分类没有网站")
else

'判断页码开始
If page <> "" then
page = cint(page)
if err.number <> 0 then 
err.clear
page = 1
end if
if page < 1 then 
page = 1
end if 

else
page = 1
End if
if page*rs.pagesize > num and not((page-1)*rs.pagesize < num)then 
page=1
end if
'判断页码结束

rs.absolutepage = page 'absolutepage：设置指针指向某页开头
if page<>pagenum then
for i=1 to rs.pagesize
%>
    <tr> 
      <td bordercolorlight="#00215a" align=left width="45%"><img src=images/046.gif> 
        <a href="<%=rs("address")%>" target="_blank"><b><%=rs("name")%></b></a> 
        <%if rs("isgood")=true then%>
        <font color="#FF0000">荐 
        <%end if%>
        </font></td>
      <td bordercolorlight="#00215a" align=center width="11%"><a href="add2.asp?num=<%=rs("num")%>">推荐</a></td>
      <td  align="center" width="10%"><a href="edit.asp?id=<%=rs("id")%>">修改</a></td>
      <td bordercolorlight="#00215a" align=center width="9%"><b><%=rs("d")%></b> 
      </td>
      <td bordercolorlight="#00215a" align=center width="16%">[<%=rs("time")%>]</td>
      
    <td bordercolorlight="#00215a" align=center width="9%"><a href="dell.asp?num=<%=rs("num")%>">删除</a></td>
    </tr><%
rs.movenext
next
else
for i=1 to num-(page-1)*rs.pagesize
%>
    
    <tr> 
      <td bordercolorlight="#00215a" align=left width="45%"><img src=images/046.gif> 
        <a href="<%=rs("address")%>" target="_blank" ><b><%=rs("name")%></b></a> 
        <%if rs("isgood")=true then%>
        <font color="#FF0000">荐 
        <%end if%>
        </font></td>
      <td bordercolorlight="#00215a" align=center width="11%"><a href="add2.asp?num=<%=rs("num")%>">推荐</a></td>
      <td  align="center" width="10%"><a href="edit.asp?id=<%=rs("id")%>">修改</a></td>
      <td bordercolorlight="#00215a" align=center width="9%"><b><%=rs("d")%></b> 
      </td>
      <td bordercolorlight="#00215a" align=center width="16%">[<%=rs("time")%>]</td>
      
    <td bordercolorlight="#00215a" align=center width="9%"><a href="dell.asp?num=<%=rs("num")%>">删除</a></td>
    </tr>
    <%
rs.movenext
next
end if
end if
rs.close
Set rs=nothing
%>
    <tr> 
      <td colspan=6 align=middle bordercolorlight="#00215a"> 共有 <%=num%> 个网站
        | <a href=adminflash.asp?page=1&classid=<%=request("classid")%>>首页</a> | 
        <%if page>1 then%>
        <a href=adminflash.asp?page=<%=page-1%>&classid=<%=request("classid")%>> 
        <%end if%>
        上一页</a> | 
        <%if page<pagenum then%>
        <a href=adminflash.asp?page=<%=page+1%>&classid=<%=request("classid")%>> 
        <%end if%>
        下一页</a> | <a href=adminflash.asp?page=<%if pagenum=0 then%>1<%else%><%=pagenum%><%end if%>&classid=<%=request("classid")%>>尾页</a> 
      </td>
    </tr> 
  </table>

 
</body>
</html>

⌨️ 快捷键说明

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