📄 ycms@menu.asp

📁 安全性好,适用于展示和进行资源下载的个人和大型网站使用!

💻 ASP

字号:

<!--#include file="inc/conn.asp"-->
<%
call checkadmin("menu")
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=utf-8">
<link rel="STYLESHEET" type="text/css" href="inc/css.css">
<body style="padding:0;margin:0">
<%
Function LF(LF_Name)
dim YCMS,str
set YCMS=server.createobject("Adodb.Stream")
	YCMS.type=2
	YCMS.mode=3
	YCMS.Charset="utf-8"
	YCMS.open
	YCMS.loadfromfile(server.mappath(LF_Name))
	YCMS.position=0
    str=YCMS.readtext(YCMS.size)
set YCMS=Nothing
    LF=str
end Function
Function CF(CF_Name,CF_Content)
Dim YCMS
Set YCMS=server.CreateObject("ADODB.Stream")
	YCMS.Type=2
	YCMS.Mode=3
	YCMS.Open
	YCMS.Charset="utf-8"
	YCMS.Position=YCMS.size
	YCMS.WriteText=CF_Content
	YCMS.SaveToFile server.mappath(CF_Name),2
Set YCMS=Nothing
End Function
dim objFSO
dim mydata
dim objCountFile
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
if request.querystring("action")="save" Then
Call CF("../inc/menu.xml",request.Form("mydata"))
response.write"<script>alert('鎭

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -