www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/zzgood_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="../Good/index.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="ZzGood_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_ClassGood.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>