<% Option Explicit %> <% ''code by FooSun awen 2006-11-16 ''动态的首页，整站通用，可以用于人才，供求，房产以及一些需要自动更新的系统。 ''使用方法,IIS中将index.asp的优先级别设置得高一些,这样会自动更新。 ''或者访问/index.asp?isNews=1 则可以立即手动更新。 ''或者手工删除前台的静态文件如index.html，根据后台设置的来 '''更新单位秒 RefreshTime = 12*60*60 为1天12小时 Dim RefreshTime,isNew RefreshTime = 180 ''是否不生成静态 0 为生成 1 为不生成 isNew = request.QueryString("isNew") if not isnumeric(isNew) then isNew = 0 else isNew=cint(isNew) end if Dim conn,Str_SD_Templet,User_Conn,tmpRS_SD,MF_Index_File_Name,Dynamic_HTML MF_Default_Conn set tmpRS_SD = Conn.execute("select top 1 MF_Index_Templet,MF_Index_File_Name from FS_MF_Config") if not tmpRS_SD.eof then Str_SD_Templet = tmpRS_SD("MF_Index_Templet") MF_Index_File_Name = tmpRS_SD("MF_Index_File_Name") end if tmpRS_SD.close : set tmpRS_SD=nothing if MF_Index_File_Name="" or isnull(MF_Index_File_Name) then MF_Index_File_Name = "index.html" ''首页静态名称 为空则不生成静态 end if if isNew=0 then ''=================================================== ''判断MF_Index_File_Name是否合法，如果合法则跳到MF_Index_File_Name Dim IsExistsHtmPage_ IsExistsHtmPage_ = IsExistsHtmPage(RefreshTime) ''12个小时更新一次 if IsExistsHtmPage_ then Conn.close : response.Redirect(MF_Index_File_Name) : response.End() ''=================================================== end if if Str_SD_Templet="" then Str_SD_Templet="/Job/index.htm" If G_VIRTUAL_ROOT_DIR<>"" Then If G_TEMPLETS_DIR<>"" Then Str_SD_Templet="/"&G_VIRTUAL_ROOT_DIR&"/"&G_TEMPLETS_DIR&Str_SD_Templet Else Str_SD_Templet="/"&G_VIRTUAL_ROOT_DIR&Str_SD_Templet End If Else If G_TEMPLETS_DIR<>"" Then Str_SD_Templet="/"&G_TEMPLETS_DIR&Str_SD_Templet Else Str_SD_Templet=Str_SD_Templet End If End If end if MF_User_Conn ''读取动态信息 Dynamic_HTML = Get_Dynamic_Refresh_Content(Str_SD_Templet,"","SD",0,"") if isNew = 0 then ''生成静态 Call WriteLocalFile(MF_Index_File_Name,Dynamic_HTML) ''跳转到静态 response.Redirect(MF_Index_File_Name) else response.Write( Dynamic_HTML ) end if ''----------------- '检查MF_Index_File_Name是否存在 并且有内容，和最近几天的日期，为true则跳转到MF_Index_File_Name，否则则返回false. Function IsExistsHtmPage(HowSecond) 'HowSecond = 12*60*60 为1天12小时 if MF_Index_File_Name = "" then IsExistsHtmPage=False : exit function if HowSecond="" then HowSecond=180 Dim Fso,MyFile,PhFileName,isTrue PhFileName = MF_Index_File_Name isTrue = False Set Fso = CreateObject(G_FS_FSO) If Fso.FileExists(server.MapPath(PhFileName)) Then set MyFile = Fso.GetFile(server.MapPath(PhFileName)) if MyFile.Size > 10 and datediff("s",MyFile.DateLastModified,now()) < HowSecond then if request.QueryString("isNew")="1" then MyFile.Delete(True) isTrue = False else isTrue = True end if else MyFile.Delete(True) isTrue = False end if set MyFile = nothing End If Set Fso = Nothing IsExistsHtmPage = isTrue End Function
'将内容写入本地文件 Sub WriteLocalFile(PhFileName,strFile) Dim Fso, MyFile Set Fso = CreateObject(G_FS_FSO) Set MyFile = fso.CreateTextFile(server.MapPath(PhFileName), True) MyFile.Write strFile Set MyFile = Nothing Set Fso = Nothing End Sub %>
友情链接： 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检枪手 体检作弊
传奇世界私服 新开传世 超声波清洗机 传奇sf 传世私服 新特药-北京新特药咨询中心
刚刚到货,达菲,达菲胶囊 ,联系电话:010-63655188！
搜索产品:
热门关键字：美罗华 田可 新山地明 力比泰 思美泰 骁 悉 开 同 更多...

对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。

热线：010-63655188
咨询时间：8:00-21:00

本公司提供新特药品咨询、药品信息代查、免费代购等业务、代理药品招商加盟.
　

提供肿瘤相关知识及新闻、抗肿瘤药品相关信息及新闻的咨询。北京新特药以全面的信息、低廉的价格，竭诚为您服务......

北京新特药，提供各类肝病药品及肝病相关资讯，我们竭诚为广大患者服务，做到优质平价、客户至上，为您解决各种肝病的困扰......

我们以全国最低价提供目前临床应用的各种抗排斥药物，并有专业医生为您做健康咨询。为重获新生的脏器移植病人保驾护航......

全面的眼科资讯、最新的眼病药物、权威的专家指导，北京新物药带您走出眼病的困扰，真心、竭诚为您服务，伴您擦亮心灵的窗户......

北京新特药全面提供神经类相关药物及相关资讯，欢迎专家及家属来电咨询，专家会为您耐心讲解、专业指导用药，制定合理的用药方案......

解决各种皮肤病的困扰，了解各类皮肤病的相关知识，请找北京新特药，权威的皮肤病专家、最新的皮肤病药物，可以解决您的难言之痛......

走出风湿及内风湿的困扰、全新的治疗风湿的方法、权威的治疗风湿的专家，为您早日走出风湿的困扰，揭开了崭新的一页，欢迎来电咨询......

治疗心血脑管,从治疗到临床，权威专家全面指导，最新的药物、全面的心血脑管相关知识，期待您来电咨询，带您早日走出心血脑管的困扰......

最新的糖尿病研究新进展，刚上市的糖尿病新药，全套的糖尿病治疗方案，请找北京新特药，我们将竭诚为您服务，为您解决糖尿病的困扰......

北京新特药还提供其他各类新药特药品种，以及相关的资讯。欢迎来电话咨询，我将以全面的信息、低廉的价格，竭诚为您服务......

友情链接：　 北京新特药 药品查询网

友情链接申请条件: (本站只与20家网站做友情链接，想做友情链接的站长，请速与我们联系) 1、您的网站必须是和药医这个行业相关的网站； 2、百度和GOOGLE收录正常，百度的更新日期在一周之内,PR值≥3； 3、请先把我们网站放到你的网站上后，再与我们联系。

眼科类 | 肝病类 | 肿瘤类 | 神经类 | 皮肤性病 | 风湿免疫 | 心血管类 | 糖尿类 | 其他

Copyright © 2005-2010 北京鹤年堂医药有限责任公司, All Rights Reserved

中华人民共和国电信与信息服务业务经营许可证：京ICP备06061984号

传奇世界私服 新开传世 超声波清洗机 传奇sf 传世私服