<%'容错处理 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.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&"

"&rs("name")&"
"&rs("name")&"

" 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&"

"&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("name")&" " set rs=server.createobject("adodb.recordset") sql="select [name],[folder] from [category] where ppid=3 and pid="&rsl("id")&" order by [order]" rs.open(sql),cn,1,1 if not rs.eof then Block_LeftClassList=Block_LeftClassList&"
- "&rs("name")&"
" end if rs.close set rs=nothing 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&"

" 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&"

" PageList=PageList&"当前页数：" & i+1 & "/" & c+1 &" " PageList=PageList&"" & "首页" & "" select case i case 0 PageList=PageList&" 上一页 " case 1 PageList=PageList&"" & "上一页" & "" case else PageList=PageList&"" & "上一页" & "" end select for counter=0 to c if counter=0 then if counter=i then PageList=PageList&" 1 " else PageList=PageList&"" & 1 & " " end if else if counter=i then PageList=PageList&" "&counter+1&" " else PageList=PageList&"" & counter+1 & " " end if end if next if i=c then PageList=PageList&" 下一页 " else PageList=PageList&"" & "下一页" & "" end if 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,"

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

苏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,"955",a_id) replace_code=replace(replace_code,"严重扰乱了健康有序的市场运行秩序",article_title) replace_code=replace(replace_code,"严重扰乱了健康有序的市场运行秩序",article_keywords) replace_code=replace(replace_code,"严重扰乱了健康有序的市场运行秩序",article_description) replace_code=replace(replace_code,"2013-5-30 2:07:20",article_time) replace_code=replace(replace_code,"

　　据案情透露，被告人许某光在深圳市龙岗区坂田街道某工业区1栋3楼租用厂房，开设生产假冒诺基亚手机的无证工厂，并雇佣谢某多(已起诉)管理该工厂，以牟取非法利益。2011年4月，警方接群众举报在该涉嫌生产假冒诺基亚手机窝点抓获谢某多，并现场查获涉嫌假冒诺基亚品牌手机及配件，涉案金额高达140余万元人民币。被告人许某光闻讯后迅速逃往老家藏匿。

　　2011年6月，被告人谢某多假冒注册商标一案移送至龙岗区院审查起诉时，办案检察官经过认真仔细的阅卷，发现被告人许某光作为工厂的老板、出资人及总销售人员，在本案中的作用至关重要，检察官遂要求公安机关抓捕被告人许某光，并在开展“三打两建”专项行动时跟踪监督。2012年3月，许某光在家乡被公安机关抓获归案。

　　被告人许某光等人假冒诺基亚注册商标的行为，严重扰乱了健康有序的市场运行秩序，也阻碍了社会信用体系的建设。此案的成功追诉，反映了检察官对案件高度负责的工作态度，更表明了检察机关充分履行检察职能，严厉打击制假售假犯罪行为，服务经济建设的坚定决心。

",ArticlePageContent(i)) replace_code=replace(replace_code,"",PageList) replace_code=replace(replace_code,"

",article_next) replace_code=replace(replace_code,"

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

",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,"

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

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

",ArticleContent) replace_code=replace(replace_code,"","") replace_code=replace(replace_code,"

",article_next) replace_code=replace(replace_code,"

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

",Article_Pics) replace_code=replace(replace_code,"",PageNO) replace_code=replace(replace_code,"

",web_TopMenu) replace_code=replace(replace_code,"

首页