<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <% 'On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Call System_Initialize() '检查非法链接 Call CheckReference("") '检查权限 If BlogUser.Level>1 Then Call ShowError(6) BlogTitle="Metro主题配置" Dim strlayout Dim strBodyBg,aryBodyBg Dim strHdBg,aryHdBg Dim strColor,aryColor Dim c Set c = New TConfig c.Load("metro") If c.Exists("vesion")=true Then strlayout=c.read("custom_layout") strBodyBg=c.read("custom_bodybg") strHdBg=c.read("custom_hdbg") strColor=c.read("custom_color") aryBodyBg=Split(strBodyBg,"|") aryHdBg=Split(strHdBg,"|") aryColor=Split(strColor,"|") End If Dim i,a,r a=Array("","左","中","右") Randomize r="?"&Rnd() %>

<%Call GetBlogHint()%>

<%=BlogTitle%>

整体设置
外观模式	/>侧栏居左 />侧栏居右
顶部背景	顶部高度：（单位：px） value="transparent"/> 背景透明（不透明情况下使用主色为背景色） value="True"/> 使用背景图 > 背景设定： 0,"checked=""checked""","")%> value="repeat"/> 平铺 0,"checked=""checked""","")%> value="fixed"/> 固定对齐方式： <% For i=1 To 3 %> />居<%=a(i)%> <% Next %>
页面背景	背景颜色： value="True"/> 使用背景图 > <%=r%>" width="190" height="120" border="0" alt="" id="pic_updatapic1"> 背景设定： 0,"checked=""checked""","")%> value="repeat"/> 平铺 0,"checked=""checked""","")%> value="fixed"/> 固定对齐方式： <% For i=1 To 3 %> />居<%=a(i)%> <% Next %>

颜色配置	预设方案：
主色（深色）	/>
次色（浅色）	/>
字体颜色	/>
链接颜色	/>
文章背景色	/>

<% Dim strUPLOADDIR strUPLOADDIR = Replace(ZC_UPLOAD_DIRECTORY&"/"&Year(GetTime(Now()))&"/"&Month(GetTime(Now())),"\","/")&"/" %> <%Call System_Terminate()%>