62,017
社区成员
发帖
与我相关
我的任务
分享
<!--#include file="adright.asp"-->
<%call sadmin%>
<%
dim filename,fso,fout,mskrindex
filename="../menu.asp"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/admin.css" rel="stylesheet" type="text/css">
<br><br>
<table> width="100%" border="0" align="center" cellpadding="2" cellspacing="2" class="tb">
<tr>
<td> width="100%" height="30" align="center" bgcolor="#FFFFFF"><b>菜单项生成</b></td>
</tr>
</table><br>
<%if mskrindex="ok" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0" bgcolor="#F0F0F0">
<tr>
<td width="100%"><font color="#FF0000">·</font>成功首页,时间<%=Now()%><br><font color="#FF0000">·</font><a target="_blank" href="<%=filename%>"><%=filename%></a></td>
</tr>
</table>
<%else%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" height="100%">
<form name="frmAnnounce" method="post" action="admin_mktop.asp" target="_blank">
<tr>
<td width="100%">
<b><font color="RED">生成菜单项; 生成文件</font>:<a target="_blank" href="<%=filename%>"><%=filename%></a> </b></td>
</tr>
</head>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="100%"><textarea style="width:100%; height:100%;" rows="19" name="body" cols="102">
<!--#include file="menu_build.asp"-->
</textarea></td>
</tr>
<tr>
<td width="100%" bgcolor="#F0F0F0">
<p align="center">
<input name="change" class=buttonface value="生成" type='submit' formmethod="post" > </td>
</tr>
</form>
</table>
<%end if%>
</html>