Слияние кода завершено, страница обновится автоматически
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="keywords" content="<%=jianbook.sysinfo("keyword")%>" />
<meta name="description" content="<%=jianbook.sysinfo("dsc")%>" />
<title><%if request("lm")<>"" then response.Write request("lm")&"-" end if%><%=jianbook.sysinfo("title")%></title>
<link href="ui/layui/css/layui.css" rel="stylesheet" type="text/css" />
<link href="ui/images/main.css" rel="stylesheet" type="text/css" />
<link href="ui/skin/<%=jianbook.css%>.css" rel="stylesheet" type="text/css" />
<!--[if lte IE 9]> <script type="text/javascript" src="ui/browser.js"></script><![endif]-->
</head>
<body>
<%
'''jianbook
''' ==================================================================
''' 版权所有 http://www.9416.cn
''' ------------------------------------------------------------------
''' 此程序为免费开源版，个人可免费自由使用，不得作为商业用途，不可以修改再次发布！
''' ------------------------------------------------------------------
''' 个人使用需要保留版权，如需去除版权请联系作者购买。
''' ==================================================================
%>
<!--#include file="head.asp"-->
<%
if request.Cookies("admin")("login")="true" then
my_id=0
elseif request.Cookies("user")("login")="true" then
my_id=request.Cookies("user")("id")
end if
set rs=conn.execute ("select count(*) as tnum from comment where isread=0 and class=2 and name='"&my_id&"'")
if rs("tnum")>0 then
snum="<span>"&rs("tnum")&"</span>"
end if
rs.close
%>
<div class="main">
<%sql2="select * from comment where slide =1 and pic<>''"
if request("lm")<>"" then
sql1=sql1&" and lm='"&request("lm")&"'"
end if
sql=sql2&sql1&" order by id desc"
rs.open sql,conn,1,1
if not rs.eof then%>
<div class="layui-carousel" id="banner" >
<div carousel-item>
<%
do while not rs.eof
mpic=split(rs("pic"),",")
%>
<div><a href="show.asp?id=<%=rs("id")%>"><img src=<%=mpic(0)%> width="100%"></a></div>
<%rs.movenext
loop
%>
</div>
</div>
<%end if
rs.close%>
<div class="layui-row layui-col-space10">
<div class="layui-col-md9">
<%if jianbook.sysinfo("guest")=1 or request.Cookies("user")("login")="true" or request.Cookies("admin")("login")="true" then%>
<div class="main_top">
<div class="label">
<a href="?lm=<%=request("lm")%>&order=default" <%if request("order")="default" then%> class="lactive"<%end if%>><i class="layui-icon layui-icon-ok"></i>默认</a>
<a href="?lm=<%=request("lm")%>&order=new" <%if request("order")="new" then%> class="lactive"<%end if%>><i class="layui-icon layui-icon-log"></i>最新</a>
<a href="?lm=<%=request("lm")%>&order=zan" <%if request("order")="zan" then%> class="lactive"<%end if%>><i class="layui-icon layui-icon-praise"></i>最赞</a>
<a href="?lm=<%=request("lm")%>&order=hot" <%if request("order")="hot" then%> class="lactive"<%end if%>><i class="layui-icon layui-icon-fire"></i>最热</a>
<a href="message.asp?type=receive" <%if request("type")="receive" then%> class="lactive"<%end if%> style="float:right"><i class="layui-icon layui-icon-form"></i>我的消息<%=snum%></a>
<a href="message.asp?type=send" <%if request("type")="send" then%> class="lactive"<%end if%> style="float:right"><i class="layui-icon layui-icon-form"></i>我发的私信</a>
<a href="index.asp?order=my" <%if request("order")="my" then%> class="lactive"<%end if%> style="float:right"><i class="layui-icon layui-icon-form"></i>我发的帖子</a>
</div>
</div>
<%
if request("order")="my" and request.Cookies("user")("login")="" and request.Cookies("admin")("login")="" then
%>
<div class="guset_mes">
您需要登录后才可以查看，
请先<a href="#" onclick="user_login()">登录</a>
</div>
<%
else
%>
<div class="comment">
<div class="c_list list-loop" >
<%
if request("order")="my" then
my_mid="01,"
sql="select * from comment where uid='"&my_id&"' and class in (0,1)"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
my_mid=my_mid&rs("upid")&","
rs.movenext
loop
end if
rs.close
my_mid=left(my_mid,len(my_mid)-1)
end if
rquest_lm=jianbook.enhtml(request.QueryString("lm"))
rquest_ip=jianbook.enhtml(request("ip"))
rquest_uid=jianbook.enhtml(request("uid"))
rquest_key=jianbook.enhtml(request("key"))
sql="select * from comment where upid=0 and class in (0,1)"
if jianbook.sysinfo("audit")=1 and request.Cookies("admin")("login")="" then
sql1=sql1&" and zt=1"
end if
if request("lm")<>"" then
sql1=sql1&" and lm='"&rquest_lm&"'"
end if
if request("ip")<>"" then
sql1=sql1&" and ip='"&rquest_ip&"'"
end if
if request("utype")=1 then
sql1=sql1&" and type=1"
end if
if request("uid")<>"" then
sql1=sql1&" and uid='"&rquest_uid&"'"
end if
if request("order")="my" then
sql1=sql1&" and uid='"&my_id&"'"
end if
if request("key")<>"" then
sql1=sql1&" and content like '%"&rquest_key&"%'"
end if
sql2=" order by ontop desc,replytime desc,id desc"
if request("order")="new" then
sql2=" order by id desc"
end if
if request("order")="zan" then
sql2=" order by zan desc"
end if
if request("order")="hot" then
sql2=" order by reply desc"
end if
mysql=sql&sql1&sql2
'response.Write mysql
rs.open mysql,conn,1,3
if not rs.eof then
dim currentpage,page_count,Pcount
dim totalrec,endpage
if request("page")="" then
currentPage=1
else
currentPage=cint(request("page"))
end if
perpage=10
rs.PageSize = perpage
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
lou=0
while (not rs.eof) and (not page_count = rs.PageSize)
select case rs("uid")
case "-1"
art_title=rs("name")
case "0"
art_title="admin"
case else
sql="select * from [user] where id="&rs("uid")
set rs2=conn.execute(sql)
if not rs2.eof then
art_title=rs2("username")
end if
rs2.close
end select
%><div class="c_show loop">
<div class="details-avatar">
<%jianbook.user_tx rs("uid"),rs("ip")%>
</div>
<div class="comment_list" >
<ul><li>
<h1> <a href="show.asp?id=<%=rs("id")%>"><%=art_title%> </a></h1>
<%if rs("ontop")=1 then%><div class="iconfont icon-fire ontop"></div><%end if%>
<h2><%=jianbook.utype(rs("type"))%> | <%if rs("ip")<>"" then response.Write look_ip(rs("ip"))&" | " end if%> <%=jianbook.formatdate(rs("intime"))%> </h2></li>
<% if rs("class")=1 then%>
<li > <article ><a href="show.asp?id=<%=rs("id")%>"><%=rs("name")%><b class="more"> 「 详情 」</b></a>
<%if rs("zt")=0 and jianbook.sysinfo("audit")=1 then%>
<div class="noaudit">未审核</div>
<%end if%>
</article>
</li>
<%else%>
<li > <article ><a href="show.asp?id=<%=rs("id")%>"><%=jianbook.enhtml(rs("content"))%> </a>
<%if rs("zt")=0 and jianbook.sysinfo("audit")=1 then%>
<div class="noaudit">未审核</div>
<%end if%>
</article>
<%if rs("pic")<>"" then%>
<div class="c_pic">
<%
mpic=split(rs("pic"),",")
for pi=0 to ubound(mpic)
%>
<a href="<%=mpic(pi)%>" ><img src="<%=mpic(pi)%>" /></a>
<%
next%>
</div>
<%end if%>
</li>
<%end if%>
<%
rsql="select * from [comment] where upid="&rs("id")&""
sql=rsql&rsql1&" order by id desc"
rs1.open Sql,conn,3,1
if not rs1.eof then
i=0%>
<div class="readmore">
<div class="reply_div ">
<%do while not rs1.eof
select case rs1("uid")
case "-1"
com_author=rs1("name")
case "0"
com_author="admin"
case else
sql="select * from [user] where id="&rs1("uid")
set rs2=conn.execute(sql)
if not rs2.eof then
com_author=rs2("username")
end if
rs2.close
end select
if rs1("class")=2 then
select case rs1("name")
case "0"
reply_author="admin"
case else
sql="select * from [user] where id="&rs1("name")
set rs2=conn.execute(sql)
if not rs2.eof then
reply_author=rs2("username")
end if
rs2.close
end select
com_title=com_author&"<b>回复</b>"&reply_author
else
com_title=com_author
end if
i=i+1%>
<div class="reply_list">
<ul>
<li><h1 class="tips" tips="回复" onclick="tc('回复【<%=com_author%>】','lib/message.asp?upid=<%=rs("id")%>&class=2&send=<%=rs1("uid")%>',800,400)"><%=com_title%> </h1><h2><%=jianbook.utype(rs1("type"))%> | <%if rs("ip")<>"" then response.Write look_ip(rs1("ip"))&" | " end if%><%=jianbook.formatdate(rs1("intime"))%></h2>
<%if jianbook.isadmin() or request.Cookies("user")("id")=rs1("uid") then%>
<!--<span class="iconfont icon-xiaoxizhongxin com-replay" ><b>回复</b></span> -->
<span class="layui-icon layui-icon-delete" onclick="del_reply(this,<%=rs1("id")%>,<%=rs1("upid")%>)" ></span> <%end if%> </li>
<li><article > <%=jianbook.enhtml(rs1("content"))%></article>
</li>
</ul>
<div class="clear"></div>
<%if i<>rs1.recordcount and rs1.recordcount>1 then %><div class="line"></div><%end if%>
</div>
<%rs1.movenext
loop%>
</div>
</div>
<%
end if
rs1.close
%>
</ul>
<div class="clear"></div>
<div class="c_tool"> <span class="layui-icon layui-icon-praise" onclick="zan(this,<%=rs("id")%>)"><b><%=rs("zan")%></b></span>
<%if rs("noreply")=false then%>
<span class="layui-icon layui-icon-dialogue" onclick="tc('回复【<%=rs("name")%>】','lib/message.asp?upid=<%=rs("id")%>',800,400)"><b><%=rs("reply")%></b></span>
<%end if%>
<span class="iconfont icon-erweima" onclick="qrcode(<%=rs("id")%>)"><b>分享</b></span>
<%if jianbook.isadmin() or request.Cookies("user")("id")=rs("uid") then%>
<%if rs("class")=0 then%>
<span class="layui-icon layui-icon-edit tips" onclick="tc('编辑【<%=rs("name")%>】','lib/message.asp?id=<%=rs("id")%>',800,400)" tips="编辑文章"></span>
<%else%>
<span class="layui-icon layui-icon-edit tips" onclick="pop_up('编辑【<%=rs("name")%>】','lib/article.asp?id=<%=rs("id")%>','95%','95%')" tips="编辑文章"></span>
<%end if%>
<span class="layui-icon layui-icon-close tips" onclick="dell(this,<%=rs("id")%>)" tips="删除帖子"></span>
<%end if%>
<%if jianbook.isadmin() then%>
<%if rs("zt")=0 and jianbook.sysinfo("audit")=1 then%>
<span class="layui-icon layui-icon-ok tips" onclick="set('zt',1,<%=rs("id")%>,'审核通过？')" tips="审核通过"></span><%end if%>
<span class="layui-icon layui-icon-flag tips" onclick="set_attr(<%=rs("id")%>,[<%=rs("ontop")%>,<%=rs("isnice")%>,<%=rs("isnote")%>])" tips="设置属性"></span>
<%if rs("noreply")=False then%>
<span class="iconfont icon-jinzhipinglun tips" onclick="set('noreply',true,<%=rs("id")%>,'禁止评论？')" tips="禁止评论"></span>
<%else%>
<span class="iconfont icon-comments tips" onclick="set('noreply','false',<%=rs("id")%>,'恢复评论？')" tips="恢复评论"></span><%end if%>
<%if rs("slide")=1 then%>
<span class="iconfont icon-wrong tips" onclick="set('slide',0,<%=rs("id")%>,'取消幻灯片？')" tips="取消幻灯片"></span>
<%else%>
<span class="iconfont icon-success tips" onclick="set('slide',1,<%=rs("id")%>,'设置幻灯片？')" tips="设置幻灯片"></span><%end if%>
<%end if%>
<%
if rs("file")<>"" then
suffix=Mid(rs("file"), InstrRev(rs("file"), ".") + 1)
if instr("mp4,avi,MOV",suffix)>0 then
%>
<a href="javascript:void(0)" class="m-video" data-src="<%=rs("file")%>"><i class="iconfont icon-play-filling"></i> 观看 </a>
<%else
%>
<%if jianbook.isadmin() then%>
<a href="javascript:void(0)" class="c_file" onclick="set_file(<%=rs("id")%>,<%=rs("jf")%>)" ><i class="iconfont icon-fujian1"></i> 设置下载积分</a>
<%else%>
<a href="javascript:void(0)" class="c_file" onclick="down_file(<%=rs("id")%>)"><i class="iconfont icon-fujian1"></i> 附件下载
</a> <%if rs("jf")>0 then response.Write "(需"&rs("jf")&"积分)" end if%>
<%end if%>
<%end if
end if
%>
<%if rs("lm")<>"" then%><em class="lmtype"><a href="?lm=<%=rs("lm")%>"><i class=" layui-icon layui-icon-note"></i><%=rs("lm")%></a></em><%end if%>
</div>
</div></div>
<%page_count = page_count + 1
rs.movenext
lou=lou+1
wend
else%>
<div class="guset_mes">
没有信息
</div>
<%
end if
rs.close%>
</div>
<div class="pagemore">
<%
if totalrec>perpage then
dim ii,p,n
if totalrec mod perpage=0 then
n= totalrec \ perpage
else
n= totalrec \ perpage+1
end if
if currentPage=n then
response.Write"<a href='' class=page_none></a>"
else
response.Write"<a href='?page="¤tPage +1&"&lm="&request("lm")&"&order="&request("order")&"&uid="&request("uid")&"' class='layui-btn layui-btn-primary' >查看更多</a>"
end if
end if
%>
</div>
</div>
<%
end if
else%>
<div class="comment">
<div class="guset_mes">
您需要登录后才可以查看，
请先<a href="#" onclick="user_login()">登录</a>
</div>
</div>
<%end if%>
</div>
<div class="layui-col-md3 leftdiv">
<div class="" id="left">
<div class="layui-card" style="margin-top:10px">
<div class="layui-card-header">公告</div>
<div class="layui-card-body">
<ul class="right-list">
<%
sql="select top 1 * from comment where class=0 and isnote=1 order by intime desc"
rs.open sql,conn,1,1
if not rs.eof then
%>
<a href="show.asp?id=<%=rs("id")%>"><%=jianbook.enhtml(rs("content"))%> </a>
<%
end if
rs.close
%>
</ul>
</div>
</div>
<div class="layui-card" style="margin-top:10px">
<div class="layui-card-header">推荐文章</div>
<div class="layui-card-body">
<ul class="right-list">
<%
sql="select top 10 * from comment where class=1 and isnice=1 "
if request("lm")<>"" then
sql1=sql1&" and lm='"&request("lm")&"'"
end if
msql=sql&sql1&" order by intime desc "
rs.open msql,conn,1,1
if not rs.eof then
do while not rs.eof %>
<li> <a href="show.asp?id=<%=rs("id")%>"><%=rs("name")%> </a> </li>
<%
rs.movenext
loop
end if
rs.close
%>
</ul>
</div>
</div>
<div class="layui-card" style="margin-top:10px">
<div class="layui-card-header">友情链接</div>
<div class="layui-card-body">
<ul class="right-list">
<%
Sql="select * from [type] where islink=1 order by num asc,id desc"
rs1.open Sql,conn,3,3
if not rs1.eof then
do while not rs1.eof
navurl=rs1("url")
%>
<li><a href="<%=navurl%>" target='_blank'><%=rs1("title")%></a></li>
<%
rs1.movenext
loop
end if
rs1.close%>
</ul>
</div>
</div>
<!--<div class="layui-card" style="margin-top:10px">
<div class="layui-card-header">最新会员</div>
<div class="layui-card-body">
<ul >
<%
'Sql="select top 6 * from [user] where del=0 order by id desc"
'rs1.open Sql,conn,3,3
'if not rs1.eof then
'do while not rs1.eof
'if isnull(rs1("pic")) then
'author_tx="<img src='ui/images/user_01.jpg' /></a>"
'else
'author_tx="<img src='"&rs1("pic")&"' /></a>"
'end if
%>
<li class="user-list"><div class="user-pic"><%'=author_tx%></div> <div class="user-right"><h1><%'=rs1("username")%> </h1><p><%'=rs1("intime")%> </p></div></li>
<%
'rs1.movenext
'loop
'end if
'rs1.close%>
</ul>
</div>
</div>-->
</div>
</div>
</div>
<div class="foot">© <%=year(now())%> <%=jianbook.cor%></div>
<script type="text/javascript" src="ui/jquery.js"></script>
<script type="text/javascript" src="ui/layui/layui.js"></script>
<script type="text/javascript" src="ui/jq.js"></script>
<script type="text/javascript" src="ui/qrcode.min.js"></script>
<script type="text/javascript" src="ui/pc.js?11"></script>
<script>
$(function(){
$(window).bind("scroll",function(){
var h1=$(".leftdiv").offset().top
var w1=$(".leftdiv").width()
var s1=$(document).scrollTop()
if (s1>=h1){
console.log(1)
$("#left").css("position","fixed")
$("#left").css("width",w1)
$("#left").css("top",60)
}else
{
$("#left").css("position","")
}
console.log(h1,s1,w1)
})
})
</script>
<%
jianbook.jcount(1)
%>
</body>
</html>
Вы можете оставить комментарий после Вход в систему
Неприемлемый контент может быть отображен здесь и не будет показан на странице. Вы можете проверить и изменить его с помощью соответствующей функции редактирования.
Если вы подтверждаете, что содержание не содержит непристойной лексики/перенаправления на рекламу/насилия/вульгарной порнографии/нарушений/пиратства/ложного/незначительного или незаконного контента, связанного с национальными законами и предписаниями, вы можете нажать «Отправить» для подачи апелляции, и мы обработаем ее как можно скорее.
Опубликовать ( 0 )