《华报》电子版 - 风花雪月

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rsGetCol__MMColParam rsGetCol__MMColParam = "y" If (Request("MM_EmptyValue") <> "") Then rsGetCol__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsGetCol Dim rsGetCol_numRows Set rsGetCol = Server.CreateObject("ADODB.Recordset") rsGetCol.ActiveConnection = MM_conn_verygood_STRING rsGetCol.Source = "SELECT * FROM newscolumn WHERE active = '" + Replace(rsGetCol__MMColParam, "'", "''") + "' ORDER BY id ASC" rsGetCol.CursorType = 0 rsGetCol.CursorLocation = 2 rsGetCol.LockType = 1 rsGetCol.Open() rsGetCol_numRows = 0 %> <% Dim rsGetActiveC__MMColParam rsGetActiveC__MMColParam = "y" If (Request("MM_EmptyValue") <> "") Then rsGetActiveC__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsGetActiveC Dim rsGetActiveC_numRows Set rsGetActiveC = Server.CreateObject("ADODB.Recordset") rsGetActiveC.ActiveConnection = MM_conn_verygood_STRING rsGetActiveC.Source = "SELECT * FROM newscolumn WHERE active = '" + Replace(rsGetActiveC__MMColParam, "'", "''") + "'" rsGetActiveC.CursorType = 0 rsGetActiveC.CursorLocation = 2 rsGetActiveC.LockType = 1 rsGetActiveC.Open() rsGetActiveC_numRows = 0 %> 《华报》电子版 - 风花雪月

<% DisplayMonth = (MonthName(Month(Date))) DisplayMonth = Left(DisplayMonth, 3) & "." %> <%=DisplayMonth%><%=Day(Date)%>,<%=Year(Date)%> 第<%=(DateDiff("ww", Now, "10/08/2004 00:00:01")*-1)%>期

主页

贺词

发行点

刊登广告

欢迎投稿

联系我们

诚邀加盟

创刊词

<% while not rsGetCol.EOF %> <% rsGetCol.MoveNext wend %>

E-MAIL信箱：

总信箱: info@verygood.ca
广告信箱: ad@verygood.ca
投稿信箱: editor@verygood.ca
社长信箱: wangwang@verygood.ca

联系电话：

报社办公电话：(416)412-7712 (416)858-2538

报社传真电话: (416)412-1656

加拿大多伦多总部地址：

14 Tooklea Cres., Toronto, Ontario, Canada M1S 4C1

　

华报中国区负责人名单：

中国区总裁：王国英
北京联络处：李小环

上海联络处：张强

广州联络处：肖国强
广东联络处：唐娴方

甘肃联络处：孙昕

浙江联络处：金状委

江苏联络处：黄家丽

河北联络处：陈晨

山东联络处：陈晨

云南联络处：王依丽

贵州联络处:彭荭

主页

贺词