template.asp

网趣系统时尚版8（支付宝）

<!--#include file="Check.Asp"-->
<%
Dim Temp,i,Str,SkinConn
dim Action,ID
ID=Request("ID")
Str="页面属性|菜单属性|页面头部|你的位置|快速登陆|用户信息|分区表格|版块列表|版块最后回复|分区底部表格|内容表格|在线统计|版块在线|在线显示|主题列表顶部|主题列表|主题列表底部|帖子顶部|显示投票|帖子信息|帖子底部|用户登陆|各项列表顶部|各项列表底部|首页图例|页面底部|版块类型图片|用户类型图片|发帖图片|帖子状态图片"
%>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
  <tr  bgcolor="#4D65A4"><td height="25" colspan="3" bgcolor="#CCCCCC" ><b><font color="#FFFFFF">论坛风格设置 </font></b></td>
  </tr>
<tr><td height="25" colspan="3" align="center" bgcolor="#DEDEDE"><a href="?">【风格管理】</a> &nbsp; <a href="?Action=Add">【添加风格】</a>&nbsp;&nbsp;<a href="?Action=Load">【风格数据导入】</a>&nbsp;&nbsp;<a href="?Action=SkinData">【风格数据导出】</a></td>
</tr></table><br>
<%
Select Case Request("Action")
Case "Add"
	Add
Case "SaveAdd"
	SaveAdd
Case "Del"
	Del
Case "Auto"
	Auto
Case "IsMode"
	IsMode
Case "Edit"
	Edit
Case "UpdateName"
	UpdateName
Case "EditSkin"
	EditSkin
Case "SkinData"
	SkinData
Case "Load"
	Load
Case "DataPost"
	DataPost
Case Else
	Main
End Select
AdminFooter()

Function SaveReplace(Str)
	Str = Replace(Str,"[","{LFG}")
	Str = Replace(Str,"]","{RFG}")
	SaveReplace = Str
End Function

Sub updateName
	YxBBs.Execute("Update [YX_SkinStyle] Set SkinName='"&Replace(Request("SkinName"),"'","''")&"' Where SkinID="&ID)
	Call Suc("","风格名称修改成功。","?")
	'Cache.name="Skin_"& ID
	'Cache.clean()
	'Cache.Name="SkinList"
	'Cache.clean()
	Application.Contents.RemoveAll
End Sub

Sub Add
Dim Temp,SkinName,txt,IsMode
Set RS=YxBBs.Execute("Select Top 1 SkinName,SkinID,SkinContent From [YX_SkinStyle] Where IsMode")
If not Rs.Eof Then
	IsMode=True
	SkinName=Rs("SkinName")
	YxBBs.Template.TemplateContent=RS("SkinContent")
	Temp=YxBBs.Template.ReadTemplateName
	Txt="当前的元素引用 风格模版 <font color=red>" & SkinName &"</font>"
Else
	IsMode=False
	Temp=Split(Str,"|")
	Txt="当前没有引用 风格模版 "
End If
Rs.Close
%>
<script>
var isopen=1;
</script>
<FORM METHOD=POST style="margin:0 " ACTION="?Action=SaveAdd">
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	  <tr  bgcolor="#4D65A4"><td height="25" colspan="2" bgcolor="#CCCCCC" ><b><font color="#FFFFFF">添加新风格 </font></b></td>
	</tr>
	<tr><td height="40" bgcolor="#DEDEDE"><b>风格名称：</b>
	  <INPUT TYPE="text" NAME="SkinName" >&nbsp;&nbsp;&nbsp;<%=Txt%></td></tr>
	<tr>
	  <td colspan="2" bgcolor="#DEDEDE">
<%
		For i = 0 to Ubound(Temp)
			 Response.Write "<tr bgcolor=""#DEDEDE""><td><li>" & Temp(i) & " 【<a href=#this onclick=""javascript:if(isopen==1){viewcode" & i & ".style.display='block';isopen=0;}else{viewcode" & i & ".style.display='none';isopen=1;}"">添加元素</a>】 </td></tr><tr><td bgcolor=#F6F6F6 id='viewcode"& i &"' style='color:#999999;display:none'><TEXTAREA NAME='TmpName_"&i&"' ROWS=20>"
			 If IsMode Then
			 Response.Write YxBBs.Fun.HtmlCode(YxBBs.Template.ReadTemplate(Temp(i)))
			 End If
			 Response.Write"</TEXTAREA></td></tr>"
		Next
%>
<TR>
	<TD align=Left bgcolor="#CCCCCC"><input name="submit" type="submit" value=" 添 加 "></td>
</TR>
</table>
</table>
</form>
<%
End Sub

