<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache" %> <% menu=4 %> <% sql="select * from shop_bigtype where 1=1" anclassid=trim(request("nclassid")) if anclassid<>"" and isnumeric(anclassid) then sql=sql&" and anclassid="&cint(anclassid) end if sql=sql&" order by anclassidorder asc,anclassid asc" set rstype=conn.execute(sql) if not(rstype.eof and rstype.bof) then title=rstype("anclass") idhao=rstype("anclassid") picurl=trim(rstype("picurl")) end if rstype.close set rstype=nothing %> <%if title<>"" then response.Write(title&"|") end if%><%=webtitle(menu)%> <%=webkeywords(menu)%>" /> <%=webdescription(menu)%>" />
" width="942" height="174" />
新闻动态
新闻动态
您现在的位置:新闻动态 - <%=title%>
<% Sql = "select * from shop_news where true" if idhao <> "" then Sql = Sql & " and anclassid="&idhao end if sql=sql&" order by adddate desc,newsid desc" Set mypage=New pagestream Set Ns=mypage.Execute(sql,conn,15) if mypage.TotalRc>0 then %>
    <% num=0 Do While Not Ns.Eof s_time=Ns("adddate") y = cstr(year(s_time)) m = cstr(month(s_time)) if len(m) = 1 then m = "0" & m d = cstr(day(s_time)) if len(d) = 1 then d = "0" & d format_time = y & "-" & m & "-" & d %>
  • "><%=Ns("newsname")%>[<%=format_time%>]
  • <% num=num+1 Ns.MoveNExt Loop %>
<%end if%>
<% if mypage.TotalRc>0 then %>
<%mypage.showpage():Set mypage=Nothing%>
<% else %>
网站内容正在建设中. . .
<% Ns.close set Ns=nothing end if %>