<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim TemplatesFileName TemplatesFileName = "productlist.html" '对应模板文件名 %> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '替换公共标签 '替换图片和css文件路径 TemplateCodes = Replace(TemplateCodes,Replace_CssPath_01,Replace_CssPath_02) TemplateCodes = Replace(TemplateCodes,Replace_Img_01,Replace_Img_02) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '替换标签 TemplateCodes = Replace(TemplateCodes,Replace_Logo_01,Replace_Logo_02) TemplateCodes = Replace(TemplateCodes,Replace_Description_01,Replace_Description_02) TemplateCodes = Replace(TemplateCodes,Replace_Title_01,Replace_Title_02) TemplateCodes = Replace(TemplateCodes,Replace_WebKeyWords_01,Replace_WebKeyWords_02) TemplateCodes = Replace(TemplateCodes,Replace_WebDescription_01,Replace_WebDescription_02) TemplateCodes = Replace(TemplateCodes,Replace_TopLinks_01,Replace_TopLinks_02) TemplateCodes = Replace(TemplateCodes,Replace_Menu_01,Replace_Menu_02) TemplateCodes = Replace(TemplateCodes,Replace_ProductSearch_01,Replace_ProductSearch_02) TemplateCodes = Replace(TemplateCodes,Replace_BottomLinks_01,Replace_BottomLinks_02) TemplateCodes = Replace(TemplateCodes,Replace_Copyrights_01,Replace_Copyrights_02) TemplateCodes = Replace(TemplateCodes,Replace_CnzzStat_01,Replace_CnzzStat_02) '替换公共标签结束 '--------------------------------------------------------------------------------- '--------------------------------------------------------------------------------- %> <% TemplateCodes = Replace(TemplateCodes,Replace_GoodsClass_01,Replace_GoodsClass_02) %> <% '替换私有标签 TemplateCodes = Replace(TemplateCodes,Replace_CurrentAddress_01,Replace_CurrentAddress_02) TemplateCodes = Replace(TemplateCodes,Replace_GoodsList_01,Replace_GoodsList_02) TemplateCodes = Replace(TemplateCodes,Replace_GoodsList_divider_01,Replace_GoodsList_divider_02) '替换私有标签结束 '--------------------------------------------------------------------------------- '--------------------------------------------------------------------------------- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.write TemplateCodes ''''''''''''''''''''''''''''''嵌入可能需要读取数据库信息,故ConnClose.asp文件应放在最后 %> <% Response.Write vbCrLf&"" %>