<% lang="c" page=request("nextpage") if page="" then page=1 end if pevpage=page-1 nextpage=page+1 strDate=request("strDate") if strDate="" then strDate=year(date()) & "/" if month(date())<10 then strDate=strDate & "0" end if strDate=strDate & month(date()) & "/" if day(date())<10 then strDate=strDate & "0" end if strDate=strDate & day(date()) end if %> Home - <%=sitename%> <% strSQL="SELECT isnull(sum(cast(image_w as float)),0) FROM tb_image where image_type=1" set rsSum=MSCS.EXECUTE(strSQL) sumWidth=round(rsSum(0),0) rsSum.close set rsSum=nothing %>
<% Leftlink="#" LeftTarget="" strSQL="SELECT content_id, content_title_" & lang & " as content_title, content_s_" & lang & " as content_short, content_url_" & lang & " as content_url, content_url_type_" & lang & " as content_url_type" strSQL=strSQL & " FROM tb_content WHERE content_id=1" set rsLeft=MSCS.EXECUTE(strSQL) if not rsLeft.EOF then if rsLeft("content_url")="" then Leftlink="/" & lang & "/content/cont_page.asp?content_id=1" else Leftlink=rsLeft("content_url") end if if trim(rsLeft("content_url_type"))="1" then LeftTarget=" target=""_blank""" end if end if %> onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image10','','/<%=lang%>/images/sub_donation_over.jpg',1)"> <% Leftlink="#" LeftTarget="" strSQL="SELECT content_id, content_title_" & lang & " as content_title, content_s_" & lang & " as content_short, content_url_" & lang & " as content_url, content_url_type_" & lang & " as content_url_type" strSQL=strSQL & " FROM tb_content WHERE content_id=2" set rsLeft=MSCS.EXECUTE(strSQL) if not rsLeft.EOF then if rsLeft("content_url")="" then Leftlink="/" & lang & "/content/cont_page.asp?content_id=2" else Leftlink=rsLeft("content_url") end if if trim(rsLeft("content_url_type"))="1" then LeftTarget=" target=""_blank""" end if end if %> onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image11','','/<%=lang%>/images/sub_recyle_over.jpg',1)"> <% Leftlink="#" LeftTarget="" strSQL="SELECT content_id, content_title_" & lang & " as content_title, content_s_" & lang & " as content_short, content_url_" & lang & " as content_url, content_url_type_" & lang & " as content_url_type" strSQL=strSQL & " FROM tb_content WHERE content_id=3" set rsLeft=MSCS.EXECUTE(strSQL) if not rsLeft.EOF then if rsLeft("content_url")="" then Leftlink="/" & lang & "/content/cont_page.asp?content_id=3" else Leftlink=rsLeft("content_url") end if if trim(rsLeft("content_url_type"))="1" then LeftTarget=" target=""_blank""" end if end if %> onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image12','','/<%=lang%>/images/sub_earth_over.jpg',1)">
<%strSQL="SELECT b_filename_" & lang & " as b_filename, b_txt_" & lang & " as b_txt, b_fileLink_" & lang & " as b_fileLink, content_id, linkType, b_LinkType_" & lang & " as b_LinkType FROM b2b_banner WHERE b_Type=0 AND b_status=0 AND getdate() between b_sDate AND b_eDate ORDER BY seq" set rsBanner=MSCS.EXECUTE(strSQL) while not rsBanner.EOF if rsBanner("linkType")=1 then response.write("" & vbcrlf) else if rsBanner("b_fileLink")="" then response.write("" & vbcrlf) else if trim(rsBanner("b_LinkType"))="0" then targetStr="" else targetStr=" target=""_blank""" end if response.write("" & vbcrlf) end if end if rsBanner.movenext wend set rsBanner=nothing%>
    <%strSQL="SELECT b_filename_" & lang & " as b_filename, b_txt_" & lang & " as b_txt, b_fileLink_" & lang & " as b_fileLink, content_id, linkType, b_linkType_" & lang & " as b_linkType FROM tb_banner2 WHERE b_Type=0 AND b_Status=0"%> <%set rsBanner=MSCS.EXECUTE(strSQL)%> <% if not rsBanner.EOF then if trim(rsBanner("b_linkType"))="1" then trStr=" target=""_blank""" else trStr="" end if if trim(rsBanner("linkType"))="1" then response.write("
  • " & vbcrlf) else if rsBanner("b_fileLink")="" then response.write("
  • " & vbcrlf) else response.write("
  • " & vbcrlf) end if end if else response.write("
  • " & vbcrlf) end if set rsBanner=nothing%> <%strSQL="SELECT b_filename_" & lang & " as b_filename, b_txt_" & lang & " as b_txt, b_fileLink_" & lang & " as b_fileLink, content_id, linkType, b_linkType_" & lang & " as b_linkType FROM tb_banner2 WHERE b_Type=1 AND b_Status=0"%> <%set rsBanner=MSCS.EXECUTE(strSQL)%> <% if not rsBanner.EOF then if trim(rsBanner("b_linkType"))="1" then trStr=" target=""_blank""" else trStr="" end if if trim(rsBanner("linkType"))="1" then response.write("
  • " & vbcrlf) else if rsBanner("b_fileLink")="" then response.write("
  • " & vbcrlf) else response.write("
  • " & vbcrlf) end if end if else response.write("
  • " & vbcrlf) end if set rsBanner=nothing%> <%strSQL="SELECT b_filename_" & lang & " as b_filename, b_txt_" & lang & " as b_txt, b_fileLink_" & lang & " as b_fileLink, content_id, linkType, b_linkType_" & lang & " as b_linkType FROM tb_banner2 WHERE b_Type=2 AND b_Status=0"%> <%set rsBanner=MSCS.EXECUTE(strSQL)%> <% if not rsBanner.EOF then if trim(rsBanner("b_linkType"))="1" then trStr=" target=""_blank""" else trStr="" end if if trim(rsBanner("linkType"))="1" then response.write("
  • " & vbcrlf) else if rsBanner("b_fileLink")="" then response.write("
  • " & vbcrlf) else response.write("
  • " & vbcrlf) end if end if else response.write("
  • " & vbcrlf) end if set rsBanner=nothing%>
<%strSQL="SELECT filename, isnull(ci.content_id,0) as content_id FROM tb_image i LEFT JOIN tb_content_image ci ON ci.img_filename=i.filename AND ci.img_type=0 WHERE i.image_type=1 ORDER BY update_date DESC" set rsImage=MSCS.EXECUTE(strSQL) while not rsImage.EOF%>
<%if trim(rsImage("content_id"))<>"0" then%> ">" border="0"> <%else%> " border="0"> <%end if%>
<%rsImage.movenext wend set rsImage=nothing%>
<% set rsNews=server.createobject("ADODB.recordset") strSQL="SELECT content_id, content_title_" & lang & " as content_title, content_s_" & lang & " as content_short, content_url_" & lang & " as content_url, content_url_type_" & lang & " as content_url_type FROM tb_content" strSQL=strSQL & " WHERE whatsnew=1 AND content_status=2" strSQL=strSQL & " ORDER BY content_date DESC, update_date DESC" rsNews.open strSQL, MSCS, 3, 3 if not rsNews.EOF then if page>1 then for i=0 to ((page-1)*4) if not rsNews.EOF then rsNews.movenext end if next end if iCount=0 while not rsNews.EOF and iCount<4 %>
<% iCount=iCount+1 rsNews.movenext wend end if %>
| <% strSQL="SELECT isNull(count(*),0) FROM tb_content WHERE whatsnew=1 AND content_status=2" set rsCount=server.createobject("ADODB.recordset") rsCount.open strSQL, MSCS, 3, 3 if rsCount(0)>0 then if page+0>1 then response.write(" 上一頁 |") end if if page+0>3 then if page+0>4 then response.write(" ...... |") else response.write(" ...... |") end if end if totalrecord=rsCount(0) totalpage=totalrecord \ 4 if totalrecord mod 4 > 0 then totalpage=totalpage+1 end if if page+0=1 then starti=1 endi=5 elseif page+0=2 then starti=1 endi=6 elseif page+0>totalpage-3 then starti=page-2 endi=totalpage else starti=page-2 endi=page+2 end if if endi>totalpage then endi=totalpage end if for i=starti to endi if trim(i)<>trim(page) then response.write(" " & i & " |") else response.write(" " & i & " |") end if next if enditotalpage-3 then response.write(" ...... |") else response.write(" ...... |") end if end if if page+0下一頁 |") end if rsCount.close end if set rsCount=nothing %>
    <%strSQL="SELECT b_filename_" & lang & " as b_filename, b_txt_" & lang & " as b_txt, b_fileLink_" & lang & " as b_fileLink, content_id, linkType, b_linkType_" & lang & " as b_linkType FROM b2b_banner WHERE b_Type=1 AND b_status=0 AND getdate() between b_sDate AND b_eDate ORDER BY seq" set rsBanner=MSCS.EXECUTE(strSQL) while not rsBanner.EOF if trim(rsBanner("b_linkType"))="1" then trStr=" target=""_blank""" else trStr="" end if if trim(rsBanner("linkType"))="1" then response.write("
  • " & vbcrlf) else if rsBanner("b_fileLink")="" then response.write("
  • " & vbcrlf) else response.write("
  • " & vbcrlf) end if end if rsBanner.movenext wend set rsBanner=nothing%>