- 推荐株洲出售房源
- 推荐株洲出租房源
| 天元区 - 出售尚格名城12 | 3室 | 53万元 | |
| 天元区 - 紫苑江岸129㎡毛 | 3室 | 57万元 | |
| 天元区 - 庐山恋 125㎡ 三 | 3室 | 55万元 | |
| 天元区 - 尚格名城40㎡公 | 1室 | 22万元 | |
| 天元区 - 尚格名城84㎡车 | 2室 | 45万元 | |
| 天元区 - 尚格名城90㎡小 | 2室 | 46万元 | |
| 天元区 - 尚格名城104㎡小 | 3室 | 48万元 | |
| 天元区 - 尚格名城128㎡中 | 3室 | 62万元 | |
| 天元区 - 尚格名城136㎡车 | 3室 | 70万元 | |
| 天元区 - 出售尚格名城90 | 2室 | 42万元 |
| 其他 - 环卫小区 | 2室 | 850元/月 | |
| 其他 - 芦淞区徐家 | 2室 | 1000元/月 | |
| 其他 - 芦淞区徐家 | 2室 | 1000元/月 | |
| 芦淞区 - 株洲市合泰 | 6室 | 2000元/月 | |
| 天元区 - 河西林苑小 | 3室 | 1000元/月 | |
| 芦淞区 - 房屋出租 | 2室 | 1000元/月 | |
| 芦淞区 - 房屋出租 | 1室 | 1000元/月 | |
| 石峰区 - 株洲市石峰 | 2室 | 500元/月 | |
| 芦淞区 - 豪华装修时 | 2室 | 2800元/月 | |
| 石峰区 - 石峰区杉木 | 2室 | 600元/月 |
株洲房产资讯
<%
Domain_url="http://www.hnzzfc.com/news/z4_news_list.html"
index_FilePath="/news/z4_news_list.html"
set fsoObj=server.createobject("Scripting.FileSystemObject")
set fobj1=fsoObj.GetFile(Server.MapPath(index_FilePath)) 'file.FilePath为文件在客户机上的路径，如：D:\text1.txt
DateCreated= fobj1.DateCreated
DateLastModified= fobj1.DateLastModified
Set fobj1=Nothing
Set fsoObj=Nothing
'response.Write "DateCreated:"&DateCreated
'response.Write "
DateLastModified:"&DateLastModified 'response.Write "
now:"&now() 'response.Write "
TT:"&(DateDiff("s",DateLastModified,now())) 'response.End() if clng(DateDiff("s",DateLastModified,now()))>600 then FromURL="http://www.hnzzfc.com/news/get_news_toHtml.asp" FilePath = "/news/z4_news_list.html" Call ToHtml_FSO(FromURL,FilePath) end if strHTTPPage=getHTTPPage_gb2312(Domain_url) strHTTPPage=RemoveHTML(strHTTPPage) response.Write strHTTPPage Private Sub ToHtml_FSO(FromURL,FilePath) strHTTPPage=getHTTPPage_gb2312(FromURL) 'strHTTPPage=strHTTPPage&"" FilePath = Server.MapPath(FilePath) Set Fso=Server.CreateObject("Scripting.Filesystemobject") Set oFile=Fso.Createtextfile(FilePath,true) oFile.Write strHTTPPage Set oFile=Nothing Set Fso=Nothing End Sub %>
DateLastModified:"&DateLastModified 'response.Write "
now:"&now() 'response.Write "
TT:"&(DateDiff("s",DateLastModified,now())) 'response.End() if clng(DateDiff("s",DateLastModified,now()))>600 then FromURL="http://www.hnzzfc.com/news/get_news_toHtml.asp" FilePath = "/news/z4_news_list.html" Call ToHtml_FSO(FromURL,FilePath) end if strHTTPPage=getHTTPPage_gb2312(Domain_url) strHTTPPage=RemoveHTML(strHTTPPage) response.Write strHTTPPage Private Sub ToHtml_FSO(FromURL,FilePath) strHTTPPage=getHTTPPage_gb2312(FromURL) 'strHTTPPage=strHTTPPage&"" FilePath = Server.MapPath(FilePath) Set Fso=Server.CreateObject("Scripting.Filesystemobject") Set oFile=Fso.Createtextfile(FilePath,true) oFile.Write strHTTPPage Set oFile=Nothing Set Fso=Nothing End Sub %>
