" &_
"
" &_
"立即进入网站
" &_
"
" &_
"
" &_
"立即进入网站
" &_
"
"
'如果是头部需要显示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& "