<%set rs=server.CreateObject("adodb.recordset") sql_one="select top 1 * from news where smallclassname='首页公司简介' order by id desc" rs.open sql_one,conn,1,1 if rs.eof and rs.bof then else%> <%=rs("content")%> <%end if rs.close set rs=nothing%>

新闻动态

NEWS更多»
<%set rs=server.CreateObject("adodb.recordset") sql_one="select top 1 * from news where bigClassName='新闻动态' order by id desc" rs.open sql_one,conn,1,1 if rs.eof and rs.bof then else strPic = rs("firstimagename") if strPic<>"" then strPic="images/ljd_311.jpg" else strPic="admin/"&rs("firstimagename") end if strId=rs("id") strTitle = rs("title") if len(strTitle)>10 then strTitle=left(strTitle,10) end if strContent =noHTML(rs("Content")) if len(strContent)>30 then strContent=left(strContent,30) end if %> <%end if rs.close set rs=nothing%>

<%=strTitle%>

<%=strContent%>

    <%strtype="新闻动态" set rs=server.createobject("adodb.recordset") sql_news="select * from news where bigClassName='新闻动态' and id<>"&strId&" order by id desc" rs.open sql_news,conn,1,1 if not rs.EOF then rs.pageSize=6 rs.AbsolutePage=1 for i=1 to rs.PageSize if rs.EOF then exit for end if strId=rs("id") strTitle = rs("title") if len(strTitle)>10 then strTitle=left(strTitle,10) end if strContent =noHTML(rs("Content")) if len(strContent)>30 then strContent=left(strContent,30) end if %>
  • <%=strTitle%>
    [<%=year(rs("infotime"))&"-"&month(rs("infotime"))&"-"&day(rs("infotime"))%>]
    • <% rs.movenext next end if%>

联系我们

CONTACT更多»
<%set rs=server.CreateObject("adodb.recordset") sql_one="select top 1 * from news where smallclassname='首页联系我们' order by id desc" rs.open sql_one,conn,1,1 if rs.eof and rs.bof then else%> <%=rs("content")%> <%end if rs.close set rs=nothing%>
品名 规格 材质 产地 提货地 价格 更新日期
<%set rs=server.createobject("adodb.recordset") sql_cp="select top 500 * from info order by id desc" rs.open sql_cp,conn,1,1 if rs.eof then response.write("暂无数据") else%> <% for i=1 to 50 if rs.eof then exit for end if%> <%rs.movenext next end if rs.close%>
<%=rs("answer1")%> <%=rs("answer2")%> <%=rs("answer3")%> <%=rs("answer4")%> <%=rs("answer6")%> <%=rs("answer5")%> <%=year(now())&"-"&right("0"& month(now()),2)&"-"&right("0"& day(now()),2)%>
    <% page=clng(request("page")) page = request("page") if not isnumeric(page) then response.Write "提交的页码参数错误，请确认！" response.End() end if if page="" then page=1 else page=clng(page) end if set rs=server.createobject("adodb.recordset") sql="select * from info_pic where pic_type='产品展示' order by oid desc, id desc" rs.open sql,conn,1,1 if not rs.eof then rs.pageSize=20 rs.AbsolutePage=page for i=1 to rs.PageSize if rs.EOF then exit for end if%>
  • " width="235" height="160" />

    <%=rs("title")%>

    • <% rs.movenext next end if%>