📄 adminfalse.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="46%" height="25" background="images/iebg.gif"><b>　　　　<font color="#FFFFFF"> 
        网站名称 </font></b></td>
      
    <td width="20%" height="25" align="center" background="images/iebg.gif"><b></b><b><font color="#FFFFFF">修改</font></b></td>
      <td width="13%" height="25" align="center" background="images/iebg.gif">通过审核</td>
      <td width="12%" 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=0 order by id Desc"
else
sql="Select * from music where isview=0 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="46%"><img src=images/046.gif> 
        <a href=""<%=rs("address")%>"" target="_blank"><b><%=rs("name")%></b></a> 
      </td>
      <td bordercolorlight="#00215a" align=center width="20%"><a href="edit.asp?id=<%=rs("id")%>">修改</a></td>
      <td bordercolorlight="#00215a" align=center width="13%"><a href="add3.asp?num=<%=rs("num")%>">通过</a></td>
      <td bordercolorlight="#00215a" align=center width="12%">[<%=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="46%"><img src=images/046.gif> 
        <a href="<%=rs("address")%>" target="_blank" ><b><%=rs("name")%></b></a> 
      </td>
      <td bordercolorlight="#00215a" align=center width="20%"><a href="edit.asp?id=<%=rs("id")%>">修改</a></td>
      <td bordercolorlight="#00215a" align=center width="13%"><a href="add3.asp?num=<%=rs("num")%>">通过</a></td>
      <td bordercolorlight="#00215a" align=center width="12%">[<%=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=5 align=middle bordercolorlight="#00215a"> 共有 <%=num%> 个网站
      | <a href=adminfalse.asp?page=1&classid=<%=request("classid")%>>首页</a> | 
      <%if page>1 then%>
      <a href=adminfalse.asp?page=<%=page-1%>&classid=<%=request("classid")%>> 
      <%end if%>
      上一页</a> | 
      <%if page<pagenum then%>
      <a href=adminfalse.asp?page=<%=page+1%>&classid=<%=request("classid")%>> 
      <%end if%>
      下一页</a> | <a href=adminfalse.asp?page=<%if pagenum=0 then%>1<%else%><%=pagenum%><%end if%>&classid=<%=request("classid")%>>尾页</a> 
    </td>
    </tr>
    <%
sub deleteannounce(id)
  dim rs,sql
  set rs=server.createobject("adodb.recordset")
  sql="delete from [music] where newsid="&cstr(id)
  conn.execute sql
   if err.Number<>0 then
     err.clear
     response.write "删 除 失 败 !<br>"
   end if
End sub
%>
  </table>
</body>
</html>
⌨️ 快捷键说明

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