📄 admin_template.asp
字号:
<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(BBS94KK.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>： <INPUT TYPE="text" NAME="NodeType" ReadOnly>
<br> 元素值 <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=BBS94KK.Fun.GetStr("ID")
Set Rs=BBS94KK.Execute("Select SkinContent From[KK_SkinStyle] where SkinID="&ID)
BBS94KK.Template.TemplateContent=Rs(0)
Rs.Close
If Request.Form("SkinName")<>"no" and Request.Form("SkinName")<>"" Then
Temp=BBS94KK.Template.EditTemplate(Request.Form("SkinName"),Request.Form("Content"))
BBS94KK.Execute("Update [KK_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, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(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 [KK_SkinStyle] Where SkinID In ("&ID&")")
Call Suc("","风格模版成功删除！","?"):Exit Sub
Else
Set Rs=SkinConn.Execute(" select SkinName,SkinContent from [KK_SkinStyle] where SkinID in ("&ID&") order by SkinID ")
While Not Rs.Eof
BBS94KK.Execute("Insert Into [KK_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=BBS94KK.Execute(" select SkinName,SkinContent from [KK_SkinStyle] where SkinID in ("&ID&") order by SkinID ")
While Not Rs.Eof
SkinConn.Execute("Insert Into [KK_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="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bgcolor='#DEF0FE' bordercolordark="#FFFFFF">
<tr bgcolor="#4D65A4">
<td height="25" colspan=8 ><b><font color="#FFFFFF"><%=FlagName%>风格模版数据</font></b></td>
</tr>
<tr>
<td height=25 width="10%" align="center"><b>序号</b></font></td>
<td align="center"><b>风格名称</b></font></td>
<td align="center" width="15%"><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 [KK_SkinStyle] order by SkinID")
Else
set Rs=BBS94KK.Execute("select SkinID,SkinName from [KK_SkinStyle] order by SkinID")
MdbName="Skins/KK_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><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><td colspan="4" align=center bgcolor=#e7e7e7> <%=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="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bgcolor='#DEF0FE' bordercolordark="#FFFFFF"><tr bgcolor="#4D65A4"><td height="25" colspan="3" ><b><font color="#FFFFFF">导入风格模版数据</font></b></td></tr>
<tr><td width="40%"><b><font color="#000077">导入风格模版数据库名：</font></b></td>
<td width="60%">
<input name="skinmdb" size="30" value="Skins/KK_SkinStyle.mdb"></td>
</tr>
<tr>
<td valign=middle colspan=2 align=center>
<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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -