<% web_robots="all" '用來告訴搜索機器人哪些頁面需要索引,哪些頁面不需要索引 web_designer="Rita Kao Orange" web_date="30-November-2010 16:00:00" web_description="德昌富鴻 - 富士多媒體線上購物" web_keywords="德昌富鴻 富士多媒體 線上購物 3C 音響 家電 LCD 螢幕 電視 數位 影音商城 投影機" web_title="德昌富鴻 - 富士多媒體線上購物 - 投影機、液晶電視" web_link="" web_css="" %>

最新消息

<% Dim sqlStr,allNews,rs_q pages_size=8 rootasp=request.ServerVariables("Path_Info") Connection whereStr=" types=1 and Publish='1' and replace(Udate,'/','-')+' '+Utime<=CONVERT(varchar(16),getdate(),120 ) and replace(Ldate,'/','-')+' '+Ltime>=CONVERT(varchar(16),getdate(),120 ) " orderStr=" order by sortnum desc, set_time desc, num desc" sqlstr = "select * from news where "&whereStr&orderStr set allNews = Server.CreateObject("ADODB.Recordset") allNews.Open sqlstr ,conn,1,3 total_data=allNews.Recordcount pages = total_pages(total_data,pages_size) if pages=0 then pages=1 allNews.Close now_pages=strfilter2(request("now_pages"),"int") if now_pages&""="" then now_pages = 1 else if isnumeric(now_pages)=false then now_pages = 1 end if if pages=1 then '所有查詢規則需一致 sqlstr="select * from news where "&whereStr&orderStr '只有一頁時 end if if pages<>1 then sqlstr="SELECT TOP " & cint(pages_size) & " * FROM news where "&whereStr&orderStr '多頁時第一頁查詢語法(增加top) end if if pages<>1 and now_pages<>1 then '中間頁查詢語法 sqlstr="SELECT TOP " & cint(pages_size) & " * FROM news WHERE "&whereStr&" and (num NOT IN(SELECT TOP " & cint(pages_size)*(cint(now_pages) - 1) & " num FROM "&whereStr&orderStr&") "&orderStr end if set rs_q= conn.execute(sqlstr) if not rs_q.eof then while not rs_q.eof if rs_q("sub_title")<>"" then sub_title=cut_str(rs_q("sub_title"),78,"...") sub_title=replace(sub_title,vbcrlf,"
") else sub_title="暫無簡述說明" end if %>
">" title="<%=rs_q("title_pic")%>" />

"><%=rs_q("title")%>

<%=replace(rs_q("Udate"),"/","-")%>

"><%=sub_title%>

<% rs_q.movenext wend end if rs_q.close %> top
<% page_first="img/page_first.gif" page_previous="img/page_previous.gif" page_next="img/page_next.gif" page_last="img/page_last.gif" page_next10="img/page_next10.gif" if pages>1 then response.write "
" if now_pages<>1 and pages>1 then response.write "第一頁 第一頁" if now_pages<>1 then response.write "上一頁 上一頁" if pages<=10 then firstValue=1 lastValue=pages end if if pages>10 then if pages-now_pages>=5 then if now_pages>=5 then firstValue=now_pages-4 lastValue=now_pages+5 else firstValue=1 lastValue=10 end if else firstValue=pages-9 lastValue=pages end if end if for pageLoop=firstValue to lastValue if int(pageLoop)<>int(now_pages) then response.write " "&pageLoop&" " else response.write " "&pageLoop&" " end if next if now_pages=1 or (cint(now_pages)<>cint(pages) and cint(pages)<>1) then response.write "下一頁 下一頁" if pages<>1 then response.write "最末頁 最末頁" end if %>