📄 admin_style.asp
字号:
<%
'==================================
'=文 件 名：admin_style.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：模板系统管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then
errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
response.End
elseif cur_adminsuper<>1 then
errmsg=""&cur_adminname&"，您不是超级管理员，没有权限进行此操作！"
response.write "<script>window.alert('"&errmsg&"');window.location='javascript:history.go(-1);';</script>"
response.End
end if
Function Encode(content)
dim tmp
tmp = content
if instr(lcase(tmp),"<iframe>")<>0 or instr(lcase(tmp),"</iframe>")<>0 then
response.write "<script>window.alert('请不要使用框架网页！');window.location='javascript:history.go(-1);';</script>"
response.End
else
Encode = tmp
end if
End Function
id = trim(request.QueryString("id"))
if id="" then
id=mb
end if
sql="select * from wapls_mb where mb_id="& id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
mbname=rs(1)
rs.close
set rs=nothing
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=100&&he<=700)
obj.style.height=he+i+'px';
else
obj.style.height='300px';
}
//-->
</script>
<%
'==================================
'=功 能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
case "list" '风格列表
call list()
case "edit" '编辑风格
call edit()
case "copy"
call copy()
case "rename"
call rename()
case "del"
call del()
case else
call list()
End Select
'==================================
'=过 程 名：list
'=功 能：风格列表
'==================================
sub list()
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td class="td_title">网站风格模板管理 [ 当前使用的模板是<font color="#ffff00"><%=mbname%></font> ]</td>
</tr>
<tr class="tablebody">
<form action="?action=rename" method="post">
<td> 将 模 板：
<select name="id">
<%
sql = "select * from wapls_mb"
set rs = conn.Execute (sql)
do while not rs.eof%>
<option value="<%=rs(0)%>"><%=rs(1)%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select><font color="blue"> 重命名</font>为 <input name="name" type="text" id="name" size="15">
<input type="submit" name="Submit" value="重命名"></td>
</form>
</tr>
<tr class="tablebody">
<form action="?action=del" method="post">
<td> 删除模板：
<select name="id">
<%
sql = "select * from wapls_mb"
set rs = conn.Execute (sql)
do while not rs.eof%>
<option value="<%=rs(0)%>"><%=rs(1)%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</select>
<input type="submit" name="Submit" value="删除" onclick="{if(confirm('您确定要删除此模板吗?')){return true;}return false;}"> <font color="blue">正在使用的模板不能删除</font></td>
</form>
</tr>
<tr class="tablebody">
<form action="?action=copy" method="post">
<td> 复制模板：
<select name="id">
<%
sql = "select * from wapls_mb"
set rs = conn.Execute (sql)
do while not rs.eof%>
<option value="<%=rs(0)%>"><%=rs(1)%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select>
重命名为 <input name="rename" type="text" size="15">
<input type="submit" name="Submit" value="复制"></td>
</form>
</tr>
</table>
<br>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td colspan="2" class="td_title">编辑模板 - [<font color="#ffff00"><%=mbname%>]</font></td>
</tr>
<tr class="tablebody">
<form name="form1" >
<td colspan="2"> 选择需要编辑的模板：
<select name="menu1" onChange="MM_jumpMenu('self',this,0)">
<%
sql = "select * from wapls_mb"
set rs2 = conn.Execute (sql)
do while not rs2.eof
%>
<option value="admin_style.asp?id=<%=rs2(0)%>" <%if Cint(id) = Cint(rs2(0)) then response.Write("selected style=""color: #0000ff""")%>><%=rs2(1)%></option>
<%
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</select></td></form>
</tr>
<tr class="tablebody">
<td class="items"><div align="center">分模板名称</div></td>
<td class="items"><div align="center">提 示</div></td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=err">错误风格模板(wapls.err)</a></li></td>
<td> 用于修改与错误相关页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=column">栏目风格模板(wapls.column)</a></li></td>
<td> 用于修改与各栏目相关页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=user">会员风格模板(wapls.users)</a></li></td>
<td> 用于会员相关页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=diary">公告风格模板(wapls.diary)</a></li></td>
<td> 用于修改与公告模块相关页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=link">链接风格模板(wapls.link)</a></li></td>
<td> 用于修改与友情模块相关页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=gb">留言风格模板(wapls.gb)</a></li></td>
<td> 用于修改与留言模块相关页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=search">搜索风格模板(wapls.search)</a></li></td>
<td> 用于修改搜索模块相关页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=other">其他风格模板(wapls.other)</a></li></td>
<td> 用于修改频道其他页面的风格</td>
</tr>
<tr class="tablebody">
<td><li><a href="admin_style.asp?id=<%=id%>&action=edit&flag=logo">全站风格图标(wapls.logo)</a></li></td>
<td> 用于修改各页面的风格图标目录</td>
</tr>
</table>
<br>
<%
end sub
'==================================
'=过 程 名：copy()
'=功 能：复制风格模板
'==================================
Sub copy()
dim id
id =checksql("风格模板ID",request.Form("id"),0,8)
renamemb=checksql("重命名复制模板名称",request.Form("rename"),1,20)
sql2 = "insert into wapls_mb ( mb_name,mb_err,mb_column,mb_user,mb_Diary,mb_link,mb_gb,mb_search,mb_other,mb_logo ) Select mb_name,mb_err,mb_column,mb_user,mb_Diary,mb_link,mb_gb,mb_search,mb_other,mb_logo from wapls_mb where mb_id ="&id
conn.Execute(sql2)
sql="select top 1 * from wapls_mb order by mb_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
copymb=rs("mb_name")
rs("mb_name")=renamemb
rs.update
rs.close
set rs=nothing
response.write"<script>alert('『"©mb&"』模板复制成功，并重命名为『"&renamemb&"』');location.href='admin_style.asp';</script>"
response.end
end sub
'==================================
'=过 程 名：rename()
'=功 能：重命名风格模板
'==================================
Sub rename()
dim id,new_name
id =checksql("风格模板ID",request.Form("id"),0,8)
new_name=trim(request.Form("name"))
if new_name="" then
response.write"<script>alert('风格模板名称不能为空');location.href='admin_style.asp';</script>"
response.End
end if
sql = "Update wapls_mb set mb_name='"&new_name&"' where mb_id ="&id
conn.execute(sql)
response.write"<script>alert('模板重命名为『"&new_name&"』成功');location.href='admin_style.asp';</script>"
response.end
end sub
'==================================
'=过 程 名：del()
'=功 能：删除风格模板
'==================================
Sub del()
dim id
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -