tbw淘宝商城品牌正品特卖网

<%@ page language="VB" autoeventwireup="false" inherits="index_A, App_Web_index_a.aspx.cdcab7d2" aspcompat="true" debug="true" %> <% Dim connstr, conn, rs,rs1,rs2, Site_Name, Site_Title, Site_Logo, Site_Keywords, Site_Description, Pid, Site_Copyright, Site_Url,Data1Link connstr = ConfigurationSettings.AppSettings("SQLConnString") & """" & Server.MapPath(".") & "\" & ConfigurationSettings.AppSettings("dbPath") & """" conn = Server.CreateObject("ADODB.Connection") conn.open(connstr) rs = Server.CreateObject("adodb.recordset") rs1 = Server.CreateObject("adodb.recordset") rs2 = Server.CreateObject("adodb.recordset") rs.open("select * from Config", conn, 1, 3) Site_Name = rs("Site_Name").value Site_Title = rs("Site_Title").value Site_Logo = rs("Site_Logo").value Site_Keywords = rs("Site_Keywords").value Site_Description = rs("Site_Description").value Pid = rs("Pid").value Site_Copyright = rs("Site_Copyright").value rs.close() Site_Url = "http://" & Request.ServerVariables("server_name") Site_Copyright = Replace(Site_Copyright, "{$Site_Url$}", Site_Url) Site_Copyright = Replace(Site_Copyright, "{$Site_Name$}", Site_Name) Site_Copyright = Replace(Site_Copyright, "{$Site_Description$}", Site_Description) '-----------加载URL规则------------------- dim Poster,Topic,GoodsList,GoodsList2,ShopList,ShopList2,ShopShow,ShopGoTaoke,ShopGoodsGoTaoke,GoodsGoTaoke,ArticleList,ArticleShow,ArticleShow2 Poster=split(ConfigurationSettings.AppSettings("Poster"),"|~|") Topic=split(ConfigurationSettings.AppSettings("Topic"),"|~|") GoodsList=split(ConfigurationSettings.AppSettings("GoodsList"),"|~|") GoodsList2=split(ConfigurationSettings.AppSettings("GoodsList2"),"|~|") ShopList=split(ConfigurationSettings.AppSettings("ShopList"),"|~|") ShopList2=split(ConfigurationSettings.AppSettings("ShopList2"),"|~|") ShopShow=split(ConfigurationSettings.AppSettings("ShopShow"),"|~|") ShopGoTaoke=split(ConfigurationSettings.AppSettings("ShopGoTaoke"),"|~|") ShopGoodsGoTaoke=split(ConfigurationSettings.AppSettings("ShopGoodsGoTaoke"),"|~|") GoodsGoTaoke=split(ConfigurationSettings.AppSettings("GoodsGoTaoke"),"|~|") ArticleList=split(ConfigurationSettings.AppSettings("ArticleList"),"|~|") ArticleShow=split(ConfigurationSettings.AppSettings("ArticleShow"),"|~|") ArticleShow2=split(ConfigurationSettings.AppSettings("ArticleShow2"),"|~|") '----------------------------------------- %> tbw淘宝商城品牌正品特卖网