| |
|
<%
mode = LCASE(Request("mode"))
Set cnndb = Server.CreateObject("ADODB.Connection")
strCon = "provider=SQLOLEDB.1;Data Source=192.168.1.200;User ID=sa;pwd=m9m8l7jar;Initial Catalog=dbhouse"
cnndb.open strCon
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters where ID = 'taiwanhouse'" , cnndb,1,3
RS("LASTIP") = RS("NEWIP")
RS("NEWIP") = REQUEST.servervariables("REMOTE_ADDR")
IF CSTR(Month(RS("DATIME"))) <> CSTR(Month(DATE())) THEN
RS("DATIME") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("BMONTH") = RS("TMONTH")
RS("TMONTH") = 1
RS("TODAY") = 1
RS.Update
ELSE
IF CSTR(Day(RS("DATIME"))) <> CSTR(Day(DATE())) THEN
RS("DATIME") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("TODAY") = 1
RS.Update
END IF
END IF
randomize
qty = cint(rnd * 2)
if qty=0 then
qty=1
end if
RS("TOTAL") = RS("TOTAL") + qty
RS("TODAY") = RS("TODAY") + qty
RS("TMONTH") = RS("TMONTH") + qty
RS.Update
' response.write "今："&RS("TODAY")&" "
' response.write "昨："&RS("YESTERDAY")&" "
'response.write "總："&RS("TOTAL")
N = Now
D2 = DateValue(N)
D1 = #7/1/2003# ' 網站開站日期(月/日/西元)
'response.write "開站至今天數："
'GCounter( DateDiff("d", D1, D2) )
'response.write "
"
'D3 = DateDiff("d", D1, D2)
'response.write "平均一日人數："
'GCounter( RS("TOTAL")\D3 )
rs.close
set rs = nothing
%>
|
|
|
| |
|
| |
房產新聞
◎北市中古屋 文山區登熱銷榜首(2009/02/06)
◎國有地標售 大安區3筆全壘打(2009/02/06)
◎首購族撿便宜 比重大增(2009/02/04)
◎北高房產業 搶客出奇招(2009/01/21)
◎北京CBD大樓 高盛急著低價脫手(2009/01/21)
◎中科進駐 彰化蛻變科技福利縣(2008/12/11)
◎博弈條款過了 澎湖地產紅了(2009/01/14)
◎全國最乾淨城市 台南市奪冠(2008/08/26)
|
| 中山大同區 |
中正萬華區 |
| 98年02月 |
捷運36行館 |
98年02月 |
大和庄 |
| 98年01月 |
金澤 |
98年02月 |
上冠金點NO2
|
| 97年12月 |
雙連雅舍 |
98年02月 |
揚昇君臨 |
| 97年08月 |
風雅京都 |
97年08月 |
首耀 |
| 97年07月 |
貴朵 |
97年06月 |
上冠金點 |
| 97年07月 |
金磚密碼 |
97年06月 |
台大辰市 |
| more.. |
more.. |
| 大安松山信義區 |
士林石牌北投區 |
| 98年04月 |
第五大道 |
98年02月 |
天母十六行館
NO2 |
| 97年10月 |
卡地雅 |
98年02月 |
天母WINNER |
| 97年10月 |
信義95 |
98年01月 |
天母MASTER |
| 97年09月 |
大安元首 |
97年11月 |
采邑 |
| 97年02月 |
仁愛御璽 |
97年11月 |
天母七里香 |
| 96年11月 |
仁愛綠築 |
97年10月 |
富御 |
| more.. |
more.. |
| 大直內湖東湖區 |
關渡竹圍淡水三芝區 |
| 98年05月 |
峰典百富 |
98年04月 |
藝樹殿堂NO.2 |
| 98年03月 |
華固名人道 |
97年12月 |
摩納哥 |
| 98年02月 |
大湖山莊 |
97年12月 |
淡水情歌NO.2
|
| 97年12月 |
新景澤 |
97年12月 |
藝樹殿堂 |
| 97年10月 |
麗池會 |
97年12月 |
星海別墅 |
| 97年08月 |
JOJO
NO.2 |
97年10月 |
心航線NO.2 |
| 97年08月 |
將進酒 |
97年10月 |
荷蘭灣 |
| 97年05月 |
忠泰大美 |
97年08月 |
皇后之星 |
| 97年05月 |
贊泰安永 |
97年06月 |
河合吉景 |
| 97年05月 |
璞園水羨 |
97年05月 |
八里之星 |
| 97年05月 |
陽光四季 |
97年06月 |
京兆穩 |
| 97年05月 |
筑丰美境 |
97年06月 |
日光大道 |
| more.. |
more.. |
| 三重蘆洲區 |
板橋土城區 |
| 98年03月 |
合康太璞NO2 |
98年03月 |
臻愛 |
| 97年12月 |
河美 |
98年03月 |
第一天廈 |
| 97年12月 |
RIVER極境 |
98年02月 |
中央華府 |
| 97年06月 |
成功導邸 |
97年11月 |
臻品 |
| 97年05月 |
捷運金品 |
97年05月 |
公園賞 |
| 97年04月 |
合康太璞 |
97年05月 |
麗緻米蘭 |
| 96年12月 |
山河悅 |
97年03月 |
臻美 |
| 96年11月 |
馬德里 |
96年09月 |
格林珍寶NO2 |
| 96年09月 |
巴黎羅丹 |
96年07月 |
風光 |
| more.. |
more.. |
| 樹林鶯歌三峽區 |
南港汐止區 |
| 97年12月 |
良家 |
97年09月 |
東京一會館 |
| 97年11月 |
櫻花墅 |
97年09月 |
觀止NO2 |
| 97年03月 |
皇晶鑽 |
97年09月 |
觀止 |
| 96年11月 |
銘麒桂冠 |
97年06月 |
中研臻藏 |
| 95年12月 |
台北新墅 |
97年05月 |
華鎮生活家 |
| 95年11月 |
豐耘 |
97年05月 |
向陽 |
| more.. |
more.. |
| 新莊五股泰山區 |
五七八堵基隆區 |
| 97年01月 |
快樂G0 |
97年11月 |
精心園NO2 |
| 96年10月 |
幸福皇居 |
97年06月 |
精心園 |
| 97年01月 |
富麗旺 |
97年05月 |
星光翡翠 |
| 96年10月 |
僑星福華 |
97年05月 |
法國小城 |
| 96年10月 |
台北入口 |
97年05月 |
普羅旺世 |
| more.. |
more.. |
| 深坑文山新店區 |
中永和區 |
| 98年04月 |
政大華府 |
98年05月 |
景安香榭 |
| 98年04月 |
政大華府 |
97年08月 |
頂溪臻品 |
| 97年11月 |
依山行館NO.2 |
97年05月 |
TONY |
| 97年09月 |
昇陽田田 |
97年05月 |
高爾花園 |
| 97年09月 |
政大裕園 |
97年01月 |
朝代大第 |
| 97年08月 |
台北人NO.2 |
97年04月 |
雙和星 |
| 97年06月 |
綠中海NO.2 |
97年01月 |
宮琦郡 |
| 97年06月 |
文山敦品 |
96年09月 |
中和雙橡園 |
| 97年06月 |
文山政大 |
96年05月 |
杜樂麗 |
| more.. |
more.. |
| 林口龜山區
|
桃園中壢區
|
| 95年09月 |
亞昕101 |
97年03月 |
藍海大鎮 |
| 95年07月 |
愛登堡 |
96年02月 |
爵士寶邸 |
| 94年11月 |
大都市未來城 |
96年01月 |
一戶一國 |
| 94年06月 |
遠東世界花園 |
94年05月 |
藝墅家 |
| 93年11月 |
哥德花園 |
94年02月 |
竹城御賞 |
| more.. |
more.. |
| 新竹區 |
其他區 |
| 94年10月 |
BJ週記 |
97年01月 |
忠泰生活開發 |
| 94年10月 |
薔薇莊園 |
96年10月 |
東華大學村別墅 |
| more.. |
more.. |
|
|
<%
Set rsforum = Server.CreateObject("ADODB.Recordset")
sql = "Select count(*) as totalmsg From 主留言表 where 分類 = '旅遊'"
rsforum.Open Sql, cnndb,3
qtytravel=rsforum("totalmsg")
rsforum.close
set rsforum=nothing
Set rsforum = Server.CreateObject("ADODB.Recordset")
sql = "Select count(*) as totalmsg1 From 主留言表 where 分類 = '笑話'"
rsforum.Open Sql, cnndb,3
qtyjoke=rsforum("totalmsg1")
rsforum.close
set rsforum=nothing
Set rsforum = Server.CreateObject("ADODB.Recordset")
sql = "Select count(*) as totalmsg2 From 主留言表 where 分類 = '美食'"
rsforum.Open Sql, cnndb,3
qtyfood=rsforum("totalmsg2")
rsforum.close
set rsforum=nothing
Set rsforum = Server.CreateObject("ADODB.Recordset")
sql = "Select count(*) as totalmsg3 From 主留言表 where 分類 = '兩岸房產'"
rsforum.Open Sql, cnndb,3
qtyestate=rsforum("totalmsg3")
rsforum.close
set rsforum=nothing
Set rsforum = Server.CreateObject("ADODB.Recordset")
sql = "Select count(*) as totalmsg4 From 主留言表 where 分類 = '購物'"
rsforum.Open Sql, cnndb,3
qtyeshop=rsforum("totalmsg4")
rsforum.close
set rsforum=nothing
Set rsforum = Server.CreateObject("ADODB.Recordset")
sql = "Select count(*) as totalmsg5 From 主留言表 where 分類 = '拍賣'"
rsforum.Open Sql, cnndb,3
qtyeauction=rsforum("totalmsg5")
rsforum.close
set rsforum=nothing
Set rsforum = Server.CreateObject("ADODB.Recordset")
sql = "Select count(*) as totalmsg6 From 主留言表 where 分類 = '心情抒發'"
rsforum.Open Sql, cnndb,3
qtyemotion=rsforum("totalmsg6")
rsforum.close
set rsforum=nothing
%>
| 台屋網 |
|
|
|
|
|
|
|
|
|
