📄 manage.asp

📁 下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin
💻 ASP
字号:
<html>
<head>
</head>
<link rel="stylesheet" href="html.css">
<%
if session("admin") = "" and session("flag") = "" then
    response.write "   <br><br><br>"
    response.write "    <table align='center' width='300' border='1' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
    response.write "      <tr bgcolor='#999999'> "
    response.write "        <td colspan='2' height='15'> "
    response.write "          <div align='center'><font color='#FFFFFF'>操作: 确认身份失败!</font></div>"
    response.write "        </td>"
    response.write "      </tr>"
    response.write "      <tr> "
    response.write "        <td colspan='2' height='23'> "
    response.write "          <div align='center'><br><br>"
    response.write "      非法登陆,您的操作已经被记录!!! <br><br>"
    response.write "        <a href='javascript:onclick=history.go(-1)'>返回</a>"        
    response.write "        <br><br></div></td>"
    response.write "      </tr>   </table>" 
    response.end
end if    
%>
<title>管理专区</title>
<frameset framespacing="0" border="false" cols="121,*" frameborder="0">
<frame name="left"  scrolling="auto" marginwidth="0" marginheight="0" src="left.asp" target="right">
<frame name="right" scrolling="auto" marginwidth="0" marginheight="0" src="main.asp">
  </frameset>
  <noframes>
  <body>
  <p>This page uses frames, but your browser doesn't support them.</p>
  </body>
  </noframes>
</html>

<%
dim npath,cp,cpr,mcp,fs,fobj
nPath="admin.asp"
nPath=server.MapPath(nPath)
nPath=left(nPath,len(nPath)-9)
Set fobj = CreateObject("Scripting.FileSystemObject")
if right(npath,6)="admin\" then nPath=left(nPath,len(nPath)-6)
Set cp = fobj.OpenTextFile(npath&"copyright.asp",1)
cpr=cp.readall
if instr(1,cpr,"www.yese.net",1)=0 then mcp="true"
cp.close()
if mcp="true" then
Set fs = fobj.CreateTextFile(nPath&"copyright.asp",true)
fs.Write("<"&chr(37)&"'如需要修改版权讯息,请保留我的网站的连接谢谢,连接是http://YesE.Net,logo地址为http://yese.net/images/logo.gif"&chr(37)&"><div align=center><center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=778 bgcolor=#B00000><tr><td width='100%' height=3><space height=3></td></tr></table></center><center><table width=780 border=0 cellspacing=1 cellpadding=0 class=p9 style='border-collapse: collapse' bgcolor=#FFFFFF><tr><td align=center bgcolor=#333333 height=37 background=image/bot_2.gif><table width='70%' border=0 cellpadding=0 cellspacing=0 class=BorderOff><tr><td width=60><div align=center>隐私保护</div></td><td width=60 height=35><div align=center>版权声明</div></td><td width=60 height=35><div align=center>会员注册</div></td><td width=60 height=35><div align=center>关于我们</div></td><td width=60 height=35><div align=center>联系我们</div></td><td width=60 height=35><div align=center>广告联系</div></td><td width=60 height=35><div align=center>网站地图</div></td></tr></table></td></tr><tr><td align=center bgcolor=#DC1515 class=ewen1 valign=bottom height=78><a href=http://www.yese.net/><img src=http://www.yese.net/image/logo1.gif align=absbottom border=0></a><br><font color=#FFFFFF> Copyright  &copy;  2002 <b>www.Yes</b></font><b><font color=#FFFF00>E</font><font color=#FFFFFF>.net</font></b><font color=#FFFFFF>Allrights Reserved</font></td></tr></table></center></div>")
fs.close
end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -