📄 m_userskin.asp
字号:
<!--#include file="inc/inc_sys.asp"-->
<%If CheckAccess("r_skin_user")=False Then Response.Write "无权操作":Response.End%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>oBlog--后台管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<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 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
Case Else
Call showskin()
end select
sub showskin()
dim rs,psql,sql,strField,userskinname,skinauthor,skinid,keyword,classid
ispass=CLng(Request("ispass"))
If ispass="" Or isnull(ispass) Then ispass=1
strField=trim(request("field"))
skinid=CLng(request("skinid"))
userskinname=Trim(request("userskinname"))
skinauthor=Trim(request("skinauthor"))
keyword=Trim(Request("keyword"))
classid=Request("classid")
if keyword<>"" then
keyword=oblog.filt_badstr(keyword)
end if
G_P_FileName="m_userskin.asp?action=showskin"
if ispass=1 then
G_P_FileName=G_P_FileName&"&ispass=1"
psql=" and ispass=1 "
ElseIf ispass=0 then
G_P_FileName=G_P_FileName&"&ispass=0"
psql="and ispass=0 "
end If
Select Case strField
Case "userskinname"
G_P_FileName=G_P_FileName&"&userskinname="&userskinname
psql=" and userskinname like '%" & Keyword & "%' "
Case "skinauthor"
G_P_FileName=G_P_FileName&"&skinauthor="&skinauthor
psql=" and skinauthor like '%" & Keyword & "%' "
Case "skinid"
G_P_FileName=G_P_FileName&"&skinid="&skinid
psql="and id="&clng(Keyword)
End Select
If classid<>"" Then
If classid=0 Then
G_P_FileName=G_P_FileName&"&classid="&classid
psql=" And (classid=0 Or classid Is Null) "
Else
G_P_FileName=G_P_FileName&"&classid="&classid
psql=" And classid=" & classid
End If
End If
if Request("page")<>"" then
G_P_This=cint(Request("page"))
else
G_P_This=1
end if
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select id,userskinname,skinauthor,skinauthorurl,isdefault,ispass,skinpic from oblog_userskin where 1=1 "&psql&" order by id desc "
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
showContent(rs)
G_P_Guide=G_P_Guide & " (共有0个模板)</h1>"
Response.write "<div align='right'>"&G_P_Guide&"</div>"
else
G_P_AllRecords=rs.recordcount
G_P_Guide=G_P_Guide & " (共有" & G_P_AllRecords & "个模板)</h1>"
if G_P_This<1 then
G_P_This=1
end if
if (G_P_This-1)*G_P_PerMax>G_P_AllRecords then
if (G_P_AllRecords mod G_P_PerMax)=0 then
G_P_This= G_P_AllRecords \ G_P_PerMax
else
G_P_This= G_P_AllRecords \ G_P_PerMax + 1
end if
end if
if G_P_This=1 then
Call showContent(rs)
Response.write oblog.showpage(true,true,"个模板")
else
if (G_P_This-1)*G_P_PerMax<G_P_AllRecords then
rs.move (G_P_This-1)*G_P_PerMax
dim bookmark
bookmark=rs.bookmark
else
G_P_This=1
end if
Call showContent(rs)
Response.write oblog.showpage(true,true,"个模板")
end if
end if
end sub
sub showContent(rs)
dim i
i=0
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">用 户 模 板 管 理</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<form name="form1" action="admin_userskin.asp?action=showskin&ispass=1" method="post">
<tr class="tdbg">
<td width="100" height="30"><strong>按分类过滤：</strong></td>
<td width="687" height="30">
<select size=1 name="classid">
<option value="0">------尚未分类------</option>
<%=sClasses%>
</select>
<input type="submit" value=" 查 看 "></td>
</tr>
</form>
<form name="form3" method="post" action="m_userskin.asp">
<tr class="tdbg">
<td width="120">
<strong>高级查询：</strong> </td>
<td ><select name="Field" id="Field">
<option value="userskinname" selected>按模板名</option>
<option value="skinauthor" selected>按作者名</option>
<option value="skinid" >按模板ID</option>
</select>
<input name="ispass" type="hidden" id="ispass" value="<%=ispass%>">
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" name="Submit2" value=" 查 询 "></td>
</tr>
</form>
</table>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">用户模板管理</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<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="m_userskin.asp?action=showskin&ispass=1">>>通过审核的模板</a> <a href="m_userskin.asp?action=showskin&ispass=0">>>未通过审核的模板</a></strong>
</tr>
</table>
<form name="form2" method="post" action="m_userskin.asp" onSubmit="return confirm('确定要执行选定的操作吗？');">
<table width="100%" 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>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<tr class="topbg">
<td align="center"><strong>选中</strong></td>
<td align="center"><strong>模板名称</strong></td>
<td><strong>操作</strong></td>
</tr>
<%
do while not rs.eof
dim userskinname
userskinname=rs("userskinname")
%>
<tr class="topbg">
<td width="30" valign="top">
<div align="center"><input name="checkbox" type="checkbox" onClick="unselectall()" id= "checkbox" class="tdbg" value='<%=rs("id")%>'></div>
<div align="center"><%= rs("id") %></div></td>
<td width="140"><div align="center">
<a href="../showskin.asp?id=<%=rs("id")%>" target="_blank"><img style="width:120px;height:77px;border:1px #888 solid;" src="<%=ProIco(rs("skinpic"),3)%>" /><br />
<%if rs("isdefault")=1 then
Response.Write "<span style=""color:#f00;font-weight:600;"">默认模板："&userskinname&"</span>"
else
Response.Write userskinname
end if
%>
</a>
</div></td>
<td><div>
<strong>模板作者：</strong>
<%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>
<div><%if rs("ispass")=1 then Response.Write("<span style=""color:#317531;font-weight:600;"">已审核</span>") else Response.Write("<span style=""color:#F30;font-weight:600;"">未审核</span>")%>
<%if ispass=0 then%>
<a href="m_userskin.asp?action=passskin&id=<%=rs("id")%>">通过审核</a>
<%else%>
<a href="m_userskin.asp?action=unpassskin&id=<%=rs("id")%>">取消审核</a>
<%end if%>
</div>
<div><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> <a href="m_userskin.asp?action=modiskin&id=<%=rs("id")%>">修改模板(文本方式)</a></div>
<div><a href="m_userskin.asp?action=delconfig&id=<%=rs("id")%>" style="color:#f00;font-weight:600;" onclick=return(confirm("确定要删除这个模板吗？"))>删除模板</a></div>
</td>
</tr>
<%
i=i+1
if i>=G_P_PerMax then exit do
rs.movenext
loop
%>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<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>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
set rs=nothing
end sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -