📄 admin_skin.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/adminfunction.asp"-->
<%
call hacker()
call checkadmin("skin")
%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
<body style="padding:0;margin:0">
<%
dim objFSO
dim mydata
dim objCountFile
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile=objFSO.OpenTextFile(Server.MapPath("inc/skin.xml"),1,True)
If Not objCountFile.AtEndOfStream Then mydata = objCountFile.ReadAll
else
mydata=request("mydata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("inc/skin.xml"),True)
objCountFile.Write mydata
response.write"<script>alert('恭喜您！更新成功！');</script>"
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules='none' class='3d'><tr class="title" height="22">
<td><b> <img src=img/ie.gif border=0 width=15 height=15 align=absMiddle> 风格文件管理！[ 需要FSO支持！]</td></tr>
<tr><td class="hr"></td></tr>
<td calss="bg" height="30" style=line-height:180%;padding:0px;margin:0px>
<font face='wingdings'>v</font> 1.[li]元素是作为一个风格！<br />
<font face='wingdings'>v</font> 2.[url]属性代表风格文件夹名称！<br />
<font face='wingdings'>v</font> 3.书写时必须全是小写字母！<br />
<font face='wingdings'>v</font> 4.对于语法格式不熟悉的用户，请先备份inc/menu.xml<br />
</TD></TR>
<tr><td class="hr"></td></tr>
<tr>
<td calss="bg" style=line-height:180%;padding:0px;margin:0px>
<form method="post">
<textarea name="mydata" style="width:100%;padding:2px;margin:5px;height:300px;"><%=mydata%></textarea>
</TD></TR>
<tr><td class="hr"></td></tr>
<td calss="bg" height="30" align="center">
<input type="submit" name="save" value="提交修改" class="adminbutton">
</form>
</TD></TR>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -