template.asp

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

<TR><TD align=Left bgcolor="#CCCCCC"><FORM METHOD=POST style="margin:0" ACTION="?Action=UpdateName"><FONT  COLOR="#FF0033"><B>风格名称：</B></FONT><INPUT TYPE="text" NAME="SkinName" value="<%=SkinName%>"> <INPUT TYPE="hidden" name="ID" value="<%=ID%>"><INPUT TYPE="submit" value="更改风格名称">
</FORM></td>
</TR><TR><TD bgcolor="#DEDEDE">
<table border=1 bordercolor=#DEF0FE  cellspacing="2" width="100%" align=center style="font-size: 12px; font-family: Verdana;line-height:22px;TABLE-LAYOUT:fixed;word-break:break-all">
<%
	If IsArray(Temp) Then
		For i = 0 to Ubound(Temp)
			 Response.Write "<tr><td bordercolor=#999999><table width='100%'><tr><td width='50%'><li>" & Temp(i) & " </td><td  width='50%'>【<a href=#this onclick=""javascript:if(isopen==1){viewcode" & i & ".style.display='block';isopen=0;}else{viewcode" & i & ".style.display='none';isopen=1;}"">查看</a>】 【<a href=#edit onclick=""Edit(viewcode" & i & ",'" & Temp(i) & "')"">修改</a>】</td></tr></table></td></tr><tr><td bgcolor=#E7ECF1 id='viewcode"& i &"' bordercolor=#999999 style='color:#888888;display:none'>" &HtmlenCode(YxBBs.Template.ReadTemplate(Temp(i)))&  "</td></tr>"
		Next
	Else
		Response.Write "<tr><td>暂时还没有风格模板元素</td><td align=right></td></tr>"
	End If
%>
</table>
<br>
<form name=form1 style="margin:0 " method=Post action="?Action=EditSkin">
<table border=1 bordercolor=#FFFFFF width=98% align=center style="font-size: 11px; font-family: Verdana;line-height:22px">
 <tr><td bordercolor=#999999><INPUT TYPE="hidden" Name="SkinName" value="no"><INPUT TYPE="hidden" name="ID" value="<%=ID%>">
       <font color=red>修改风格元素</font><a name=edit></a>：&nbsp;<INPUT TYPE="text" NAME="NodeType" ReadOnly>
       <br> &nbsp;&nbsp;元素值 <br><textarea name=Content cols="100" rows="15" style="font-size:12px"></textarea>
<div align="center"><input type=submit value=" 修改风格 "></div></td></tr>
</table>
</form>
</TD>
</TR>
</TABLE>
<%
End Sub


Sub EditSkin
	Dim Temp
	ID=YxBBs.Fun.GetStr("ID")
	Set Rs=YxBBs.Execute("Select SkinContent From[YX_SkinStyle] where SkinID="&ID)
	YxBBs.Template.TemplateContent=Rs(0)
	Rs.Close
	If Request.Form("SkinName")<>"no" and Request.Form("SkinName")<>"" Then
		Temp=YxBBs.Template.EditTemplate(Request.Form("SkinName"),Request.Form("Content"))
		YxBBs.Execute("Update [YX_SkinStyle] Set SkinContent='"&Replace(Temp,"'","''")&"' Where SkinID="&ID)
		Call Suc("","风格的元素 ["&Request.Form("SkinName")&"] 风格修改成功。",Request.ServerVariables("HTTP_REFERER"))
		Cache.Name="Skin_"& ID
		Cache.Clean()
	Else
	     Call GoBack("","请先选取相应的风格元素。")
	End If
End Sub

function HTMLEncode(fString)
	if not isnull(fString) then
		fString = replace(fString, ">", "&gt;")
		fString = replace(fString, "<", "&lt;")
		fString = Replace(fString, CHR(32), "&nbsp;")
		fString = Replace(fString, CHR(9), "&nbsp;")
		fString = Replace(fString, CHR(34), "&quot;")
		fString = Replace(fString, CHR(39), "&#39;")
		fString = Replace(fString, CHR(13), "")
		fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
		fString = Replace(fString, CHR(10), "<BR> ")
		HTMLEncode = fString
	end if
end function

