ÍâÃ³ÐÍÍøÕ¾/½¨Éè_²úÆ·Óë·þÎñ_¡¾»¥ÅµÍøÂç¡¿×¿Ô½µÄ¶«Ý¸ÍøÕ¾½¨Éè,¶«Ý¸ÍøÂç¹«Ë¾-乐鱼体育官网

¶«Ý¸ÍøÕ¾½¨Éè >¿Í·þÖÐÐÄ

<%if request("typeid")="" and request("id")="" then%>

<%if request("a_id")<>"" then id=Request.QueryString("a_id") chkid(id) set rs=server.createobject("adodb.recordset") sql="select * from venshop_article where id="&id&"" rs.open sql,conn,1,1 if not rs.eof then%>

<%=rs("a_name")%>

·¢²¼Õß£º»¥ÅµÍøÂç

<%=rs("a_content")%>

<%end if rs.close set rs=nothing else if request("a_name")<>"" then a_name=DelStr(Request("a_name")) showp="&a_name="&a_name elseif request("newssort_id")<>"" then newssort_id=Request.QueryString("newssort_id") showp="&newssort_id="&newssort_id chkid(newssort_id) elseif request("newsnsort_id")<>"" then newsnsort_id=Request.QueryString("newsnsort_id") showp="&newsnsort_id="&newsnsort_id chkid(newsnsort_id) end if set rs=server.createobject("adodb.recordset") if a_name<>"" then sql="select id,a_name,a_date from venshop_article where a_name like '%"&a_name&"%' order by id desc" elseif newsnsort_id<>"" then sql="select id,a_name,a_date from venshop_article where a_nsort="&newsnsort_id&" order by id desc" elseif newssort_id<>"" then sql="select id,a_name,a_date from venshop_article where a_sort="&newssort_id&" order by id desc" else sql="select id,a_name,a_date from venshop_article where a_sort=8 order by id desc" end if rs.open sql,conn,1,1%>

<%if rs.eof then%> <%else rs.pagesize=20 totalrec=rs.recordcount totalpage=rs.pagecount if page>totalpage then page=totalpage rs.absolutepage=page rs.cachesize=rs.pagesize i=0 do while not rs.eof and (i"&a_name&"") %> <%rs.movenext loop End If rs.close set rs=nothing%>

No Date

" target=_blank><%=news_name%>

<%end if%> <%if id="" then%> method=post>

µÚ<%=page%>Ò³/¹²<%=totalpage%>Ò³ <%if page-1>0 then%> ÉÏÒ»Ò³ <%else%> ÉÏÒ»Ò³ <%end if%> <%if page+1<=totalpage then%> ÏÂÒ»Ò³ <%else%> ÏÂÒ»Ò³ <%end if%> Ò³ÃæÌø×ª£º

<%end if%>

<%elseif request("id")<>"" then id = Request.QueryString("id") If Not(isNumeric(id)) Then Response.Write "

²Ù×÷´íÎó£¡

" else set rs=server.createobject("adodb.recordset") sql="select * from venshop_book where id="&id&"" rs.open sql,conn,1,1 if not rs.eof then%>

ÄúµÄÎ»ÖÃ£º Ê×Ò³ >> ¹ØÓÚÎÒÃÇ >> <%=rs("title")%>

<%=rs("nr")%>

<%end if rs.close set rs=nothing End If elseif request("typeid")<>"" then typeid = Request.QueryString("typeid") If Not(isNumeric(typeid)) Then Response.Write "

²Ù×÷´íÎó£¡

" else set rs=server.createobject("adodb.recordset") sql="select typename from venshop_type where id="&typeid&"" rs.open sql,conn,1,1 if not rs.eof then typen=rs("typename") end if rs.close set rs=nothing %>

ÄúµÄÎ»ÖÃ£º Ê×Ò³ >> ¹ØÓÚÎÒÃÇ >> <%=typen%>

<%set rs=server.createobject("adodb.recordset") sql="select * from venshop_book where typeid="&typeid&" order by id asc" rs.open sql,conn,1,1 do while not rs.eof%>

<%=rs("title")%>

<%=rs("nr")%>

<%rs.movenext loop rs.close set rs=nothing%>

<%End If End If%>