小城东港·辽宁省东港市门户网站
/archiver/xml/
旅行·旅游
[推荐]湘西——张家界—凤凰浪漫之旅附带图片攻略
/archiver/xml/topic/90347_{p}/index.aspx
&P&&U&&FONT color=#800080&&IMG src=&http://b20.photo./http_imgload.cgi?/rurl4_b=65bd8cee6fa40ef82dab574a95a9eea8abae913b6d551e6a7eb9cce0d4f1dac6b3b0fce9e233da8c74491e3bbccc6edfd1a6a00eb161cc2c7d95&a=15&b=20& onload=&if(this.width&735)this.width=735&&&/FONT&&/U&&/P&
&P&&U&&FONT color=#800080&&/FONT&&/U&&&/P&
&P&&U&&FONT color=#800080&&IMG src=&http://b21.photo./http_imgload.cgi?/rurl4_b=65bd8cee6fa40ef82dab6badf077c76e35e7eeae4a60ba0ad6e873ed9b49fdcfc1c15a6adedf30b085c132ec31c&a=20&b=21& onload=&if(this.width&735)this.width=735&&我又一次背上行李，踏上旅途，带上我和我的心灵，去洗涤，去感受。这次我选择了湖南省，不知道为什么会选择这里，可能是因为有特价机票吧。不知道什么时候开始，我爱上了旅行，喜欢那种流浪和无拘的感觉。我渴望那样的生活，总会想，我的心灵可能原本就是一个流浪者吧，或许因为这样，注定了现在的我吧。喜欢一直走在路上，感受不同的风景，体会不同的心情。 &BR&&&&&& 凤凰：一个等到了我千年的古城，早晨的古城是宁静的，沱江上洗衣人，敲出清脆的椎棒声；黄昏中的古城却又是那么的安详，饭后去沱江边散散步，发个花灯，许上愿望，再将放于沱江，让愿望随着江水飘流。夜色中的古城变的更加美丽，让人迷失方向。我想凤凰之所以出名，与民风的淳朴是有着分不开关系的，但更多的可能是和名人沈从文的《边城》有关吧，让古城充满了灵气。凤凰历经300年风雨沧桑，古貌犹存。城内青石板街道，江边木结构吊脚楼，以及朝阳宫、天王庙、大成殿、万寿宫等建筑，无不具古城特色。凤凰风景美丽，山清水秀，人杰地灵。美在自然，美在天一和谐。 &BR&&&&&& 张家界：让人有种进入仙境的感觉，被它的神奇所深深的吸引 。天门山的鬼谷栈道，挑战视觉和心理承受极限，全线都在悬崖之侧，都立于万丈悬崖的中间，给人以与悬崖共起伏同屈伸的感觉。拥有多项世界之最的天门山索道,索道支架矗立于绝壁天险中，我们有时隐没于云堆，有时又出世于苍穹。这时我除了满怀的惊险刺激外，更多是望索而兴叹。我拍了很多照片，但是总觉得还是无法拍下这座空中花园的壮丽。99弯的盘山公路，像一条巨龙，攀附在山体，蜿蜒而上。走完一条通天大道，来到999级的上天梯下，有清代俞良模的题词：莫谓山高空仰止 此中真有上天梯。看来想要成仙还真得经历一番磨难。天梯之路真是不好走呀，千辛万苦后，天门洞终于呈现我眼前，南北对开，大约150米左右高，气势磅礴，巍峨高绝，有团团云雾自洞中吐纳翻涌，瑰丽神奇，宛如幻境。洞口的风很大，肆意落在脸上很舒服……。 &BR&&&&&& 来到武陵园，那真是神仙住的地方，美丽得让人不忍回忆。3000多座砂岩岩峰兀自挺立成一种奇观。真是一根根插在这片土地上。天下第一梯：百龙山梯堪称人间奇观。垂直高差335米，运行轨道下半部在山体中，出山体的那一刹那，感觉自己像是从地里钻出来一样，顿时豁然开朗，眼前可见一片山体岩石美景。由于电梯处于纯自然的环境，又依托奇险无比的石峰拔地而起，因而给人既惊心动魄又赏心悦目的感觉。可是我还没等我反应过来，就到了。1分58秒就到了。乌龙寨：藏在大山深处的桃源 站在天波府，只见远处壮观灵秀，满目空旷，开阔无比，奇峰异石，石林排列有序，一排排，一片片。天下竟有如此仙境，真是一个与世隔绝的隐居之地，若身居于此，当土匪又如何，真想留在那里做压寨夫人算了。不禁感叹那传说中的土匪真会找地方，天天看这么美丽的风景，还不用收门票。天下第一桥：两座山峰被一条长廊连在一起，形成天然桥洞，桥上苍松挺拔，桥下云雾荡漾，万丈深渊。太多的美景冲击我的眼，脑和五脏六腑，晚上坐在农家的院子里，没有噪音，没有霓虹灯，惟有原始感与我们同在，灵魂得到一次充分的净化和升华。真是不往此行 。这次要特别感谢覃家父子。对我们这几天张家界旅行的照顾。 &BR&张家界行程如下：第一天我们和小覃见面之后，当天已经是下午6点多了，不能进山了。只能到张家界市区住一晚了。张家界市区很破。不像是一个旅游城市；街道，和交通特别的差；我就问小覃；张家界以前是县吗。结果小覃告诉我们，是景区成立之后，才成为市 以前是属于常德市管，不罗嗦了 入正题了 我们就住到汽车站旁边的一个宾馆，哪个宾馆还可以，小覃帮我们搞的。说我们自己去开房要120元， 他帮我们开了一间80元就搞定了；房开好了和小覃商议张家界怎样玩。后来商议好了。小覃就帮我们去买天门山的票去了，第2天早上，8点钟小覃把票送到我们的手里了。我们就自己打车去了；天门山索道。下午我们就进了景区 。&BR&第3天上午：(金鸡报晓、三道鬼门关、天波府、土匪窝、四道城墙、一步登天)下午：：（神堂湾、点将台、贺龙公园、观西海、石船出海、龟王化石、御笔峰、仙女献花、天子阁.)晚上住景区。&BR&第4天上午：百丈绝壁、八卦阵图，天下第一桥，拜仙台，迷魂台。下午下午游 大观台& 神鸡啄食 观十里画廊全景& 一不难行&& 仙人桥&&& 天子坐&& 结束。&BR&第5天：后花园下山，到千里相会& 紫草潭& 秀才藏书& 长寿泉& 鲁迅岩 劈山救母& 花果山&&& 金鞭岩& 母子峰 等等。下午我们就做上了去杭州的飞机。。&BR&&&&&& 回来后，我的心灵久久不能平静，一直深陷在那种仙境中。期待下一次的旅行 .&/FONT&&/U&&A href=&/thread.php?fid-372.html& target=_blank&&/A&&/P&
&IMG src=&http://www./emotion/07.gif& onload=&if(this.width&735)this.width=735&&看不到图片 …有机会去看看…
&P&晕死&/P&
&P&怎么传上去的照片看不见呢。。&/P&
楼主不要见怪!我借用了你的几句话,我文字水平有限啊!谢谢~我不是抄袭啊
&P&&IMG src=&http://www./emotion/05.gif& onload=&if(this.width&735)this.width=735&&&IMG src=&http://www./emotion/05.gif& onload=&if(this.width&735)this.width=735&&呵呵&/P&
&P&没事&/P&
wozuiaimei
&P&我看不到图片&/P&
&IMG src=&http://www./emotion/03.gif& onload=&if(this.width&735)this.width=735&&&IMG src=&http://www./emotion/03.gif& onload=&if(this.width&735)this.width=735&&&IMG src=&http://www./emotion/03.gif& onload=&if(this.width&735)this.width=735&&
&IMG src=&http://www./emotion/05.gif& onload=&if(this.width&735)this.width=735&&&IMG src=&http://www./emotion/05.gif& onload=&if(this.width&735)this.width=735&&&IMG src=&http://www./emotion/05.gif& onload=&if(this.width&735)this.width=735&&
§小芒果＆
&IMG src=&http://www./emotion/02.gif& onload=&if(this.width&735)this.width=735&&还有吉首苗寨，鼓乡，芙蓉镇和猛洞河等等你没有去，那里也不错哦。。。。。。。&IMG src=&http://www./emotion/17.gif& onload=&if(this.width&735)this.width=735&&湘西是个好地方。。。。。。温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
由于将字体改大后代码部分会很乱，所以就没有修改，如果哪位对哪部分感兴趣，可以拷贝下来查看哦，&不好意思啦！
'------------------------------------'函数功能：从本地文件打开一个FeatureClass'------------------------------------Public Function OpenFC(sPath As String, sName As String) As IFeatureClass& Dim pWSF As IWorkspaceFactory& Dim pFCWS As IFeatureWorkspace& Dim pFC As IFeatureClass&&& & Set pWSF = New ShapefileWorkspaceFactory& Set pFCWS = pWSF.OpenFromFile(sPath, 0)
& Set pFC = pFCWS.OpenFeatureClass(sName)&& Set OpenFC = pFC& Set pFC = NothingEnd Function'-----------------------------------'函数功能：删除制定字段'-----------------------------------Sub DeleteField(pFC As IFeatureClass, sFieldName As String)&&&&&&&&& &&&&&&& Dim i As Integer&&&&&&& Dim pFields As IFields&&&&&&& Set pFields = pFC.Fields
&&&&&&& Dim pField As iField&&& &&& &&&&&&&&&& i = pFields.FindField(sFieldName)&&&&&&&&&& If i &= 0 Then&&&&&&&&&&&&&& Set pField = pFields.Field(i)&&&&&&&&&&&&&&& pFC.DeleteField pField&&&&&&&&& End If
End Sub'------------------------------------'函数功能：从本地文件打开一个dbase表'------------------------------------Public Function OpenTable(sFilePath As String, sTableName As String) As ITable& Dim pWorkspace As IWorkspace& Dim pFact As IWorkspaceFactory& Set pFact = New ShapefileWorkspaceFactory&&& & Set pWorkspace = pFact.OpenFromFile(sFilePath, 0)& Dim pFWorkspace As IFeatureWorkspace& Set pFWorkspace = pWorkspace& & Dim pTable As ITable& Set pTable = pFWorkspace.OpenTable(sTableName)&& Set OpenTable = pTable& Set pTable = Nothing& End Function'------------------------------------'函数功能：打开本地的栅格影像'------------------------------------Public Function OpenRasterDataset(sDir As String, sFile As String) As IRasterDataset
&&& 'Open the raster dataset with the given name.&&& 'sDir is the directory the file resides&&& 'sFile is the filename&&& &&& Dim pWsFact As IWorkspaceFactory&&& Dim pWS As IRasterWorkspace&&& Dim pRasterDataset As IRasterDataset
&&& 'Open the workspace&&& Set pWsFact = New RasterWorkspaceFactory&&& Set pWS = pWsFact.OpenFromFile(sDir, 0)
&&& 'Open the raster dataset&&& Set pRasterDataset = pWS.OpenRasterDataset(sFile)
&&& 'Return&&& Set OpenRasterDataset = pRasterDataset
&&& Set pWsFact = Nothing&&& Set pWS = Nothing&&& Set pRasterDataset = Nothing
End Function'-------------------------'创建一个dbf表'-------------------------Public Function createDBF(strName As String, strFolder As String, Optional pFields As IFields) As ITable' createDBF: simple function to create a DBASE file.' note: the name of the DBASE file should not contain the .dbf extension'& On Error GoTo EH& & ' Open the Workspace& Dim pFWS As IFeatureWorkspace& Dim pWorkspaceFactory As IWorkspaceFactory& Dim fs As Object& Dim pFieldsEdit As IFieldsEdit& Dim pFieldEdit As IFieldEdit& Dim pField As iField
& Set pWorkspaceFactory = New ShapefileWorkspaceFactory& Set fs = CreateObject("Scripting.FileSystemObject")& If Not fs.FolderExists(strFolder) Then&&& MsgBox "Folder does not exist: " & vbCr & strFolder&&& Exit Function& End If
& Set pFWS = pWorkspaceFactory.OpenFromFile(strFolder, 0)& & ' if a fields collection is not passed in then create one& If pFields Is Nothing Then&&& ' create the fields used by our object&&& Set pFields = New Fields&&& Set pFieldsEdit = pFields&&& pFieldsEdit.FieldCount = 1&&& &&& 'Create text Field&&& Set pField = New Field&&& Set pFieldEdit = pField&&& With pFieldEdit&&&&&&& .length = 30&&&&&&& .Name = "TextField"&&&&&&& .Type = esriFieldTypeString&&& End With&&& Set pFieldsEdit.Field(0) = pField& End If& & Set createDBF = pFWS.CreateTable(strName, pFields, Nothing, Nothing, "")& & Exit FunctionEH:&&& MsgBox Err.Description, vbInformation, "createDBF"
End Function'------------------------------------'判断一个属性表中是否存在指定字段'------------------------------------Public Function FieldIsExist(pFC As IFeatureClass, sFieldName As String) As Boolean&&&&&&& FieldIsExist = False&&&&&&& Dim i As Integer&&&&&&& Dim pFields As IFields&&&&&&& Set pFields = pFC.Fields
&&&&&&& Dim pField As iField
&&&&&&& i = pFields.FindField(sFieldName)&&&&&&&& If i &= 0 Then&&&&&&&&&&&& FieldIsExist = True&&&&&&&& End If
End Function'---------------------------' 得到文档的路径'---------------------------Public Function GetDocPath() As String&&&&& Dim pTemplates As ITemplates&&&&& Dim lTempCount As Long&&&&& Dim strNormalPath As String&&&&& Dim strBasePath As String&&&&& Dim strDocPath As String&&&&& &&&&& Set pTemplates = Application.Templates&&&&& lTempCount = pTemplates.Count&&&&& &&&&& ' Normal is always the first item&&&&& strNormalPath = pTemplates.Item(0)&&&&& &&&&& ' The document is always the last item&&&&& strDocPath = pTemplates.Item(lTempCount - 1)&&&&& &&&&& ' If present, the base template is the middle item&&&&& If lTempCount = 3 Then&&&&&&& strBasePath = pTemplates.Item(1)&&&&& Else&&&&&&& strBasePath = "NO BASE TEMPLATE LOADED"&&&&& End If&&&&& &&&&& strDocPath = StrReverse(strDocPath)&&&&& Dim inPos As Integer&&&&& inPos = InStr(strDocPath, "\")&&&&& strDocPath = VBA.Right(strDocPath, Len(strDocPath) - inPos)&&&&& GetDocPath = StrReverse(strDocPath)End Function'----------------------------'打开一个workspace'----------------------------Public Function OpenWS(sPathName As String) As IWorkspace&&&&&&& Dim pWSF As IWorkspaceFactory&&&&&&& Dim pWS As IWorkspace&&&&&&& &&&&&&& Set pWSF = New ShapefileWorkspaceFactory&&&&&&& Set pWS = pWSF.OpenFromFile(sPathName, 0)&&&&&&&& &&&&&&& Set OpenWS = pWS&&&&&&& Set pWS = Nothing&&&&&&& End Function
'------------------------------------'将本地shape文件添加到图层中显示'------------------------------------
Public Sub AddShapeFile(sPath As String, sName As String)&&& &&& Dim pWorkspaceFactory As IWorkspaceFactory&&& Dim pFeatureWorkspace As IFeatureWorkspace&&& Dim pFeatureLayer As IFeatureLayer&&& Dim pMxDocument As IMxDocument&&& Dim pMap As IMap&&& &&& 'Create a new ShapefileWorkspaceFactory object and open a shapefile folder&&& Set pWorkspaceFactory = New ShapefileWorkspaceFactory&&& Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(sPath, 0)&&& 'Create a new FeatureLayer and assign a shapefile to it&&& Set pFeatureLayer = New FeatureLayer&&& Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass(sName)&&& pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName&&& 'Add the FeatureLayer to the focus map&&& Set pMxDocument = Application.Document&&& Set pMap = pMxDocument.FocusMap&&& pMap.AddLayer pFeatureLayer
阅读(123)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_083064',
blogTitle:'AO&中一些打开数据的代码',
blogAbstract:'
AO&中一些打开数据的代码
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}不一样。相关电影及动画2.1电影电影简介中文名称：最终幻想:灵魂深处英文名称：FinalFantasy:TheSpiritsWithin发行时间：日电影导演：坂口博信HironobuSakaguchi莫托?萨克巴拉MotoSakakibara电影演员：斯蒂夫?巴斯米SteveBuscemi詹姆斯?伍兹JamesWoods亚历克?鲍德温AlecBaldwin文?瑞姆斯VingRhames唐纳德?萨瑟兰DonaldSutherland琼?西蒙斯JeanSimmons温明娜Ming-Na佩里?吉尔宾PeriGilpin颜色：彩色声音：英语LPCM，AC3，增加DTS，448K国配时长：106分钟类型：科幻冒险动画动作奇幻分级：英国：PG阿根廷：13德国：12澳大利亚：M西班牙：7法国：U挪威：11瑞典：11加拿大：PG美国：PG-13剧情介绍：公元2065年，流星体撞向地球，数以千万计异种降落地球，大肆破坏，到处颓垣败瓦、人又死伤无数。人虽然在防卫城暂避，但异种势力逼人，唯一能拯救人类的就只有结合美貌与智慧的亚纪。她掌握歼灭异种的秘密钥匙，就是要找八个「精神」，借着施博士及队长格莱领导的防卫队「红眼睛」之协助，与异种死战。亚纪还要跟时间和异种感染竞赛，以及抵抗总司令的阻挠......。最终幻想VII：降临之子／FinalFantasyVII:AdventChildren／日CG电影年代：2004地区：日本(更多...)片长：101分钟导演：TakeshiNozue/TetsuyaNomura编剧：KazushigeNojima类型：动作/冒险/动画/荒诞/科幻别名：最终幻想7：降临之子主要演员：伊藤步剧情简介时间是FF7结局陨石撞击Midgar的两年后。人们在几乎成为废墟的Midgar周围新建了一个条大街取名“Edge”。神罗公司不复存在，人们也终于了解到过度开采魔晃能源带来的危害有多么巨大，开始寻找新的对星球无害的能源。正当人们努力重建家园的时候，人群中开始蔓延一种名为“星痕症候群”的不治怪病，一说是愤怒的星球对人类的惩罚，真的是这样的吗？Tifa战后在Edge重开了她的酒吧SeventhHeaven，同时照料着一群患“星痕症候群”的孤儿。Cloud离开朝夕相处的同伴开了一家运输公司独自一人行动，在某一天他遇到了3个叫他“哥哥”的神秘黑衣人，白发绿眼似曾相识，他们的目的只有一个----寻找“母亲”Jenova的头部完成Reunion复活Sephiroth。对Aerith牺牲强烈的自责感和“星痕症候群”的不断发作使Cloud在战斗中越发吃力，而突如其来的一场小雨治愈了Cloud的星痕症，冥冥中Cloud仿佛听到了“她”的鼓励声，终于振作起来的Cloud面对复活的Sephiroth使出了他的最强技----超究武神5……教堂中从地低冒出的水拯救了所有的病人，没人能解释这股水是从哪来的----其实也不需要解释，是的，只有“她”，谢谢你，Aerith。2.2动画动画名称首映日期备注最终幻想：水晶传说／FinalFantasy:LegendoftheCrystals／1994年以最终幻想V为蓝本最终幻想：无限／FinalFantasy:Unlimited／2001年10月原创故事（港译:最终幻想：疾风境界）最终幻想VII：最终密令／LastOrder:FinalFantasyVII／2005年9月与降临之子一起发售，是它的前传至于其它的都是游戏了，但是有很多网站也会有cg的下载系列作品的关系[编辑本段]■最终幻想系列间的故事基本上各自独立，没有任何直接联系。例外：最终幻想与最终幻想VII附生作品；最终幻想X与最终幻想X2。■最终幻想除了名字，还有以下的相同要素（有些作品没有）：类似的
其它5条***
附近的朋友等待您的帮助
包打听移动版查看: 789|回复: 9
新手问个& 问题~关于网购~~
这两天想入手一个耳机，在淘宝网上逛来逛去。我在实体店看到一款铁三角的FC707看着挺好看的 ，想入手。在实体店里450块。 而在淘宝上有两种版本。一种是399的，还有一种是150快左右的。我都问了问店主，399的店主说的是卖的是正品行货，全国联保的。而我问了150块的店主，他给我说他卖的是水货，但是音质质量方面都和399的一样的 ，只是不带联保而已。他还告诉我耳机市场很黑的。还说399的联保也是骗人的 ，根本保不了 ，好多卖家卖的其实就是和他们一样的水货，但是打上399的价格 来欺骗消费者，因为耳机不太容易坏。
我就非常困惑了。到底应该信谁的 ，还有淘宝上买耳机的应该注意些什么，请教各位大神能给小弟一个*** ，让我能安安心心的买到心爱的耳机~~
Re:新手问个  问题~关于网购~~
还有补充一下 ，我在小城市 ，都没有什么耳机专卖店。没办法只能选择网购了。。。
Re:新手问个  问题~关于网购~~
引用第2楼lanexavier于 13:45发表的 :
水货无视卖水货的店主告诉我399的也有好多是水货，我多问他也不告诉我。我想请教一下如何辨别，还有水货和行货的区别有多少？
150制定假的 399价格合理 比实体店便宜50正常的 怕以此充好 就找置顶商家买
Re:Re:新手问个& 问题~关于网购~~
引用第3楼ztliduo于 13:48发表的 Re:新手问个 问题~关于网购~~ :
卖水货的店主告诉我399的也有好多是水货，我多问他也不告诉我。我想请教一下如何辨别，还有水货和行货的区别有多少？置顶商家买就行了，低端水货在我看来多数是假货，要不你把那家店的淘宝链接发来瞧瞧就知道了
还是上论坛置顶商家买吧，他们基本不会有假货的
Re:新手问个  问题~关于网购~~
本页面最上面那一堆置顶商家呢~~呵呵，一个个问看哪个最便宜入
淘宝商城什么价？ 和那个差不多的基本靠谱
淘宝水深，建议置顶商家或大型B2C
) 粤公网安备 98号
Powered by