% dim FileObject Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "\ntcount\jinshi0.txt" On Error Resume Next Set InStream = FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile(HitsFile, True) OutStream.WriteLine(NewHits) %>
|
| |||||
|
眼科中心护理格言 |
|
《为医学之圣洁和尊严》倡议书 |
|
《塑天使形象》倡议书 |
|
带着爱、豁达、希望和鼓励的积极心态能将一个人提升到更高的境界。我们怎样对待生活,生活就怎样对待我们;我们怎样对待别人,别人就怎样对待我们。 |
|
建议使用Internet Explorer 4.0以上版本浏览器浏览,显示器分辨率以1024*768为佳 |
||
|
Copyright(C) 2002-2008 All Rights Reserved 版权所有 严禁转载! |
||
|
网页制作:泉州市儿童医院·妇幼保健院信息中心 |
||
|
中心地址:泉州市儿童医院·妇幼保健院门诊3、4楼 |
||
|
|
||