📄 private.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file=const.asp -->
<!--#include file="time.asp"-->
<!--#include file="ubb.asp"-->
<!--#include file="userInfo.inc"-->
<!--#include file="chkPage.inc"-->
<!--#include file="page.inc"-->
<%
dim exec, rs, page, recordcount
dim rs1, pagecount, strpageList
rem strpagelist是分页显示的字符串
dim topNum
if theUser.master then
exec="select top 1 privateNum from GBconst"
else
exec="select top 1 GBprivateNum from [user] where username='"& theUser.name &"' "
end if
set rs=conn.execute(exec)
RecordCount=rs(0)
page=encodestr(Request.querystring("page"))
pageCount=getPageCount(pageCount,recordCount,rcPerPage)
page=getPage(page,pageCount)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitetitle%></title>
<META name="Author" content="木鸟">
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>
<body>
<!--#include file="head.asp"-->
<form name="admin" method="post" action="admin_post_do.asp" style="margin:0px">
<% strPageList=pageList()
response.write (strPageList)
if theUser.master then
if page<=1 then
exec="select top "&rcPerpage&" * from ly where rt=0 and IsPrivate<>0 order by istop desc,reid desc"
else
exec="select count(*) from ly where istop=1 and rt=0 and IsPrivate<>0"
set rs=conn.execute(exec)
topNum=rs(0)
exec="select count(*) from ly where istop=1 and rt=0 and IsPrivate<>0 and reid<all(select top "&(rcPerPage-topNum)&" reid from ly where istop<>1 and rt=0 and isPrivate<>0 order by reid desc) "
set rs=conn.execute(exec)
topNum=rs(0)
rs.close
exec="select top "&rcPerpage&" * from ly where rt=0 and istop<>1 and isPrivate<>0 and reid<all(select top "&(rcPerPage*(page-1)-topNum)&" reid from ly where rt=0 and isPrivate<>0 order by reid desc) order by reid desc"
end if
else
if page<=1 then
exec="select top "&rcPerpage&" * from ly where rt=0 and IsPrivate<>0 and bl=1 and name='"& theUser.name &"' order by istop desc,reid desc"
else
exec="select count(*) from ly where istop=1 and rt=0 and IsPrivate<>0 and bl=1 and name='"& theUser.name &"'"
set rs=conn.execute(exec)
topNum=rs(0)
exec="select count(*) from ly where istop=1 and rt=0 and IsPrivate<>0 and bl=1 and name='"& theUser.name &"' and reid<all(select top "&(rcPerPage-topNum)&" reid from ly where istop<>1 and rt=0 and isPrivate<>0 and bl=1 and name='"& theUser.name &"' order by reid desc) "
set rs=conn.execute(exec)
topNum=rs(0)
rs.close
exec="select top "&rcPerpage&" * from ly where rt=0 and istop<>1 and isPrivate<>0 and bl=1 and name='"& theUser.name &"' and reid<all(select top "&(rcPerPage*(page-1)-topNum)&" reid from ly where rt=0 and isPrivate<>0 and bl=1 and name='"& theUser.name &"' order by reid desc) order by reid desc"
end if
end if
if style=1 then %>
<!--#include file=list1.asp-->
<%else %>
<!--#include file=list2.asp-->
<%end if%>
<%=strPageList %>
<% if theUser.master then %>
<script language=javascript src="check.js"></script>
<table width=650 align=center border=0 cellpadding=0 cellspacing=0><tr align=right><td>
<a href=### onclick=checkAll()>全选</a> <a href=### onclick=checkNone() >全不选</a> <a href=### onclick=checkRev() >反选</a>
<select name=act class=input2><option value=del>删除</option><option value=best>精华</option><option value=top>固顶</option></select> <input type=submit value="确定" class=input2>
</td></tr></table>
<%
end if
%>
</form>
<!--#include file="searchBar.inc"-->
<!--#include file="foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -