<%
do while not rs.eof
mpic=split(rs("pic"),",")
%>
<%rs.movenext
loop
%>
<%
do while not rs.eof
mpic=split(rs("pic"),",")
'response.write mpic(1)&mpic(0)
'response.end
%>
<%
end if
rs.close%>
<%
rs.movenext
loop
%>
<%if jianji.sysinfo("guest")=1 or request.Cookies("user")("login")="true" or request.Cookies("admin")("login")="true" then%>
<%
if request("order")="my" and request.Cookies("user")("login")="" and request.Cookies("admin")("login")="" then
%>
<%end if%>
<%
Sql="select * from [type] where disp=1 and (islink is null or islink=0) and title<>'留言' order by num asc,id desc"
rs1.open Sql,conn,3,3
if not rs1.eof then
do while not rs1.eof
if rs1("islink")=1 then
navurl=rs1("url")
else
navurl="index.html?lm="&rs1("title")&""
end if
%>
&order=default" <%if request("lm")=rs1("title") then%> class="tactive"<%end if%>><%=rs1("title")%>
<%
rs1.movenext
loop
end if
rs1.close%>
&order=default" <%if request("order")="default" then%> class="lactive"<%end if%>>默认
&order=new" <%if request("order")="new" then%> class="lactive"<%end if%>>最新
&order=zan" <%if request("order")="zan" then%> class="lactive"<%end if%>>最赞
&order=hot" <%if request("order")="hot" then%> class="lactive"<%end if%>>最热
您需要登录后才可以查看,
请先登录
<%
else
%>
您需要登录后才可以查看,
请先登录
<%if request("lm")="留言" then%>
<%end if%>
<%if request("lm")<>"留言" then%>
<%end if%>
-
<%
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
%>
.html"><%=jianji.enhtml(rs("content"))%>
<%
end if
rs.close
%>
-
<%
sql="select top 20 * from comment where class=1 and disp=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
i=1
do while not rs.eof %>
- <%=i%> ,<%if rs("visitpwd")<>"" then response.write 1 else response.write 0 end if%>,1)"><%=rs("name")%> <% i=i+1 rs.movenext loop end if rs.close %>
<% if rs("class")=1 then%>-
<%if rs("visitpwd")<>"" then%><%end if%> ,<%if rs("visitpwd")<>"" then response.write 1 else response.write 0 end if%>,1)"><%=rs("name")%>
<%if rs("ontop")=1 then%><%end if%>
未审核
<%end if%>
<%else%>
-
-
.html"><%=jianji.enhtml(rs("content"))%>
<%if rs("zt")=0 and jianji.sysinfo("audit")=1 then%>
未审核
<%end if%>
<%if rs("pic")<>"" then%>
<%
mpic=split(rs("pic"),",")
for pi=0 to ubound(mpic)
%>
<%
next%>
<%end if%>
<%end if%>
<%if request("lm")<>"留言" and rs("stract")<>"" then%>
,<%if rs("visitpwd")<>"" then response.write 1 else response.write 0 end if%>,1)"><%=jianji.enhtml(rs("stract"))%>
<%elseif request("lm")="留言" then%>
<%
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%>
<%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&"评论"&reply_author
else
com_title=com_author
end if
i=i+1%>
<%=jianji.enhtml(rs1("content"))%>
<%if i<>rs1.recordcount and rs1.recordcount>1 then %><%end if%>
<%rs1.movenext
loop%>
<%
end if
rs1.close
%>
<%else%>
<%end if%>
<%if rs("lm")<>"" then%>" class="lmtype"><%=rs("lm")%><%end if%> <%=jianji.formatdate(rs("intime"))%>
<%if rs("zt")=0 and jianji.sysinfo("audit")=1 then%>"><%=art_title%>
<%if rs("ontop")=1 then%><%end if%><%=jianji.formatdate(rs("intime"))%>
&class=2&send=<%=rs1("uid")%>',800,400)"><%=com_title%>
<%=jianji.formatdate(rs1("intime"))%>
<%if jianji.isadmin() or request.Cookies("user")("id")=rs1("uid") then%> ,<%=rs1("upid")%>)" > <%end if%>