<% nsort_id=Request("nsort_id") chkid(nsort_id) set rs=conn.execute("select nsort_name,sort_id from venshop_nsort where nsort_id="&nsort_id&"") if not rs.eof then nsort_name=rs("nsort_name") sort_id=rs("sort_id") end if rs.close set rs=nothing set rs=conn.execute("select sort_name,sort_skin from venshop_sort where sort_id="&sort_id&"") if not rs.eof then sort_name=rs("sort_name") if rs("sort_skin")<>"" then venshop_skin=rs("sort_skin") end if rs.close set rs=nothing order=request("order") page=request("page") orderx=getorder(order) page=getpage(page) %> 东莞网站优化|东莞网络营销|东莞网站推广_【互诺网络】卓越的东莞网站建设,东莞网络公司

东莞网站建设 > 新闻中心
<%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=6 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%>
点击联系我们 销前咨询
点击联系我们 销前咨询
点击联系我们 技术咨询
点击联系我们 售后服务
点击联系我们 售后服务