<% id=int(Getval("id",1)) sql="update bl_list set [view]=[view]+1 where id=" & id conn.execute(sql) sql="select * from bl_list where id=" & id set xrs=conn.execute(sql) sql="select bl_users.id,bl_users.title,bl_users.face2,bl_users.hidd,bl_users.content,uinfo.uname from bl_users left join uinfo on (uinfo.hidd=bl_users.hidd) where bl_users.hidd=" & xrs("hidd") set mrs=conn.execute(sql) content_=mrs("content") %> <%=xrs("title")&" "&mrs("title")%> 顺德家具网--家具人博客
您现在的位置:顺德家具网 >> 家具博客 >>"><%= mrs("title") %>
<%=xrs("title")%>
<% content =replace(xrs("content"),"","</script>") content =replace(content,"","</script>") content =replace(content,"
<%=content%>
 阅读数(<%=xrs("view")%>) 发表于:<%=formatdatetime(xrs("addtime"),2)%>  " target="_blank">查看评论(<%=GetPingNum(xrs("hidd"),xrs("id"))%>)  发表评论
文章评论:(最新5条) 更多评论>>
<% sql="select top 5 uname,content,addtime from bl_pinglun where bid=" &id & " order by addtime desc,id desc" set rs=conn.execute(sql) do while not rs.eof content=rs("content") %>
[<%= rs("uname") %>]: <%=rs("addtime") %>    
<%=content %>
<% rs.movenext loop %>

发表评论

您的称呼: " />

评论内容:

验证码: 看不清楚,换一个^_^ 

     

个人档案
" width="80" height="80" />
<%=mrs("uname")%>
<% if len(content_)>105 then Response.Write(left(content_,105)&"...") else Response.Write(content_) end if %>