/"> http://www.annahome.net/ ☆★☆★娜年那月——原【亚娜设计工作室】v4.0 gb2312 annahome@163.com <% '=========================================定义日记本网址变量 dlog_url="http://www.annahome.net/" '=========================================================== cat_id=request("cat_id") if cat_id<>"" then bycat="where cat_id="&cat_id else bycat="" end if dim rs dim SQL set rs = Server.CreateObject("ADODB.Recordset") SQL = "Select top 10 * from log "&bycat&" order by log_id desc" rs.open SQL,conn,1,1 if rs.Eof or rs.Bof then response.write "" end if do until rs.Eof or total = 20 checkhide(rs("cat_id")) if noneshow="true" then Response.Write "" response.write ""&dlog_url&"showlog.asp?log_id="&rs("log_id")&"" Response.write "" response.write ""&rs("log_author")&"" response.write "隐藏分类" response.write ""&rs("written_time")&"" response.write "内容不可见" response.write "" else Response.Write "" response.write ""&dlog_url&"showlog.asp?log_id="&rs("log_id")&"" Response.write "" response.write ""&rs("log_author")&"" response.write ""&incat&"" response.write ""&rs("written_time")&"" realcontent=rs("log_content") realcontent=unhtml(realcontent) 'if rs("allows")=0 then realcontent=Smilies(realcontent) if rs("allowubb")=0 then realcontent=ubb(realcontent) response.write "" response.write "" end if rs.MoveNext i = i + 1 total = total + 1 loop set rs=nothing conn.Close set conn = nothing %>