用户名:  
  密  码:  
  Cookie:  
       
 
 
◎ 结核病项目中期资金调整,我市制… 2008/08/07
◎ 结核病人的福音 2008/07/30
◎ 加强督导,确保结核病防治工作全… 2008/06/14
◎ 市结防院开展世界无烟日宣传活动 2008/06/01
◎ 调整技术力量 加强沟通合作 2008/05/05
◎ 著名歌唱家彭丽媛成中国结核病防… 2008/03/10
◎ 结核病患者宪章——患者的权利与… 2008/03/06
◎ 关于组织开展世界防治结核病日系… 2008/03/03
◎ 2008-2009年世界防治结核病日运动 2008/02/20
◎ 英国科学家发现抗结核杆菌受体 2007/10/22
市区召开结核病归口管…
我市疾病预防控制工作…
2007年我国“世界结核…
歌舞翩翩迎新年
幸福家园——丰富的职…
 
 
 
     
 
     
 
 
返回首页 | 联系我们 | 万年历 | 设为首页 | 收藏本站  | 后台管理 | 返回顶部
 
  版权所有?襄樊市结核病防治院.www.xftb.com@2005-2006. All rights reserved  
  鄂ICP备06002188号.E-mail:xfsjfy@126.com  
  网页制作:齐楚网络.E-mail:xfxaq@126.com  
<% Function DateFormat(strDate) '**************************************** '函数名:DateFormat '作 用:输出2Digit位左边带0整数 '参 数:无 '返回值:如DateFormat(),即输出20050101,为2005年01月01日 '**************************************** yyyy=year(strDate) yy=right(year(strDate),2) if len(month(strDate))>1 then mm=month(strDate) else mm="0"&month(strDate) end if if len(day(strDate))>1 then dd=day(strDate) else dd="0"&day(strDate) end if if len(hour(strDate))>1 then hh=hour(strDate) else hh="0"&hour(strDate) end if if len(minute(strDate))>1 then mi=minute(strDate) else mi="0"&minute(strDate) end if if len(second(strDate))>1 then se=second(strDate) else se="0"&second(strDate) end if '输出年月日格式 'Response.Write(yy&"-"&mm&"-"&dd) 'Response.Write(yy&"-"&mm&"-"&dd) 'Response.Write(yyyy&"年"&mm&"月"&dd&"日") Response.Write(yyyy&"/"&mm&"/"&dd) '输出年月日时分秒格式 'Response.Write(yy&"-"&mm&"-"&dd&" "&hh&":"&mi&":"&se) '输出带日期格式的4位随机数 ' randomize ' ranNum=int((9000*rnd)+1000) ' Response.Write(yy&mm&dd&hh&mi&se&ranNum) End Function %> 男,1953年生