<%
set rs_n2=server.createobject("adodb.recordset")
rs_n2.open "select content from News_main where BigClassName='公司簡介' order by infotime desc",conn,1,1
if rs_n2.recordcount=0 then
response.write"資料整理中..."
else
dim info_Content
info_Content=rs_n2("content")
response.Write gotTopic(RemoveHTML(info_Content),650)
info_Content=Null
end if
rs_n2.close
set rs_n2=nothing
%>
最新動態
-
<%dim todyArticle,totalArticle
set rs=server.createobject("adodb.recordset")
rs.open "select id,title,infotime from News_main where BigClassName='新聞動態' order by infotime desc",conn,1,1
dim titleLatestNews,dateLatestNews,idLatestNews,rsRecordCount
rsRecord=rs.recordcount
TotalArticle=rsRecord
if rsRecord>6 then
rsRecord=6
end if
for y1=1 to rsRecord
titleLatestNews=rs("title")
idLatestNews=rs("id")
infotime=FormatDateTime(rs("infotime"),2)
%>
- <%=gotTopic(titleLatestNews,35)%> <%=infotime%> <%rs.movenext next titleLatestNews=null dateLatestNews=null idLatestNews=null rs.close set rs=nothing %>
<%
set rs_n2=server.createobject("adodb.recordset")
rs_n2.open "select content from News_main where BigClassName='公司簡介' order by infotime desc",conn,1,1
if rs_n2.recordcount=0 then
response.write"資料整理中..."
else
dim info_Content
info_Content=rs_n2("content")
response.Write gotTopic(RemoveHTML(info_Content),650)
info_Content=Null
end if
rs_n2.close
set rs_n2=nothing
%>
-
<%dim rsc,xCount
set rsc=server.createobject("adodb.recordset")
rsc.open "select bookid,bookname,bookpic,bookid from shop_books where bestbook=1",conn,1,1
xCount=rsc.recordcount
if xCount>10 then
xCount=10
end if
for k=1 to xCount
p_bookname=rsc("bookname")
p_bookpic=rsc("bookpic")
p_bookid=rsc("bookid")
%>
- <%rsc.movenext next rsc.close:set rsc=nothing%>
-
<%dim title,revID,curStyle,smallCategory,bID,leixing
revID=trim(request.QueryString("anid"))
bID=trim(request.QueryString("nid"))
leixing=lcase(trim(request("lx")))
set rs=server.createobject("adodb.recordset")
rs.open "select anclass,anclassid,anclassidorder from shop_anclass order by anclassidorder",conn,1,1
do while not rs.eof
%>
- &lx=big"><%=rs("anclass")%> <%rs.movenext loop rs.close set rs=nothing%>
-
<%set rs_tj=server.createobject("adodb.recordset")
rs_tj.open "select top 12 bookid,bookname,bookpic,anclassid from shop_books where newbook=1 order by tejiabook desc",conn,1,1
dim k
k=rs_tj.recordcount
if k>12 then
k=12
end if
for i=1 to k
bookname=rs_tj("bookname")
bookpic=rs_tj("bookpic")
bookid=rs_tj("bookid")
anid=rs_tj("anclassid")
%>
-
&anid=<%=anid%>><%=bookname%>&anid=<%=anid%>>
<%
rs_tj.movenext
next
rs_tj.close
set rs_tj=nothing
bookname=null
bookpic=null
bookid=null
anid=null
%>
-
<%
set rs_tj=server.createobject("adodb.recordset")
rs_tj.open "select id,title,infotime from News_main where SmallClassName='行業動態' order by infotime desc",conn,1,1
dim kk3,newsDate
kk3=rs_tj.recordcount
if kk3>5 then
kk3=5
end if
for i=1 to kk3
newsDate=FormatDateTime(rs_tj("infotime"),2)
%>
-
<%=newsDate%>" target=_self><%=gotTopic(rs_tj("title"),35)%>
<%rs_tj.movenext
next
rs_tj.close
set rs_tj=nothing
%>
-
<%
set rs_tj=server.createobject("adodb.recordset")
rs_tj.open "select id,title,infotime from News_main where BigClassName='產品知識' order by infotime desc",conn,1,1
kk3=rs_tj.recordcount
if kk3>5 then
kk3=5
end if
for i=1 to kk3
newsDate=FormatDateTime(rs_tj("infotime"),2)
%>
-
<%=newsDate%>" target=_self><%=gotTopic(rs_tj("title"),35)%>
<%rs_tj.movenext
next
rs_tj.close
set rs_tj=nothing
%>
-
<%set rs=server.createobject("adodb.recordset")
rs.open "select top 5 bookname,bookpic from shop_case order by tejiabook desc",conn,1,1
ii=rs.recordcount
if ii>5 then
ii=5
end if
for i=1 to ii
title_news=rs("bookname")
bookpic=rs("bookpic")
%>
<%=gotTopic(title_news,20)%>
<%rs.movenext
next
rs.close:set rs=nothing%>