<% ' Graphical Hit Counter Example By www.PowerASP.com ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath ' (FixedDigitCount) will add zeros to the front of your count ' if the count is less then the (FixedDigitCount) ' just like "frontpage" counters let you do FixedDigitCount = 5 DigitPath = "../images/" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %> <% dim weekstr(6) weekstr(0) = "星期天日" : weekstr(1) = "星期一一" weekstr(2) = "二" : weekstr(3) = "三" weekstr(4) = "四" : weekstr(5) = "五" weekstr(6) = "六" nweek = datepart("w",date()) - 1'今天是星期几 %> 王兴华第二春网站欢迎您！
更多照片>>>
________
_______
___________
_________MingRen
HeCi_________________
第二春网页开篇词

您是第 <% =ShowDigits%>

位拜访者

今天是 <% =month(date())%> 月 <% =day(date())%> 日
首页 |二春论坛 |二春科学养生 | 二春产业开发 |二春呐喊 | 其它 |与我联系

__________________________ 开创人生“第二个春天”宣言____王兴华
　　_劝君莫奏黄昏曲，老人应唱春之歌。
____人在生理上只能有一个青春，但在精神上还可开创出"第二个春天"。朱唇红腮不能完全代表青春，脸上皱纹挡不住"第二个春天"，可怕的是心灵里长出老年斑。
____莫以白岁为人生终点，勿因年老而中断事业长河。
____日历年龄并非青春惟一标志，精神支柱可以创造永恒春天。
____要赋予人生以长寿，更要赋予长寿以生命。
____物质是养老基础，精神是养老支柱，科学是养老法宝,要把开创人生"第二个春天"这三大要素紧紧掌握在自己手中。
____昂首挺胸走在人生"第二个春天"的大路上，不要因势利眼小人的敬权敬钱不敬老而惆怅。
____人生“第二个春天”的理论是老年人生的一面旗帜，要高举这面大旗向一切旧的"黄昏末日论"和"包袱累赘论"养老观念宣战。
____呼吁世界各国政府和社会各界，都来支持老年人开创“第二个春天!”____朝文||德文||俄文||法文||日文||英文
链接更多照片

二春论坛－－二春呐喊集　我的青春之歌　科学养生　开创人生第二春天宣言
二春论－－开创人生第二个春天十年选集
共创人生第二个春天－－献给未来的老人们
共创人生第二个春天－－送二春论到日内瓦
共创人生第二个春天－－老年读本
作者简介：

——_王兴华，中共党员，教授。1920年出生于山东省招远县。 早年就读于上海国立暨南大学文学院。曾在上海美商《大美周报》、苏商《时代》杂志、国民党《正言报》及左翼刊物上发表过大量文艺、历史、时论文章，著有《论军纪 》、《鲁迅五年祭》、《孔夫子及其时代》、《遥寄华云》、《将军颂》、《孤岛集》等著述。
___ 1938年参加革命，1942年参加新四军。建国后，历任中共哈尔滨市委常委、工业部长、宣传部长、黑龙江省委政策研究室主任、省顾委常委、秘书长。现任中国新四军研究会顾问、中国人生科学学会名誉会长、中国老龄协会专家、黑龙江省老年学会、新四军研究会会长、省城市经济学会 名誉会长。
___ 步入老年后，潜心研究经济发展问题与老年问题。在经济问题方面，发表了《改革开放纵横谈》、《东北亚经济的战略宝地》等专著。在老年学方面，提出了"开创人生第二个春天"的新理论，著有450万字的十八卷专著，七次送往大型国际会议，并获全国老年学十年优秀成果一等奖，受到国内老人及老年学者的重视和好评。1999年，又获中共中央组织部颁发全国离休干部先进个人奖。
二春论坛____________二春科学养生_________二春产业开发_______________二春呐喊

::[共创二春]
::[向“黄昏论”宣战]
::[当乐老，当键老]
::[二春文化共鸣]
::[忘年交往]

 口[提高生命质量]
口[掌握养生三大要素]
口[二春歌曲]
口[家庭、社会-养生乐园]
口[“四疗”养生法]		 口[二春养生食品]
口[二春教育]
口[二春医药卫生]
口[二春服饰]
口[二春书刊出版]		 ::[二春呼唤]
::[二春理论送往世界]
::[名人呐喊]
::[“第二个春天”的故事]
名人贺词>>>>
 友情链界
开创人生第二春天_______洪学智
为第二个春天大潮推波助澜______刘建章
开创人生第二个春天_______杨得志
劝君莫奏黄昏曲，老人应唱春之歌___王首道________________________更多内容>>>		 搜狐 雅虎
首都在线 新浪网
999健康网 上海在线
 中国同学录 黑龙江信息港
首页 | 二春论坛 | 二春科学养生 | 二春产业开发 | 二春呐喊 | 其它 | 与我联系

 

黑龙江省计算中心 地址：哈尔滨市香坊区珠江路62号 （150036） 电话：0451-2313833

建议使用800*600分辨率 Netscape4.0 IE4.0以上版本浏览器和中文大写字符集

站长信箱：与站长联系