Sub SaveAdd
Dim Temp,Content,ResultErr,TS
  If Request("SkinName")="" Then
     Call GoBack("","请填写风格名称！")
	 Exit Sub
  End IF
  Temp=Split(Str,"|")
  For i = 0 to Ubound(Temp)
      Content=Content&VBCrlf&VBCrlf&"["&Temp(i)&"]"&VBCrlf&VBCRLF&SaveReplace(Request("TmpName_"&i))&VBCRLF&VBCrlf&"[/"&Temp(i)&"]"
      If Request("TmpName_"&i)="" Then
        ResultErr=ResultErr&"<FONT COLOR=#FF0033>"&Temp(i)&"</FONT>，"
	  End If
  Next
  YxBBs.Execute("Insert Into YX_SkinStyle(SkinName,SkinContent) values('"&Replace(Request("SkinName"),"'","''")&"','"&Replace(Content,"'","''")&"')")
  If ResultErr<>"" Then
	  Call Suc("","此风格模版以下的元素"&ResultErr&" 没有内容!<li>请到风格管理里面编辑！","?")
  Else
	  Call Suc("","成功添加<b>"&Request("SkinName")&"</b>风格","?")
	  Application.Contents.RemoveAll
  End If
End Sub

Sub Auto
   YxBBs.Execute("Update [YX_Config] Set SkinID="&ID)
   YxBBs.Execute("Update [YX_SkinStyle] Set Flag=True where SkinID="&ID )
   YxBBs.Execute("Update [YX_SkinStyle] Set Flag=False where SkinID<"&ID&" or SkinID>"&ID)
   Call Suc("","风格设为论坛默认使用成功！","?")
   Application.Contents.RemoveAll
End Sub

Sub IsMode
   YxBBs.Execute("Update [YX_SkinStyle] Set IsMode=True where SkinID="&ID )
   YxBBs.Execute("Update [YX_SkinStyle] Set IsMode=False where SkinID<"&ID&" or SkinID>"&ID)
   Call Suc("","此风格被设置为添加论坛风格的引用模版！","?")
End Sub

Sub Del
	YxBBs.Execute("Delete From [YX_SkinStyle] Where SkinID="&ID)
	Call Suc("","风格已被成功删除！","?")
	Application.Contents.RemoveAll
End Sub

Sub Main
Dim  Rs,RsT,MainID
Set RsT=YxBBs.Execute("Select SkinID,SkinName,Flag,Ismode From [YX_SkinStyle] Order By SkinID Asc")
Rs=Rst.GetRows()
RsT.CLose
%>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
  <tr  bgcolor="#CCCCCC"><td width="8%" height="25" align="center"><b><font color="#FFFFFF">风格ID</font></b></td>
<td width="43%" align="center"><b><font color="#FFFFFF">风格名称</font></b></td>
<td width="49%" align="center"><b><font color="#FFFFFF">风格管理</font></b></td>
</tr>
  <%
	Dim i
    For i=0 To UBound(Rs,2)
	%>
	 <tr bgcolor="#DEDEDE"><td align="center"><%=Rs(0,i)%></td><td align="center"><%=Rs(1,i)%></td><td align="center">
		 <% If Rs(2,i) Then 
		 Response.write "<FONT  COLOR=#FF0033><b>√</b> 论坛默认</FONT>"
		 Else
		 REsponse.write "<b>×</b> <A HREF=""?Action=Auto&ID="&Rs(0,i)&""">论坛默认</A>"
		 End IF
		 REsponse.write " &nbsp; "
		 If Rs(3,i) Then
		 Response.write "<FONT  COLOR=#FF0033><b>√</b> 做为模版</FONT>"
		 Else
		 REsponse.write "<b>×</b> <A HREF=""?Action=IsMode&ID="&Rs(0,i)&""">做为模版</A>"
		 End IF		 
		 %>　&nbsp; <A HREF="?Action=Edit&ID=<%=Rs(0,i)%>"><img src="../images/edit.gif" border="0" align="absmiddle"> 修改</A> &nbsp; <A HREF="?Action=Del&ID=<%=Rs(0,i)%>" onclick="<%if Rs(2,i) then%>alert('此风格论坛正在使用中，论坛默认风格不能删除！');return false;<%else%>checkclick('删除后将不能恢复！您确定要删除吗？')<%end if%>"><img src="../images/del.gif" border="0" align="absmiddle"> 删除</a></td>
  </tr>
    <%Next%>
</table>
<%
End Sub


Sub Edit
	Dim Temp,SkinName
	Set RS=YxBBs.Execute("Select SkinName,SkinContent From [YX_SkinStyle] Where SkinID="&ID)
	SkinName=Rs(0)
	YxBBs.Template.TemplateContent=RS(1)
	Rs.Close
	Temp=YxBBs.Template.ReadTemplateName
	%>
	<br>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">