Sub DataPost
	Dim Msg,MdbName
	IF ID="" Then Call GoBack("","您还没有选定一个项目！"):Exit Sub
	MdbName=Request("SkinMdb")
    If Request("To")="InputSkin" Then
	    SkinConnection(mdbname)
	    If Request("submit")="删除" Then
	       SkinConn.Execute("Delete From [YX_SkinStyle] Where SkinID In ("&ID&")")
		   Call Suc("","风格模版成功删除！","?"):Exit Sub
		Else
		  Set Rs=SkinConn.Execute(" select SkinName,SkinContent from [YX_SkinStyle] where SkinID in ("&ID&")  order by SkinID ")
          While Not Rs.Eof
              YxBBs.Execute("Insert Into [YX_SkinStyle](SkinName,SkinContent) values('"&Replace(Rs(0),"'","''")&"','"&Replace(Rs(1),"'","''")&"')")  
			  Rs.Movenext
          Wend
		  	Rs.Close
		  Call Suc("","风格模版数据导入成功！","?")
		  Cache.Name="SkinList"
		  Cache.clean()
		  Exit Sub
		End If
    Else
	      SkinConnection(MdbName)
	      Set Rs=YxBBs.Execute(" select SkinName,SkinContent from [YX_SkinStyle] where SkinID in ("&ID&")  order by SkinID ")
          While Not Rs.Eof
              SkinConn.Execute("Insert Into [YX_SkinStyle](SkinName,SkinContent) values('"&Replace(Rs(0),"'","''")&"','"&Replace(Rs(1),"'","''")&"')")  
			  Rs.Movenext
          Wend 
		  Rs.Close
		  Call Suc("","风格模版数据导出成功！","?")
   End If
End Sub


Sub SkinData
Dim FlagName,MdbName,act
If Request("Flag")="LoadThis" Then
    FlagName="导入"
    act="InputSkin"
    MdbName=trim(Request.form("SkinMdb"))
    If MdbName="" Then
		Call GoBack("","请填写导出风格模版保存的表名")
		Exit Sub
	End If
Else
	FlagName="导出"
	act="OutSkin"
End If
%>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
  <tr  bgcolor="#CCCCCC">
    <td height="25" colspan=8 ><b><font color="#FFFFFF"><%=FlagName%>风格模版数据</font></b></td>
  </tr>
  <tr bgcolor="#DEDEDE">
    <td width="10%" height=25 align="center"><b>序号</b></font></td>
    <td align="center"><b>风格名称</b></font></td>
    <td width="15%" align="center"><b>选择</b></font></td>
  </tr>
  <form action="?Action=DataPost&To=<%=Act%>" method=post name=even>
    <%
   If act="InputSkin" Then
	  SkinConnection(MdbName)
	  Set Rs=SkinConn.Execute("select SkinID,SkinName from [YX_SkinStyle] order by SkinID")
   Else
	 set  Rs=YxBBs.Execute("select SkinID,SkinName from [YX_SkinStyle] order by SkinID")
	 MdbName="../Skins/YX_SkinStyle.mdb"
   End If
   Dim Temp,i
   IF Rs.Eof Then Call GoBack("","该数据库中没有风格模版的数据！"):Exit Sub
   Temp=Rs.GetRows()
   For i=0 To Ubound(Temp,2)
   %>
    <tr bgcolor="#DEDEDE"><td  align="center"><%=Temp(0,i)%></td><td align="center"><%=Temp(1,i)%></td><td  align="center"><input type="checkbox" name="ID" value="<%=Temp(0,i)%>"></td></tr>
    <%Next%>
    <tr bgcolor="#CCCCCC"><td colspan="4" align=center> <%=FlagName%>的数据库：
          <input type="text" name="SkinMdb" size="30" value="<%=MdbName%>"> <input type="submit" name="submit" value="<%=FlagName%>">
          <%If act="InputSkin" Then%>
          <input type="submit" name="submit" value=删除  onClick="checkclick('删除后将不能恢复！您确定要删除吗？');">
          <%End If%>
<input type=checkbox name=chkall value=on onClick="CheckAll(this.form)"> 全选</td></tr></form></table><%
End Sub

Sub Load()
%>
<form action="?action=SkinData&Flag=LoadThis" method=post>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF"><tr  bgcolor="#CCCCCC"><td height="25" colspan="3" ><b><font color="#FFFFFF">导入风格模版数据</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="40%"><b><font color="#000077">导入风格模版数据库名：</font></b></td>        
	   <td width="60%">
      <input name="skinmdb"  size="30" value="../Skins/YX_SkinStyle.mdb"></td>
    </tr>
	   <tr bgcolor="#CCCCCC">
	   <td colspan=2 align=center valign=middle>
         <input type="submit" value="下一步" name="B1"></td></tr>
  </table>
</form>
<%End Sub

Sub SkinConnection(mdbname)
On Error Resume Next 
	Set SkinConn = Server.CreateObject("ADODB.Connection")
	SkinConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MdbName)
	If Err Then 
		Call GoBack("",Mdbname&" 数据库不存在！")
		AdminFooter()
		Response.end
	End If
End Sub
%>
<script language="JavaScript">
<!--
var isopen=1;
function Edit(obj,Node){
	document.all.form1.NodeType.value = Node;
	document.all.form1.SkinName.value = Node;
	document.all.form1.Content.value = obj.innerText;
}
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall'){
	e.checked = form.chkall.checked;
	}
   }
  }
//-->
</script>