📄 admin_userskin.asp
字号:
<!--#include file="inc/inc_sys.asp"-->
<html>
<head>
<title>用户模版管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/admin/Admin_STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=javascript>
function unselectall()
{
if(document.form2.chkAll.checked){
document.form2.chkAll.checked = document.form2.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.checked = form.chkAll.checked;
}
}
</SCRIPT>
<%
dim action
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages,strGuide,ispass
Action=trim(request("Action"))
select case Action
case "saveconfig"
call saveconfig()
case "showskin"
call showskin()
case "modiskin"
call modiskin()
case "savedefault"
call savedefault()
case "delconfig"
call delconfig()
case "addskin"
call addskin()
case "saveaddskin"
call saveaddskin()
case "passskin"
call passskin
case "unpassskin"
call unpassskin
end select
sub showskin()
dim rs,psql,sql,strFileName
ispass=clng(request("ispass"))
if ispass=1 then
strFileName="admin_userskin.asp?action=showskin&ispass=1"
psql=" where ispass=1 "
else
strFileName="admin_userskin.asp?action=showskin&ispass=0"
psql=" where ispass=0 "
end if
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select id,userskinname,skinauthor,skinauthorurl,isdefault,ispass,skinpic from oblog_userskin "&psql&" order by id desc "
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
showContent(rs)
strGuide=strGuide & " (共有0个模板)</h1>"
response.write "<div align='right'>"&strGuide&"</div>"
else
totalPut=rs.recordcount
strGuide=strGuide & " (共有" & totalPut & "个模板)</h1>"
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
Call showContent(rs)
response.write oblog.showpage(strFileName,totalput,MaxPerPage,true,true,"个模板")
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
else
currentPage=1
end if
Call showContent(rs)
response.write oblog.showpage(strFileName,totalput,MaxPerPage,true,true,"个模板")
end if
end if
rs.Close
set rs=Nothing
end sub
sub showContent(rs)
dim i
i=0
%>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<br>
<table cellpadding="2" cellspacing="1" border="0" width="98%" class="border" align=center>
<tr align="center">
<td height=25 class="topbg" align="left"><strong>用户模版管理 <a href="admin_userskin.asp?action=showskin&ispass=1">>>通过审核的模板</a> <a href="admin_userskin.asp?action=showskin&ispass=0">>>未通过审核的模版</a></strong>
</tr>
</table>
<form name="form2" method="post" action="admin_userskin.asp" onSubmit="return confirm('确定要执行选定的操作吗？');">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<tr class="topbg">
<td height="25" colspan="6" ><strong><%if ispass=1 then response.Write "通过审核的模板" else response.write "未通过审核的模版"%></strong></td>
</tr>
<tr class="topbg">
<td width="10%" height="25" > <div align="center">ID</div></td>
<td width="20%" > <div align="center">名称<b>（红色为默认模板）</b></div></td>
<td width="20%" ><div align="center">作者</div></td>
<td width="10%" > <div align="center">审核</div></td>
<td width="10%" > <div align="center">选中</div></td>
<td width="40%" > <div align="center">模版管理</div></td>
</tr>
<%
do while not rs.eof
dim userskinname
userskinname=rs("userskinname")
%>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="10%"> <div align="center"><%= rs("id") %> </div></td>
<td width="20%" > <div align="center">
<%if rs("isdefault")=1 then
response.Write "<font color='red'>"&userskinname&"</red>"
else
response.Write userskinname
end if
%>
</div></td>
<td width="20%" ><div align="center">
<%if rs("skinauthorurl")="" or isnull(rs("skinauthorurl")) then
response.Write rs("skinauthor")
else
response.Write "<a href="""&oblog.filt_html(rs("skinauthorurl"))&""" target='_blank'>"&rs("skinauthor")&"</a>"
end if%>
</div></td>
<td width="10%" > <div align="center"><%if rs("ispass")=1 then response.Write("已审核") else response.Write("未审核")%></div></td>
<td width="10%"> <div align="center">
<input name="checkbox" type="checkbox" onClick="unselectall()" id= "checkbox" class="tdbg" value='<%=rs("id")%>'>
</div></td>
<td width="40%"> <div align="left">
<a href="../showskin.asp?id=<%=rs("id")%>" target="_blank">预览</a>
<%if ispass=0 then%>
<a href="admin_userskin.asp?action=passskin&id=<%=rs("id")%>">通过审核</a>
<%else%>
<a href="admin_userskin.asp?action=unpassskin&id=<%=rs("id")%>">取消审核</a>
<%end if%>
<a href="../admin_edit.asp?action=modiskin&skintype=user&t=0&editm=1&skinorder=0&id=<%=rs("id")%>" target="_blank">修改主模版</a>
<a href="../admin_edit.asp?action=modiskin&skintype=user&t=0&editm=1&skinorder=1&id=<%=rs("id")%>" target="_blank">修改副模版</a><br>
<a href="admin_userskin.asp?action=modiskin&id=<%=rs("id")%>">修改模版(文本方式)</a>
<a href="admin_userskin.asp?action=delconfig&id=<%=rs("id")%>" onclick=return(confirm("确定要删除这个模版吗？"))>删除模版</a></div></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr>
<td height="40" colspan="6" align="center" class="tdbg"> <div align="center">
<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" />
全选
<input type="radio" value="savedefault" name="action" checked>默认模板</option>
<%if ispass=0 then%>
<input type="radio" value="passskin" name="action" >通过审核</option>
<%else%>
<input type="radio" value="unpassskin" name="action">取消审核</option>
<%end if%>
<input type="radio" value="delconfig" name="action" >删除</option>
<input type="submit" name="Submit" value="保存设置">
</div></td>
</tr>
</table>
</form>
<%
end sub
sub savedefault()
dim isdefaultID
isdefaultID=trim(request("checkbox"))
if instr(isdefaultID,",")>0 then
Response.Write("<script language=javascript>alert('用户默认模板只可以选择一个！');history.back();</script>")
Response.End()
elseif isdefaultID="" then
Response.Write("<script language=javascript>alert('请指定要设定为默认的模板！');history.back();</script>")
Response.End()
exit sub
end if
oblog.execute("update oblog_userskin set isdefault=0")
oblog.execute("update oblog_userskin set isdefault=1 where id="&isdefaultID)
Response.Write"<script language=JavaScript>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -