东莞网站优化|东莞网络营销|东莞网站推广_【互诺网络】卓越的东莞网站建设,东莞网络公司

东莞网站建设 > 新闻中心

<%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_author")%> 发布日期：<%=rs("a_date")%>

<%=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=7 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%> [<%=rs("a_date")%>]

<%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%>