<!--#include file="Top.asp" -->
<%
GetErrInfo=" 【提示：下面是您上传过的CSS列表,您可以选择一个您喜欢的CSS,然后点采用,即可!当然您也可以点CSS名下载后修改!】"
IF CblogObj.FormRequest("action")="update" And CblogObj.FormRequest("template")<>"" Then
		Dim template
	IF CblogObj.FormRequest("Submit")="应用" Then
		template="template/cbs/" & CblogObj.FormRequest("template")
		CblogObj.WriteStream CblogObj.GetDir(Session("UserID")) & "/css.txt",template
		CblogObj.GetHttpUrl("")
		Set CblogObj=Nothing
	ElseIf CblogObj.FormRequest("Submit")="删除" Then
		template=Server.MapPath (CblogObj.GetUpLoadDir(Session("UserID"))&"/template/cbs/" & CblogObj.FormRequest("template"))
		CblogObj.DelFile template
		CblogObj.GetHttpUrl("")
		Set CblogObj=Nothing
	End IF
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="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" 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 bgcolor="#666666"> 
            <td width="3%" bgcolor="#999999"><img src="img/page.gif" width="20" height="20"></td>
            <td width="97%" height="25" bgcolor="#999999"><font color="#FFFFFF">CSS名称</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"><input type="radio" name="template" value="<%=nowpath%>"></td>
            <td class="tr2"><a href="<%=CblogObj.GetUpLoadDir(Session("UserID"))&"/Template/cbs"%>/<%=nowpath%>"><%=nowpath%></a></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="采用">
                <input name="Submit" type="submit" id="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" -->
