<% if request.QueryString("id")="" then response.Redirect("index.asp") else if Iszs(request.QueryString("id"))=false then response.Redirect("index.asp") end if end if '文章 set wz=server.CreateObject("adodb.recordset") sql="select * from muban where id="&clng(request.QueryString("id"))&"" wz.open sql,coon,1,3 if wz.eof=false then if wz("zt")=1 then wz("hits")=wz("hits")+21 wz.update end if else response.Redirect("index.asp") end if '分类类别 set tp=server.CreateObject("adodb.recordset") sql="select * from mtp where m_id="&wz("m_id")&"" tp.open sql,coon,1,3 '大类类别 set ftp=server.CreateObject("adodb.recordset") sql="select * from mtp where m_id="&tp("b_id")&"" ftp.open sql,coon,1,3 '文章作者 set auser2=server.CreateObject("adodb.recordset") sql="select * from shangjia where u_id="&wz("s_id")&"" auser2.open sql,coon,1,3 '最新文章 set nwz=server.CreateObject("adodb.recordset") sql="select top 10 * from muban where m_id="&wz("m_id")&" and zt=1 order by id desc" nwz.open sql,coon,1,3 '热门文章 set hwz=server.CreateObject("adodb.recordset") sql="select top 10 * from muban where m_id="&wz("m_id")&" and zt=1 order by hits desc" hwz.open sql,coon,1,3 '增加评论 if request.QueryString("p")=1 then c=0 if request.Cookies("u")="" then c=1 response.Write("") end if if request.Form("content")="" then c=1 response.Write("") end if if c=0 then set ly=server.CreateObject("adodb.recordset") sql="select * from ly" ly.open sql,coon,1,3 ly.addnew ly("w_id")=wz("id") ly("u_id")=auser("u_id") ly("l_content")=HTMLEncode(request.Form("content")) ly.update response.Redirect("show.asp?id="&request.QueryString("id")&"") end if end if %> <%=wz("name")%>_<%=tp("name")%>_<%=ftp("name")%>_<%=w("w_name")%> ">
当前位置：">邵阳三农网 > "><%=ftp("name")%> > "><%=tp("name")%> > 文章详细
<%=wz("name")%>
<%if wz("zt")=1 then%> <%=wz("m_content")%><%else%>对不起！此文章尚在审核中,请选择其他资讯阅读……<%end if%>
文章评论
我要评论>>
    <%if nwz.eof=false then for i=1 to nwz.recordcount %>
  • <%=i%>
    "><%=nwz("name")%>
    • <% nwz.movenext if nwz.eof then exit for next end if nwz.close %>