<%@ codepage=65001 EnableSessionState=False%> <% '由于是首页,进行是否Wap访问判断,如果是IE,则转至WEB首页 Dim FoundWap FoundWap = false If Instr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml") > 0 Then FoundWap = true End If If Instr(LCase(Request.ServerVariables("HTTP_USER_AGENT")),"opera") > 0 Then FoundWap = true ElseIf Instr(LCase(Request.ServerVariables("HTTP_USER_AGENT")),"netfront") > 0 Then FoundWap = true ElseIf Instr(LCase(Request.ServerVariables("HTTP_USER_AGENT")),"smartphone") > 0 Then FoundWap = true End If If Not FoundWap Then If Instr(LCase(Request.ServerVariables("HTTP_USER_AGENT")),"msie") > 0 Then Call Redirect("Web","/Admin/Index.Asp") ElseIf Instr(LCase(Request.ServerVariables("HTTP_USER_AGENT")),"netscape") > 0 Then Call Redirect("Web","/Admin/Index.Asp") End If End If '由于是首页,需要用于Logo,所以增加Sql字段的调用 objGlobal.SqlFieldWebSite = objGlobal.SqlFieldWebSite& ",LOGOURL,LOGOTYPE,ISNOWRAP,SHOWLASTUPDATE,LASTUPDATE,SHOWTOTALVISITCOUNT,TOTALVISITCOUNT,SHOWYESTERDAYVISITCOUNT,YESTERDAYVISITCOUNT,SHOWTODAYVISITCOUNT,TODAYVISITCOUNT,SHOWONLINECOUNT,ONLINECOUNT,VIPTIMEADCLICK,STRADCLICK" %> <% '如果是强制先显示LOGO,则进行该项处理 If objWebSite.LogoType = 1 And objWebSite.LogoUrl <> "" And Request.Cookies("ShowLogo") <> "1" Then strContent = "" &_ "" &_ "

" &_ "
" &_ "立即进入网站
" &_ "

" &_ "
" Call objGlobal.AddCookie("ShowLogo","1","") End If strContent = strContent& "" &_ "

" '如果是头部需要显示LOGO,则进行该项处理 If objWebSite.LogoType = 2 And objWebSite.LogoUrl <> "" Then strContent = strContent& "
" End If strContent = strContent& objGlobal.MessageStr &_ IfElse(objWebSite.ShowDomainName,objWebSite.DomainName& "
","") Dim strSql,adoRS strSql = "SELECT PAGEID,PAGEINDEX,PAGENAME,ICON,ISBR,PUBLICTYPE,CONTENT,ID,SORT,PARENTID,ADDRESS FROM TB_PAGE WHERE WEBSITEID = " &objWebSite.WebSiteID& " AND PARENTID = 0 AND PUBLICTYPE <> 'PRIVATE' AND ISLOCK = 0 ORDER BY NEWORDER ASC" Set adoRS = objGlobalConn.ConnClient.Execute(strSql) Dim lstPage If Not (adoRS.Eof And adoRS.Bof) Then Set lstPage = Server.CreateObject("System.Collections.Hashtable") Dim intI intI = 0 Do While Not adoRS.Eof Dim objPage Set objPage = new clsPage Call objPage.Init(adoRS) Call lstPage.Add(intI,objPage) intI = intI + 1 adoRS.MoveNext Loop Call lstPage.Add("PageCount",intI) End If adoRS.Close:Set adoRS = Nothing Dim intDynamicCount intDynamicCount = 0 If intI > 0 Then For intI = 0 To intI - 1 strContent = strContent& GetPageContent(lstPage(intI)) Set lstPage(intI) = Nothing Next Set lstPage = Nothing End If If objSession.IsAdmin Then strContent = strContent& "
进入管理
" End If If objWebSite.ShowLastUpdate Or objWebSite.ShowTotalVisitCount Or objWebSite.ShowYesterdayVisitCount Or objWebSite.ShowTodayVisitCount Or objWebSite.ShowOnlineCount Then strContent = strContent& "----------
" End If If objWebSite.ShowLastUpdate Then strContent = strContent& "最后更新:" &GetDateTimeStr(objWebSite.LastUpdate)& "
" End If If objWebSite.ShowTotalVisitCount Then strContent = strContent& "总访问量:" &objWebSite.TotalVisitCount& "
" End If If objWebSite.ShowYesterdayVisitCount Then strContent = strContent& "昨日访问:" &objWebSite.YesterdayVisitCount& "
" End If If objWebSite.ShowTodayVisitCount Then strContent = strContent& "今日访问:" &objWebSite.TodayVisitCount& "
" End If If objWebSite.ShowOnlineCount Then strContent = strContent& "在线会员:" &objWebSite.OnlineCount& "
" End If strContent = strContent& "----------
" &_ ReturnIndex() &_ TimeStr() If objWebSite.LogoType = 3 And objWebSite.LogoUrl <> "" Then strContent = strContent& "
" End If strContent = strContent& "

" &_ "
" If objSession.IsAdmin Then strContent = strContent& "" &_ "

" &_ "进入管理首页
" &_ "进入设计中心
" &_ "进入栏目管理
" &_ "返回
" &_ "

" &_ "
" End If Call objGlobal.ShowContent(strContent) %>