| |
|
<%
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
%>
|
|
|
| |
|
| |
房產新聞
◎陸資來台買不動產 停留期限放寬(2008/02/18)
◎房仲業者調查 愛侶合購愛巢 男看價格女看環境(2008/02/18)
◎網路找屋比重 增至83％(2008/02/18)
◎彰化鹿港金和興街天公伯 身價不凡(2008/02/18)
◎建商前十大洗牌 台中建商出頭(2008/02/14)
◎土增稅一月衰退一成六(2008/02/14)
◎公設地變更未申報 改為免罰(2008/02/14)
◎台北市社子島為彌補禁建土地稅減30%(2008/01/30)
|
| 中山大同區 |
中正萬華區 |
| 97年07月 |
貴朵 |
97年08月 |
首耀 |
| 97年07月 |
金磚密碼 |
97年06月 |
上冠金點 |
| 97年07月 |
台北晶冠 |
97年06月 |
台大辰市 |
| 97年01月 |
金山 e01 |
97年05月 |
古亭棧 |
| 96年11月 |
永樂第 |
97年04月 |
麗植園 |
| 96年10月 |
時尚之星 |
97年02月 |
萬囍 |
| more.. |
more.. |
| 大安松山信義區 |
士林石牌北投區 |
| 97年02月 |
仁愛御璽 |
97年05月 |
雲崗 |
| 96年11月 |
仁愛綠築 |
97年05月 |
真工 |
| 96年11月 |
大安麗璞 |
97年04月 |
欣陽綠築 |
| 96年11月 |
仁愛綠築 |
97年03月 |
麒麟門 |
| 96年10月 |
信義尊邸 |
97年03月 |
天畝 |
| 96年09月 |
信義臻品 |
97年03月 |
亞麗璞石 |
| more.. |
more.. |
| 大直內湖東湖區 |
關渡竹圍淡水三芝區 |
| 97年08月 |
JOJO
NO.2 |
97年08月 |
皇后之星 |
| 97年08月 |
將進酒 |
97年06月 |
河合吉景 |
| 97年05月 |
忠泰大美 |
97年05月 |
八里之星 |
| 97年05月 |
贊泰安永 |
97年06月 |
京兆穩 |
| 97年05月 |
陽光四季 |
97年06月 |
日光大道 |
| 97年05月 |
璞園水羨 |
97年04月 |
天生贏家 |
| 97年05月 |
筑丰美境 |
97年03月 |
藝大much |
| 97年04月 |
蘇黎世NO2 |
97年03月 |
心航線 |
| 97年03月 |
遠雄藝朗 |
97年03月 |
四季樂章 |
| more.. |
more.. |
| 三重蘆洲區 |
板橋土城區 |
| 97年06月 |
成功導邸 |
97年05月 |
公園賞 |
| 97年05月 |
捷運金品 |
97年05月 |
麗緻米蘭 |
| 97年04月 |
合康太璞 |
97年03月 |
臻美 |
| 96年12月 |
山河悅 |
96年09月 |
格林珍寶NO2 |
| 96年11月 |
馬德里 |
96年07月 |
風光 |
| 96年09月 |
巴黎羅丹 |
96年06月 |
榮耀交響曲 |
| 95年07月 |
巴黎莫內 |
96年03月 |
格林珍寶 |
| 95年09月 |
合康翠堤 |
96年01月 |
金富天廈 |
| more.. |
more.. |
| 樹林鶯歌三峽區 |
南港汐止區 |
| 97年03月 |
皇晶鑽 |
97年08月 |
觀止 |
| 96年11月 |
銘麒桂冠 |
97年06月 |
中研臻藏 |
| 95年12月 |
台北新墅 |
97年05月 |
華鎮生活家 |
| 95年11月 |
豐耘 |
97年05月 |
向陽 |
| 95年05月 |
天地賞NO6 |
97年04月 |
風範 |
| 95年12月 |
台北新墅 |
96年12月 |
和風麗緻 |
| 94年12月 |
紫京城
|
96年08月 |
太平洋森之丘 |
| more.. |
more.. |
| 新莊五股泰山區 |
五七八堵基隆區 |
| 97年01月 |
富麗旺 |
97年06月 |
精心園 |
| 96年10月 |
僑星福華 |
97年05月 |
星光翡翠 |
| 96年10月 |
台北入口 |
97年05月 |
法國小城 |
| 96年01月 |
明志清靜 |
97年05月 |
普羅旺世 |
| 96年01月 |
聯邦企業廣場 |
97年04月 |
名軒臻藝墅 |
| more.. |
more.. |
| 深坑文山新店區 |
中永和區 |
| 97年08月 |
台北人NO2 |
97年08月 |
頂溪臻品 |
| 97年06月 |
綠中海NO2 |
97年05月 |
TONY |
| 97年06月 |
文山敦品 |
97年05月 |
高爾花園 |
| 97年06月 |
文山政大 |
97年04月 |
雙和星 |
| 97年04月 |
馥隄 |
97年01月 |
朝代大第 |
| 97年04月 |
金璽 |
97年01月 |
宮琦郡 |
| 97年03月 |
舞蝶迷香徑 |
96年09月 |
中和雙橡園 |
| 96年11月 |
山研美墅 |
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
%>
|
|
|
|
