<%'容错处理 function cases_to_html(a_id) ClassID1=0 On Error Resume Next %> <% '首页基本信息内容读取替换 set rs=server.createobject("adodb.recordset") sql="select web_name,web_url,web_image,web_title,web_keywords,web_contact,web_tel,web_TopHTML,web_BottomHTML,web_description,web_copyright,web_theme from web_settings" rs.open(sql),cn,1,1 if not rs.eof and not rs.bof then web_name=rs("web_name") web_url=rs("web_url") web_image=rs("web_image") web_title=rs("web_title") web_keywords=rs("web_keywords") web_description=rs("web_description") web_copyright=rs("web_copyright") web_theme=rs("web_theme") web_consult=rs("web_contact") web_TopHTML=rs("web_TopHTML") web_BottomHTML=rs("web_BottomHTML") web_tel=rs("web_tel") end if rs.close set rs=nothing %> <% '搜索文件夹获取 set rs_1=server.createobject("adodb.recordset") sql="select FileName,FolderName from web_Models_type where [id]=35" rs_1.open(sql),cn,1,1 if not rs_1.eof and rs_1("FolderName")<>"" then Search_FolderName="/"&rs_1("FolderName") end if rs_1.close set rs_1=nothing '模板类型获取 set rs_1=server.createobject("adodb.recordset") sql="select FileName,FolderName from web_Models_type where [id]=38" rs_1.open(sql),cn,1,1 if not rs_1.eof then Model_FileName=rs_1("FileName") if rs_1("FolderName")<>"" then Model_FolderName="/"&rs_1("FolderName") CasesContent_FolderName="/"&rs_1("FolderName") end if end if rs_1.close set rs_1=nothing %><% '底部导航 web_BottomMenu="" set rs=server.createobject("adodb.recordset") sql="select [name],[url],[image] from web_menu_type where BottomNav=1 order by [order]" rs.open(sql),cn,1,1 if not rs.eof then for i=1 to rs.recordcount web_BottomMenu=web_BottomMenu&"
  • "&rs("name")&"
  • " rs.movenext next end if rs.close set rs=nothing '顶部导航 web_TopMenu="" set rs=server.createobject("adodb.recordset") sql="select * from web_menu_type where TopNav=1 order by [order]" rs.open(sql),cn,1,1 if not rs.eof then web_TopMenu=web_TopMenu&"" end if rs.close set rs=nothing '顶部广告读取 set rs=server.createobject("adodb.recordset") sql="select top 1 [id],ADtype,[ADcode] from web_ads where [position]=35 and view_yes=1 order by [time] desc" rs.open(sql),cn,1,1 if not rs.eof then if rs("ADtype")=4 then Inner_BannerTop=Inner_BannerTop&rs("ADcode") else Inner_BannerTop=Inner_BannerTop&"" end if else Inner_BannerTop=Inner_BannerTop&"" end if rs.close set rs=nothing %> <% ' 文章内容读取替换 set rs=server.createobject("adodb.recordset") sql="select * from [article] where view_yes=1 and [id]="&a_id&"" rs.open(sql),cn,1,1 if not rs.eof then article_title=rs("title") ArticleContent=rs("content") article_keywords=rs("keywords") article_description=rs("description") article_time=rs("time") Article_FilePath=rs("file_path") '图片展示 if rs("Pics")<>"" then PicsContent=split(rs("Pics"),",") PicsCount=ubound(PicsContent) for i=0 to PicsCount Article_Pics=Article_Pics&"
    "&rs("title")&"

    "&Left(rs("title"),23)&"

    " next else Article_Pics="

    暂无图片。

    " end if '您现在的位置读取替换 set rs_0=server.createobject("adodb.recordset") sql="select [id],[pid],[ppid],[name],[folder] from [category] where [id]="&rs("cid")&" and ppid=1" rs_0.open(sql),cn,1,1 folder_name=rs_0("folder") CategoryName=rs_0("name") ClassName1=rs_0("name") ClassFolder1=rs_0("folder") ClassID1=rs_0("id") if rs("pid")<>"" then set rs_1=server.createobject("adodb.recordset") sql="select [id],[pid],[ppid],[name],[folder] from [category] where [id]="&rs("pid")&" and ppid=2" rs_1.open(sql),cn,1,1 folder_name_1=rs_1("folder") CategoryName=rs_1("name") end if if rs("ppid")<>"" then set rs_2=server.createobject("adodb.recordset") sql="select [id],[pid],[ppid],[name],[folder] from [category] where [id]="&rs("ppid")&" and ppid=3" rs_2.open(sql),cn,1,1 folder_name_2=rs_2("folder") CategoryName=rs_2("name") end if '---------------------- if folder_name<>"" then folder_path=MainClass_FolderName&"/"&folder_name&"/" end if category_position1=""&rs_0("name")&"" if folder_name_1<>"" then folder_path=MainClass_FolderName&"/"&folder_name&"/"&folder_name_1&"/" end if category_position2=" > "&rs_1("name")&"" if folder_name_2<>"" then folder_path=MainClass_FolderName&"/"&folder_name&"/"&folder_name_1&"/"&folder_name_2&"/" end if category_position3=" > "&rs_2("name")&"" if rs("ppid")<>"" then category_position=category_position1&category_position2&category_position3 end if if rs("ppid")="" and rs("pid")<>"" then category_position=category_position1&category_position2 end if if rs("ppid")="" and rs("pid")="" and rs("cid")<>"" then category_position=category_position1 end if end if rs.close set rs=nothing '侧边栏当前栏目列表 Block_LeftClassList="" set rsl=server.createobject("adodb.recordset") sql="select [name],[folder],[id],[pid],[ppid] from [category] where pid="&ClassID1&" order by [order] " rsl.open(sql),cn,1,1 Block_LeftClassList=Block_LeftClassList&"" rsl.close set rsl=nothing '更多展示 set rs=server.createobject("adodb.recordset") sql="select top 9 title,image,file_path from [article] where cid='"&ClassID1&"' and ArticleType=3 and id<>"&a_id&" and view_yes=1 order by [time] desc" rs.open(sql),cn,1,1 if not rs.eof and not rs.bof then for i=1 to rs.recordcount rs_url=CasesContent_FolderName&"/"&rs("file_path") article_next=article_next&"
    "&rs("title")&"" article_next=article_next&"

    "&left(rs("title"),20)&"

    " article_next=article_next&"
    " rs.movenext next else article_next=article_next&"暂无相关信息." end if rs.close set rs=nothing %> <% ArticlePageContent=split(ArticleContent,"
    ") c=ubound(ArticlePageContent) if c>0 then for i=0 to c if i=0 then PageNO="" else PageNO=i+1 PageNO="("&PageNO&")" end if %> <% '分页部分 PageList="" PageList=PageList&"" %> <% '读取模板内容 TemplatePath="/templates/"&web_theme&"/"&Model_FileName replace_code=ReadFromUTF(TemplatePath,"utf-8") %> <% replace_code=replace(replace_code,"无锡国际新能源电动车展览会",web_name) replace_code=replace(replace_code,"http://jsbicycle.com",web_url) replace_code=replace(replace_code,"2021115145549.png",web_image) replace_code=replace(replace_code,"无锡电动车展",web_title) replace_code=replace(replace_code,"",web_copyright) replace_code=replace(replace_code,"HituxCMSUni",web_theme) replace_code=replace(replace_code,"",web_consult) replace_code=replace(replace_code,"",PageNO) replace_code=replace(replace_code,"

    网站首页 | 关于我们 | 联系方式 | 网站地图

    Copyright 2021 江苏省自行车有限公司 版权所有
    All rights reserved

    苏ICP备20030047 技术支持 无锡E网

    ",web_BottomHTML) replace_code=replace(replace_code,"",web_tel) replace_code=replace(replace_code,"/Search",search_FolderName) replace_code=replace(replace_code,"",category_position) replace_code=replace(replace_code,"",Block_LeftClassList) replace_code=replace(replace_code,"展商展示",ClassName1) replace_code=replace(replace_code,"Case",ClassFolder1) replace_code=replace(replace_code,"957",a_id) replace_code=replace(replace_code,"这个保护套符合日本IPX8防水标准",article_title) replace_code=replace(replace_code,"这个保护套符合日本IPX8防水标准",article_keywords) replace_code=replace(replace_code,"这个保护套符合日本IPX8防水标准",article_description) replace_code=replace(replace_code,"2013-5-30 17:28:30",article_time) replace_code=replace(replace_code,"制造者表示,这个保护套符合日本IPX8防水标准,即是说它可以最多保证你的iPhone放在10米深的水中而不受到伤害。保护套的屏幕部分采用的是丙烯酸,在平时不会影响操作使用。

      另外,因为这个保护套只有0.25mm厚,所以你可以在套上它的同时再另外套上自己喜欢的保护套而丝毫不受影响。目前这款保护套有兼容 iPhone以及三星Galaxy S2的版本出售,售价37美元。另外制造商还准备生产ipad版的保护套,售价50美元。",ArticlePageContent(i)) replace_code=replace(replace_code,"",PageList) replace_code=replace(replace_code,"
    大地震和泰国洪水迫使日本企业关停工厂产能

    大地震和泰国洪水迫使日本企业关停工厂产能

    知识图谱无疑能为人们带来很大的便利

    知识图谱无疑能为人们带来很大的便利

    手机银行进入普及期

    手机银行进入普及期

    严重扰乱了健康有序的市场运行秩序

    严重扰乱了健康有序的市场运行秩序

    ",article_next) replace_code=replace(replace_code,"
    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    ",Article_Pics) replace_code=replace(replace_code,"",PageNO) replace_code=replace(replace_code,"",web_TopMenu) replace_code=replace(replace_code,"
  • 首页
  • 电话
  • 观众服务
  • 现场直播
  • 留言
  • ",web_BottomMenu) replace_code=replace(replace_code,"",web_BottomShareAD) replace_code=replace(replace_code,"
  • 首页
  • 电话
  • 观众服务
  • 现场直播
  • 留言
  • ",web_BottomMenu) replace_code=replace(replace_code,"",Inner_BannerTop) %> <% '判断文件夹是否存在,否则创建 Set Fso=Server.CreateObject("Scripting.FileSystemObject") If Fso.FolderExists(Server.MapPath(Model_FolderName))=false Then NewFolderDir=Model_FolderName call CreateFolderB(NewFolderDir) end if %> <%'声明HTML文件名,指定文件路径 if i=0 then filepath=Model_FolderName&"/"&Article_FilePath else filepath=Model_FolderName&"/"&i&Article_FilePath end if %> <% '生成静态文件 '读取模板 '****************************************** '功能:生成UTF-8文件 '****************************************** mappath =filepath Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Open .Charset = "utf-8" .Position = objStream.Size .WriteText=replace_code .SaveToFile server.mappath(mappath),2 .Close End With Set objStream = Nothing %> <% next else %> <% '读取模板内容 TemplatePath="/templates/"&web_theme&"/"&Model_FileName replace_code=ReadFromUTF(TemplatePath,"utf-8") %> <% replace_code=replace(replace_code,"无锡国际新能源电动车展览会",web_name) replace_code=replace(replace_code,"http://jsbicycle.com",web_url) replace_code=replace(replace_code,"2021115145549.png",web_image) replace_code=replace(replace_code,"无锡电动车展",web_title) replace_code=replace(replace_code,"",web_copyright) replace_code=replace(replace_code,"HituxCMSUni",web_theme) replace_code=replace(replace_code,"",web_consult) replace_code=replace(replace_code,"","") replace_code=replace(replace_code,"

    网站首页 | 关于我们 | 联系方式 | 网站地图

    Copyright 2021 江苏省自行车有限公司 版权所有
    All rights reserved

    苏ICP备20030047 技术支持 无锡E网

    ",web_BottomHTML) replace_code=replace(replace_code,"",web_tel) replace_code=replace(replace_code,"/Search",search_FolderName) replace_code=replace(replace_code,"",category_position) replace_code=replace(replace_code,"",Block_LeftClassList) replace_code=replace(replace_code,"展商展示",ClassName1) replace_code=replace(replace_code,"Case",ClassFolder1) replace_code=replace(replace_code,"957",a_id) replace_code=replace(replace_code,"这个保护套符合日本IPX8防水标准",article_title) replace_code=replace(replace_code,"这个保护套符合日本IPX8防水标准",article_keywords) replace_code=replace(replace_code,"这个保护套符合日本IPX8防水标准",article_description) replace_code=replace(replace_code,"2013-5-30 17:28:30",article_time) replace_code=replace(replace_code,"制造者表示,这个保护套符合日本IPX8防水标准,即是说它可以最多保证你的iPhone放在10米深的水中而不受到伤害。保护套的屏幕部分采用的是丙烯酸,在平时不会影响操作使用。

      另外,因为这个保护套只有0.25mm厚,所以你可以在套上它的同时再另外套上自己喜欢的保护套而丝毫不受影响。目前这款保护套有兼容 iPhone以及三星Galaxy S2的版本出售,售价37美元。另外制造商还准备生产ipad版的保护套,售价50美元。",ArticleContent) replace_code=replace(replace_code,"","") replace_code=replace(replace_code,"
    大地震和泰国洪水迫使日本企业关停工厂产能

    大地震和泰国洪水迫使日本企业关停工厂产能

    知识图谱无疑能为人们带来很大的便利

    知识图谱无疑能为人们带来很大的便利

    手机银行进入普及期

    手机银行进入普及期

    严重扰乱了健康有序的市场运行秩序

    严重扰乱了健康有序的市场运行秩序

    ",article_next) replace_code=replace(replace_code,"
    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    这个保护套符合日本IPX8防水标准

    ",Article_Pics) replace_code=replace(replace_code,"",PageNO) replace_code=replace(replace_code,"",web_TopMenu) replace_code=replace(replace_code,"
  • 首页
  • 电话
  • 观众服务
  • 现场直播
  • 留言
  • ",web_BottomMenu) replace_code=replace(replace_code,"",web_BottomShareAD) replace_code=replace(replace_code,"
  • 首页
  • 电话
  • 观众服务
  • 现场直播
  • 留言
  • ",web_BottomMenu) replace_code=replace(replace_code,"",Inner_BannerTop) %> <% '判断文件夹是否存在,否则创建 Set Fso=Server.CreateObject("Scripting.FileSystemObject") If Fso.FolderExists(Server.MapPath(Model_FolderName))=false Then NewFolderDir=Model_FolderName call CreateFolderB(NewFolderDir) end if %> <%'声明HTML文件名,指定文件路径 filepath=Model_FolderName&"/"&Article_FilePath %> <% '生成静态文件 '读取模板 '****************************************** '功能:生成UTF-8文件 '****************************************** mappath =filepath Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Open .Charset = "utf-8" .Position = objStream.Size .WriteText=replace_code .SaveToFile server.mappath(mappath),2 .Close End With Set objStream = Nothing %> <% end if %> <% end function %>