<!-- #include file="conn.asp" -->
<%
call Head()
dim id,page,ppage
id=usb(request.QueryString("id"))
if id="" or IsNumeric(id)=False then
  Call Error("出错啦","日志ID无效！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zonerj] where [ID]=" & ID,conn,1,1
if rs.eof then 
  Call Error("出错啦","该日志不存在或已被删除！")
  end if
call saycarda("查看日志")

page=request.QueryString("page")
if page="" or IsNumeric(page)=False then page=1
ppage=request.QueryString("ppage")
if ppage="" or IsNumeric(ppage)=False then ppage=1

response.write "[标题]:"
response.write ubb(rs("tit"))&"<br/>" 
response.write("[" &rs("tm") & "]<br/>")
response.write"－－－－－<br/>"
response.write ubb(rs("txt"))&"<br/>"






rs.close
set rs=Nothing
conn.close
set conn=Nothing

response.write "<br/><a href='blog.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回所有日记</a>"
%><!-- #include file="fanhui.asp" --><%
call head1()
%>