<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
'不进行action判断的话会漏洞备份文件名信息
If Action<>"templetlist" Then Response.End
%>


<div style="margin:10px;">
<ul>
<%
MyStr=Lcase(FSOFileRead("CF_Templet_Index.asp"))
TempletName_Use=Mid(Mystr,28,Instr(Mystr,"/index.htm")-28)

foldername=server.mappath("templet")
path=foldername
If Instr(path,"\templet")=0 Then Call AlertRef("不能浏览这个目录！")
ShowFolderList_templet(path) 



Function ShowFolderList_templet(folderspec) 
temp=request.ServerVariables("HTTP_REFERER") 
temp=left(temp,Instrrev(temp,"/")) 
temp1=len(folderspec)-len(server.MapPath("./"))-1 
if temp1>0 then 
temp1=right(folderspec,cint(temp1)) 
elseif temp1=-1 then 
temp1="" 
end if 
tempurl=temp+replace(temp1,"\","/")+"/" 
Set fso = CreateObject("Scripting.FileSystemObject") 
upfolderspec=fso.GetParentfoldername(folderspec&"\") 

'列出目录 
Set f = fso.GetFolder(folderspec) 
Set fc = f.SubFolders 
For Each f1 in fc 
%>
<li style="float:left;width:33%;border-bottom: 1px dotted <%=TableBorderColor%>;empty-cells:show;margin-bottom:10px;"> 
<%
 FilePath=Server.mappath("templet/"&f1.name&"/preview.jpg")
 Set Fs = Server.CreateObject("Scripting.FileSystemObject")
 if Fs.FileExists(FilePath) = true Then
  Response.write "<a href='templet/"&f1.name&"/preview_big.jpg' target='_blank'><img src='templet/"&f1.name&"/preview.jpg' width='200' height='248' border='0'></a><br>"
 Else
  Response.write "<img src='images/notempletpreview.jpg' width='200' height='248' border='0'><br>"
 End If

Response.write "模板名称："&f1.name &"<br>"

If Lcase(f1.name)=TempletName_Use Then
 Response.write "<font color='#ff0000'>正在使用中</font>"
Else
 Response.write "<a href='AdminUser.aspx?Action=templetmodifysave&TempletName="&f1.name&"' onClick=""return confirm('确定使用这个模板吗?')"">使用这个模板</a>"
End If
%>
</li>

<% 
Next 
foldername=StrReverse(left(StrReverse(folderspec),instr(StrReverse(folderspec),"\")-1))&"/"

%>
</ul>
</div>
<table class="tb_1">
<tr> 
<td colspan="5">
<strong>模板说明：</strong><br />
1.templet目录里系统默认模板的目录"default"必须存在,修复默认模板内容请谨慎，最好修改自己新建的模板<br />
2.当模板设置不对时导致系统无法运行时，请使用Tool_TempletRecover.asp进行模板的修复,修复后系统将恢复成默认模板<br />
3.请确认模板里没有恶意代码，没有漏洞，尽量使用官方模板
</td>
</tr>
</table>
      <%End Function %>