www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/suoyzhuanji_html.asp
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<html>
<head>
<SCRIPT LANGUAGE="JavaScript">
helpstat = false;
stprompt = true;
basic = false;
function thelp(swtch){
if (swtch == 1){
basic = false;
stprompt = false;
helpstat = true;
} else if (swtch == 0) {
helpstat = false;
stprompt = false;
basic = true;
} else if (swtch == 2) {
helpstat = false;
basic = false;
stprompt = true;
}
}
function AddText(NewCode) {
document.frmAnnounce.body.value+=NewCode
}
function runEx(){
//alert('请注意，按下确定将生成页面，按下后请稍后....');
var winEx = window.open("", "winEx", "width=300,height=200,status=yes,menubar=yes,scrollbars=yes,resizable=yes"); winEx.document.open("text/html", "replace");
winEx.document.write(unescape(event.srcElement.parentElement.children[2].value));
winEx.document.close();
}
</SCRIPT>
<script language="Javascript">
<!-- hide
function insertsmilie(smilieface){
document.frmAnnounce.body.value+=smilieface;
}
// -->
</script>
<title>迪吧后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<%
filename="../DjTop/ZhuanJi.Html"
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
%>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%if mskrindex="ok" then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber2">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>生 成 单 页 面</strong></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber3">
<tr class="tdbg">
<td height="22" colspan="2" align="center" class="title"><strong>生 成 所 有 专 辑</strong></td>
</tr>
<tr class="tdbg">
<td width="100%" colspan="2">
<font color="#FF0000">·</font>成功,时间<%=Now()%><br><font color="#FF0000">·</font><a target="_blank" href="<%=filename%>"><%=filename%></a> <a href='javascript:history.back(2)'>返回</a>
</td>
</tr>
<tr class="tdbg">
<td height="22" colspan="2" align="center" class="title"><input type=button name="reg1" value="返回" onclick="javascript:window.open('admin_main.asp','_self','')"></td>
</tr>
</table>
<%else%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber3">
<form name="frmAnnounce" method="post" action="suoyzhuanji_html.asp">
<tr class="tdbg">
<td height="22" colspan="2" align="center" class="title"><strong>生 成 所 有 专 辑 </strong></td>
</tr>
<tr class="tdbg">
<td height="22" colspan="2" align="center" class="title">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber2">
<tr class="topbg">
<td height="22" colspan="2" align="left"><a class=JyDownSort target="_blank" href="<%=filename%>"><%=filename%></a></td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td width="100%" height="300" colspan="2">
<textarea style="width:100%; height:100%;" rows="19" name="body" cols="102">
<!--#include file="../mb/Mb_suoyzhuanji.asp"-->
</textarea>
</td>
</tr>
<tr class="tdbg">
<td height="22" colspan="2" align="center" class="title"><input name="change" class=buttonface value="生成页面" type='submit'></td>
</tr></form>
</table>
<%
end if
%>
</body>
</html>