📄 admin_skin.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.asp"-->
<!--#include file="../inc/Config.Asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
Call Admin_Admin()
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
Case "adminskin"
Call admin_skin()
Case "newadmin"
Call admin_newadmin()
Case "delskin"
Call admin_delskin()
Case "makeskin"
Call makeskin()
Case "admin_makeskin"
Call admin_makeskin()
End Select
Sub admin_index()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—风格管理</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" height="25"><strong class="size">贴吧风格管理</strong></td>
</tr>
<tr class="table_3">
<td height="15" class="bj"><strong>修改说明：</strong></td>
</tr>
<tr>
<td height="38" class="table_2" valign="top"> 首先在站点Skin目录下建立一个文件夹（文件名尽量为英文或数字），然后将风格文件上传至改文件夹下，进入后台 - 风格管理 填写表单提交再返回进入网站设置 - 风格设置选种新风格 最后更新数据 完成后刷新一下主页就可以即可看到新风格<br>
<strong>注意：</strong>不得删除正在使用的风格，将会使页面无法正常浏览</td>
</tr>
</table>
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg"><strong class="size">风格添加管理</strong></td>
<form action="admin_skin.asp?action=adminskin" method="post">
<tr class="table_3">
<td class="bj">风格添加</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="table_2">风格名称：
<input type="text" name="skinname" class="input" style="width:138px;" ><br>
文件夹名称：
<input type="text" name="skinid" class="input" style="width:138px;" >
[Skin/文件夹名]<br>
<br>
<input type="submit" value="确认添加"class="buttion"> <input type="reset" value="重新输入"class="buttion"></td>
</tr>
</form>
<tr class="table_3">
<td class="bj"> 风格管理 <font color="#FF0000"><strong>(请不要删除当前正在使用的风格)</strong></font></td>
</tr>
<tr>
<td>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td width="14%">风格名称</td>
<td width="17%" >文件夹名称</td>
<td width="17%" >风格路径</td>
<td width="16%" >添加管理员</td>
<td width="20%">添加日期</td>
<td width="16%" >操作</td>
<%
dim a
set rs= server.createobject("adodb.recordset")
sql= "select * from [skin] order by [id] desc "
rs.open sql,conn,1
do while not rs.eof
a=a+1
%>
<tr>
<td ><%=a%>.</font><%=rs("skinname")%></td>
<td ><%=rs("skinid")%></td>
<td >../Skin/<%=rs("skinid")%></td>
<td ><%=rs("username")%></td>
<td>
<%=rs("skindate")%></td>
<td ><a href="admin_skin.Asp?action=makeskin&skinid=<%=rs("skinid")%>&id=<%=rs("id")%>">修改</a> <a onClick="return confirm('确定删除该风格？')" href="admin_skin.Asp?action=delskin&id=<%=rs("skinid")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
%></table>
</td></tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_makeskin()
id=request.QueryString("id")
skinname=request.Form("skinname")
skinid=request.Form("skinid")
if skinname="" Or skinid="" then
%>
<script language="javascript">
alert("风格名称与文件夹名称不能为空")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
set rs= server.createobject("adodb.recordset")
sql= "update [skin] set [skinname]='"&skinname&"',[skinid]='"&skinid&"' where [id]="&id
rs.Open sql,conn,3
%>
<script language="javascript">
alert("风格修改成功")
document.location="admin_skin.Asp"
</script>
<%
End If
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_skin()
skinname=request.form("skinname")
skinid=request.form("skinid")
if skinname="" Or skinid="" then
%>
<script language="javascript">
alert("风格名称与文件夹名称不能为空")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
skindate=date()
set rs= server.createobject("adodb.recordset")
sql= "insert into [skin]([skinname],[skinid],[skindate],[username]) values ('"&skinname&"','"&skinid&"','"&skindate&"','"&Session("uesrname")&"')"
rs.Open sql,conn
%>
<script language="javascript">
alert("风格添加成功！")
document.location="admin_skin.asp"
</script>
<%
end if
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_delskin()
id=request.QueryString("id")
if id = skin then
%>
<script language="javascript">
alert("不得删除当前风格！")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
set rs= server.createobject("adodb.recordset")
sql="delete from [skin] where [skinid]='"&id&"'"
rs.Open sql,conn,3
%>
<script language="javascript">
alert("风格删除成功！")
document.location="admin_skin.asp"
</script>
<%
end if
End Sub
Sub makeskin()
id=request.QueryString("id")
skinid=request.QueryString("skinid")
if skinid = skin then
%>
<script language="javascript">
alert("不得修改当前风格！")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
set rs= server.createobject("adodb.recordset")
sql= "select * from [skin] where [id]="&id
rs.open sql,conn,1
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—风格管理</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" height="25"><strong class="size">贴吧风格管理</strong></td>
</tr>
<tr class="table_3">
<td height="15" class="bj"><strong>修改说明：</strong></td>
</tr>
<tr>
<td height="38" class="table_2" valign="top"> 首先在站点Skin目录下建立一个文件夹（文件名尽量为英文或数字），然后将风格文件上传至改文件夹下，进入后台 - 风格管理 填写表单提交再返回进入网站设置 - 风格设置选种新风格 最后更新数据 完成后刷新一下主页就可以即可看到新风格<br>
<strong>注意：</strong>不得删除正在使用的风格，将会使页面无法正常浏览</td>
</tr>
</table>
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg"><strong class="size">风格修改</strong></td>
<form action="admin_skin.asp?action=admin_makeskin&id=<%=id%>" method="post">
<tr class="table_3">
<td class="bj">风格添加</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="table_2">风格名称：
<input type="text" name="skinname" class="input" value="<%=rs("skinname")%>" style="width:138px;" ><br>
文件夹名称：
<input type="text" name="skinid" class="input" value="<%=rs("skinid")%>" style="width:138px;" >
[Skin/文件夹名]<br>
<br>
<input type="submit" value="确定修改"class="buttion"> <input type="reset" value="重新输入"class="buttion"></td>
</tr>
</form>
</table>
</body>
</html>
<%
End If
End Sub
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -