edit.asp

多用户个人主页系统(ASP)

<!--#include file="includes/setup.asp"-->
<%
if upload=0 then
response.write "<script>alert('对不起，系统维护中，暂停用户上传管理网站！');location.href='index.asp'</script>"
response.End
end if
%>
<%
response.buffer=true
response.expires=0
num=request.querystring("num")
username=request.querystring("username")
if session("xichen_num")<>num or session("xichen_username")<>username or session("xichen_num")="" or session("xichen_username")="" then
%>

<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>     
<%
end if
on error resume next
if path=<"\"+username then path="\"+username
Set ds= fs.GetFolder(fullpath&HPDIRName&path)
if ds="" then
%>
<script>alert('对不起,您的空间出现异常错误或者因违反规定已被系统删除！\n\n如有任何疑问,请与网站管理员联系');location.href='index.asp'</script>
<%
response.End()
end if
%>
<script>alert('\n欢迎<%=username%>光临<%=sitename%>主页空间管理中心\n\n您网上安家的第一步，由此开始，祝您成功！')</script>
<title>欢迎[<%=username%>]光临<%=sitename%>空间管理中心</title>
<frameset rows="120,*" cols="*" framespacing="0" frameborder="no" border="0" bordercolor="#000000">
  <META http-equiv=Content-Type content="text/html; charset=gb2312">
  <frame src="top.asp?num=<%=num%>&username=<%=username%>&path=\<%=username%>" name='top' frameborder="no" scrolling="no" noresize marginwidth="0" marginheight="0">
  <frameset cols="110,300" frameborder="NO" border="0" framespacing="0" rows="*"> 
    <frame src="left.asp?num=<%=num%>&username=<%=username%>&path=\<%=username%>" name="left" frameborder="no" scrolling="no">
    <frame name='main' src="main.asp?num=<%=num%>&username=<%=username%>&path=\<%=username%>">
  </frameset>
</frameset><noframes></noframes>
</html>