📄 admin_skin.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<!--#include file="conn.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#include file="Admin.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="../inc/ubbcode.asp"-->
<%
dim rs, sql
dim Action,SkinID,FoundErr,ErrMsg
Action=trim(request("Action"))
SkinID=trim(request("SkinID"))
%>
<!-- #include file="Inc/Head.asp" -->
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" class="table_southidc">
<tr class="topbg">
<td class="back_southidc" height="22" colspan="2" align="center"><strong>配
色 模 板 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td><a href="Admin_Skin.asp">配色模板管理首页</a> | <a href="Admin_Skin.asp?Action=Add">添加配色模板</a>
| <a href="Admin_Skin.asp?Action=Export">配色模板导出</a> | <a href="Admin_Skin.asp?Action=Import">配色模板导入</a></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>模板说明：</strong></td>
<td>红色说明为站本站已使用了的CSS</td>
</tr>
</table>
<%
select case Action
case "Add","Modify"
call ShowSkinSet()
case "SaveAdd"
call SaveAdd()
case "SaveModify"
call SaveModify()
case "Set"
call SetDefault()
case "Del"
call DelSkin()
case "Export"
call Export()
case "DoExport"
call DoExport()
case "Import"
call Import()
case "Import2"
call Import2()
case "DoImport"
call DoImport()
case else
call main()
end select
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub main()
sql="select * from Skin"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1
%>
<form name="form1" method="post" action="Admin_Skin.asp">
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td width="32" align="center"><strong>选择</strong></td>
<td width="31" align="center"><strong>ID</strong></td>
<td width="95" height="22" align="center"><strong> 模板名称</strong></td>
<td width="129" align="center"><strong>效果图</strong></td>
<td width="64" align="center"><strong>设计者</strong></td>
<td width="82" align="center"><strong>模板类型</strong></td>
<td width="131" height="22" align="center"><strong> 操作</strong></td>
</tr>
<%if not(rs.bof and rs.eof) then
do while not rs.EOF %>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="32" align="center"><input type="radio" value="<%=rs("SkinID")%>" <%if rs("IsDefault")=true then response.write " checked"%> name="SkinID"></td>
<td width="31" align="center"><%=rs("SkinID")%></td>
<td align="center"><%=rs("SkinName")%></td>
<td width="129" align="center"><%response.write "<a href='Admin_Skin.asp?Action=Prview&SkinID=" & rs("SkinID") & "' title='点此查看原始效果图'><img src='" & rs("PicUrl") & "' width=100 height=30 border=0></a>"%></td>
<td width="64" align="center"><%response.write "<a href='mailto:" & rs("DesignerEmail") & "' title='设计者信箱：" & rs("DesignerEmail") & vbcrlf & "设计者主页：" & rs("DesignerHomepage") & "'>" & rs("DesignerName") & "</a>"%></td>
<td width="82" align="center"><%if rs("DesignType")=1 then response.write "用户自定义" else response.write "系统提供"%></td>
<td width="131" align="center"><%
response.write "<a href='Admin_Skin.asp?Action=Modify&SkinID=" & rs("SkinID") & "'>修改模板设置</a> "
if rs("DesignType")=1 and rs("IsDefault")=False then
response.write "<a href='Admin_Skin.asp?Action=Del&SkinID=" & rs("SkinID") & "' onClick=""return confirm('确定要删除此配色模板吗？删除此配色模板后原使用此配色模板的文章将改为使用系统默认配色模板。');"">删除模板</a>"
else
response.write " "
end if
%> </td>
</tr>
<%
rs.MoveNext
loop
%>
<tr class="tdbg">
<td colspan="7" align="center"><input name="Action" type="hidden" id="Action" value="Set">
<input type="submit" name="Submit" value="将选中的模板设为默认模板"></td>
</tr>
<%end if%>
</table>
</form>
<%
rs.close
set rs=nothing
end sub
sub Export()
sql="select * from Skin"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1
%>
<form name="myform" method="post" action="Admin_Skin.asp">
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="6" align="center"><strong>配色模板导出</strong></td>
</tr>
<tr class="title">
<td width="30" align="center"><strong>选择</strong></td>
<td width="50" align="center"><strong>ID</strong></td>
<td height="22" align="center"><strong> 模板名称</strong></td>
<td width="150" align="center"><strong>效果图</strong></td>
<td width="100" align="center"><strong>设计者</strong></td>
<td width="80" height="22" align="center"><strong>模板类型</strong></td>
</tr>
<%if not(rs.bof and rs.eof) then
do while not rs.EOF %>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="30" align="center"><input type="checkbox" value="<%=rs("SkinID")%>" name="SkinID" onclick="unselectall()"></td>
<td width="50" align="center"><%=rs("SkinID")%></td>
<td align="center"><%=rs("SkinName")%></td>
<td width="150" align="center"><%response.write "<a href='Admin_Skin.asp?Action=Prview&SkinID=" & rs("SkinID") & "' title='点此查看原始效果图'><img src='" & rs("PicUrl") & "' width=100 height=30 border=0></a>"%></td>
<td width="100" align="center"><%response.write "<a href='mailto:" & rs("DesignerEmail") & "' title='设计者信箱：" & rs("DesignerEmail") & vbcrlf & "设计者主页：" & rs("DesignerHomepage") & "'>" & rs("DesignerName") & "</a>"%></td>
<td width="80" align="center"><%if rs("DesignType")=1 then response.write "用户自定义" else response.write "系统提供"%></td>
</tr>
<%
rs.MoveNext
loop
%>
<tr class="tdbg">
<td colspan="6"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中所有模板 导出选中的模板到数据库：
<input name="SkinMdb" type="text" id="SkinMdb" value="Skin/Skin.mdb" size="20" maxlength="50">
<input type="submit" name="Submit" value="导出">
<input name="Action" type="hidden" id="Action" value="DoExport"></td>
</tr>
<%end if%>
</table>
</form>
<SCRIPT language=javascript>
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll"&&e.disabled!=true)
e.checked = form.chkAll.checked;
}
}
</script>
<%
rs.close
set rs=nothing
end sub
sub Import()
%>
<form name="myform" method="post" action="Admin_Skin.asp">
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" align="center"><strong>配色模板导入（第一步）</strong></td>
</tr>
<tr class="tdbg">
<td height="100"> 请输入要导入的模板数据库的文件名：
<input name="SkinMdb" type="text" id="SkinMdb" value="Skin/Skin.mdb" size="20" maxlength="50">
<input name="Submit" type="submit" id="Submit" value=" 下一步 ">
<input name="Action" type="hidden" id="Action" value="Import2"> </td>
</tr>
</table>
</form>
<%
end sub
sub Import2()
on error resume next
dim mdbname,tconn,trs
mdbname=replace(trim(request.form("skinmdb")),"'","")
if mdbname="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请填写导入模版数据库名"
exit sub
end if
Set tconn = Server.CreateObject("ADODB.Connection")
tconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
if err.number<>0 then
ErrMsg=ErrMsg & "<br><li>数据库操作失败，请以后再试，错误原因：" & err.Description
err.clear
exit sub
end if
sql="select * from Skin"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,tconn,1,1
%>
<form name="myform" method="post" action="Admin_Skin.asp">
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="6" align="center"><strong>配色模板导入（第二步）</strong></td>
</tr>
<tr class="title">
<td width="39" align="center"><strong>选择</strong></td>
<td width="41" align="center"><strong>ID</strong></td>
<td width="159" height="22" align="center"><strong> 模板名称</strong></td>
<td width="150" align="center"><strong>效果图</strong></td>
<td width="100" align="center"><strong>设计者</strong></td>
<td width="80" height="22" align="center"><strong>模板类型</strong></td>
</tr>
<%if not(rs.bof and rs.eof) then
do while not rs.EOF %>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="39" align="center"><input type="checkbox" value="<%=rs("SkinID")%>" name="SkinID" onclick="unselectall()"></td>
<td width="41" align="center"><%=rs("SkinID")%></td>
<td align="center"><%=rs("SkinName")%></td>
<td width="150" align="center"><%response.write "<a href='Admin_Skin.asp?Action=Prview&SkinID=" & rs("SkinID") & "' title='点此查看原始效果图'><img src='" & rs("PicUrl") & "' width=100 height=30 border=0></a>"%></td>
<td width="100" align="center"><%response.write "<a href='mailto:" & rs("DesignerEmail") & "' title='设计者信箱：" & rs("DesignerEmail") & vbcrlf & "设计者主页：" & rs("DesignerHomepage") & "'>" & rs("DesignerName") & "</a>"%></td>
<td width="80" align="center"><%if rs("DesignType")=1 then response.write "用户自定义" else response.write "系统提供"%></td>
</tr>
<%
rs.MoveNext
loop
%>
<tr class="tdbg">
<td colspan="6"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中所有模板
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -