<!--#include file="Top.asp" -->
<%
GetErrInfo=" 【提示：下面是CSS列表,您可以选择一个您喜欢的CSS样式,然后点采用,即可!】"
IF CblogObj.FormRequest("action")="update" And CblogObj.FormRequest("template")<>"" Then
	Dim template
	template="../../Template/" & CblogObj.FormRequest("template") & "/css.css"
	CblogObj.WriteStream CblogObj.GetDir(Session("UserID")) & "/css.txt",template
	CblogObj.GetHttpUrl("")
	Set CblogObj=Nothing
End IF
%>
<script language="javascript" src="../inc/js.js"></script>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr> 
    <td height="30" colspan="2" bgcolor="#FFFFFF"><table width="650" border="0" align="right" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="120" class="box3"> <div align="center"><a href="Template_Help.Asp">模板帮助</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Template_List.Asp">选择CSS样式</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Template_Decides.Asp">上传我的CSS</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Template_CssList.Asp">我的CSS列表</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Template_Highlevel.Asp">自定义HTML</a></div></td>
          <td>-</td>
          <td width="160" class="box3"> <div align="center"><a href="Template_HtmlList.Asp">我的HTML列表</a></div></td>
          <td>-</td>
          <td width="160" class="box3"> <div align="center"><a href="Template_Format.Asp">恢复默认样式</a></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="30" colspan="2" bgcolor="#FFFFFF" class="h1"><img src="img/GuestBook.gif" width="23" height="21"> 
      选择系统CSS 
      <hr size="0"></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF" class="h1"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
        <tr> 
          <td class="box"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="2%" valign="middle"><img src="img/3.gif" width="16" height="16"></td>
                <td width="98%" valign="middle"><%=GetErrInfo%></td>
              </tr>
            </table></td>
        </tr>
        <tr height="5"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="2" cellspacing="1" class="box2">
        <form name="form1" method="post" action="">
		<tr> <input name="action" type="hidden" id="action" value="update">
          <td colspan="3"><div align="center"><input type="submit" name="Submit" value="采用"></div></td>
        </tr>
        
          <tr class="tr2"> 
<%
Dim Fso,Moban,ObjFolder,ObjSubFolders,objSubFolder,nowpath,PPP
PPP=0
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Moban=server.MapPath("../Template")
Set ObjFolder=Fso.GetFolder(Moban)
Set ObjSubFolders=ObjFolder.SubFolders
For Each objSubFolder in objSubFolders 
nowpath=trim(objSubFolder.name)
PPP=PPP+1
%>
            <td>
			<table width="100%" border="0" cellspacing="0" cellpadding="5">
			  <tr>
				<td><div align="center"><a href="../inc/Sink/default.asp?css=../../Template/<%=nowpath%>/css.css" target="_blank"><img src="../Template/<%=nowpath%>/advance.jpg"  border="0" class="imgs"></a></div></td>
			  </tr>
			  <tr> 
				<td><div align="center"> 
					<input type="radio" name="template" value="<%=nowpath%>">
					<%=nowpath%></div></td>
			  </tr>
			</table>
			</td>
<%
IF (PPP Mod 3)=0 Then Response.Write "</tr><tr>"
Next
%>
</form>
          </tr>

      </table>
      </td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr bgcolor="#0066CC" height="2"> 
    <td height="2" colspan="2"></td>
  </tr>
</table>


<!--#include file="Foot.asp" -->
