<% '================================== ' Blog顶部 ' 更新时间: 2005-10-23 '================================== '=========================Funciton In Head============================= '处理标题 Dim BlogTitle BlogTitle=siteName & "——" & blog_Title if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/default.asp")<>0 then dim Tid If CheckStr(Request.QueryString("id"))<>Empty Then Tid=CheckStr(Request.QueryString("id")) End If if len(Tid)>0 then Response.Redirect ("article.asp?id="&Tid) end if if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/article.asp")=0 then getBlogHead BlogTitle,"",-1 end if '输出文件头 sub getBlogHead(Title,CateTitle,CateID) %> <%=Title%> <%if len(CateTitle)>0 and CateID>0 then %> <%else%> <%end if%> <%getSkinFlash%>
<% end sub '读取Flash导航条 dim SkinInfo sub getSkinFlash if CheckObjInstalled(getXMLDOM) then dim SkinXML set SkinXML=new PXML SkinInfo="" SkinXML.XmlPath="skins/"&Skins&"/skin.xml" SkinXML.open if SkinXML.getError=0 then SkinInfo=" , " & SkinXML.SelectXmlNodeText("SkinName") & " Design By " & SkinXML.SelectXmlNodeText("SkinDesigner") & "" if CBool(SkinXML.SelectXmlNodeText("Flash/UseFlash")) then %>
;top:<%=SkinXML.SelectXmlNodeText("Flash/FlashTop")%>px">
<% end if SkinXML.CloseXml set SkinXML=nothing end if end if end sub %>