<!--#include file="Top.asp" -->
<%
GetErrInfo=" 【提示：下面是您保存过的模板列表,您可以选择一个您喜欢的模版,然后点采用,即可!当然您也可以点模板名下载后修改!】"
IF CblogObj.FormRequest("action")="update" And CblogObj.FormRequest("template")<>"" Then
	Dim template
	template="template/" & CblogObj.FormRequest("template")
	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" bgcolor="#FFFFFF"><table width="300" border="0" align="right" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="120" class="box3"> <div align="center"><a href="Template_List.Asp">选择模板</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Template_Decides.Asp">自定模板</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Template_My.Asp">我的模板</a></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="30" bgcolor="#FFFFFF" class="h1"><img src="img/GuestBook.gif" width="23" height="21"> 
      管理我保存的样式 
      <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 bgcolor="#666666"> 
            <td width="84%" height="25" bgcolor="#999999"><font color="#FFFFFF">模版名称</font></td>
            <td width="16%" bgcolor="#999999"><font color="#FFFFFF">选中</font></td>
          </tr>
          <%
Dim Fso,Moban,ObjFolder,ObjSubFolders,objSubFolder,nowpath,PPP
PPP=0
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Moban=server.MapPath(CblogObj.GetUpLoadDir(Session("UserID"))&"/Template/cbs")
Set ObjFolder=Fso.GetFolder(Moban)
Set ObjSubFolders=ObjFolder.Files
For Each objSubFolder in objSubFolders 
nowpath=trim(objSubFolder.name)
%>
          <tr> 
            <td class="tr2"><a href="<%=CblogObj.GetDir(Session("UserID"))%>/Template/<%=nowpath%>"><%=nowpath%></a></td>
            <td class="tr2"> <div align="left"> 
                <input type="radio" name="template" value="<%=nowpath%>">
              </div></td>
          </tr>
          <%
Next
%>
          <tr> 
            <td colspan="2"><div align="center"> 
                <input name="action" type="hidden" id="action" value="update">
                <input type="submit" name="Submit" value="采用">
              </div></td>
          </tr>
        </form>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr bgcolor="#0066CC" height="2"> 
    <td height="2"></td>
  </tr>
</table>


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