<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.open "Driver={SQL Server};Server=SERVER08;UID=user_web;PWD=724;Database=bookzone" Set rs=Server.CreateObject("ADODB.RecordSet") SQL="Select * from event_usrdata where event='123' order by ser desc" rs.open SQL,conn,3,3 rs.PageSize=10 cPage=1 if Not rs.eof then if not isTrulyNumeric(Trim(request("pg"))) then cpage=1 else cpage=Trim(Request("pg")) end if if cint(cpage)<1 then cpage=1 end if if cint(cpage)>rs.Pagecount then cpage=rs.pagecount end if rs.AbsolutePage=cPage i=1 bgcolor_str = "" record_count = rs.recordcount ii = record_count - (cpage - 1) * 10 %> <% Do while Not rs.eof and i<=rs.PageSize %> <% rs.MoveNext:i=i+1:ii=ii-1 Loop Else %> <% end if %> <% if rs.pagecount>0 then %> <% end if %>
<%=ii%>

美食報馬仔：<%=rs("name")%>

 <% if rs("address") <> "" and rs("address") <> "http://" then %>" target="_blank" class="type-12-glay"><% end if %>

<%=rs("comment")%>
 

目前尚無任何資料!!!!
 
<% if (cpage - 1) > 0 then %>上一頁<% end if %> <% for i=1 to rs.pagecount %> <%if i=cint(cpage) then response.write"" & i & "" else response.write "｜" & i & "｜" end if%> <%Next%> <%if cint(cpage)< rs.pagecount then response.write "下一頁" end if%>
 
   
 
  姓　　　名：
  內　　　容：
  部落格連結：
  輸入右側驗證碼：
 
 
 
  <% Set cn_gvm=Server.CreateObject("ADODB.Connection") cn_gvm.Open("Driver={SQL Server};Server=Server08;UID=user_web;PWD=724;Database=gvm") sql_top = "SELECT TOP 10 * FROM taiwan_trip_20080718 WHERE Candidate LIKE 'F%' ORDER BY Candidate_Count DESC" Set rs_top = cn_gvm.execute(sql_top) i = 0 Do While not rs_top.eof i = i+1 %> <% rs_top.movenext loop rs_top.close() set rs_top = nothing cn_gvm.close() set cn_gvm = nothing %>
<% if i = 1 then %><% end if %> <%=i%> <% if rs_top("Candidate") = "F01" then Response.Write("台北縣") end if if rs_top("Candidate") = "F02" then Response.Write("台北市") end if if rs_top("Candidate") = "F03" then Response.Write("桃園縣") end if if rs_top("Candidate") = "F04" then Response.Write("新竹縣") end if if rs_top("Candidate") = "F05" then Response.Write("新竹市") end if if rs_top("Candidate") = "F06" then Response.Write("苗栗縣") end if if rs_top("Candidate") = "F07" then Response.Write("臺中縣") end if if rs_top("Candidate") = "F08" then Response.Write("臺中市") end if if rs_top("Candidate") = "F09" then Response.Write("彰化縣") end if if rs_top("Candidate") = "F10" then Response.Write("南投縣") end if if rs_top("Candidate") = "F11" then Response.Write("嘉義縣") end if if rs_top("Candidate") = "F12" then Response.Write("臺南縣") end if if rs_top("Candidate") = "F13" then Response.Write("雲林縣") end if if rs_top("Candidate") = "F14" then Response.Write("嘉義市") end if if rs_top("Candidate") = "F15" then Response.Write("臺南市") end if if rs_top("Candidate") = "F16" then Response.Write("高雄縣") end if if rs_top("Candidate") = "F17" then Response.Write("高雄市") end if if rs_top("Candidate") = "F18" then Response.Write("屏東縣") end if if rs_top("Candidate") = "F19" then Response.Write("宜蘭縣") end if if rs_top("Candidate") = "F20" then Response.Write("花蓮縣") end if if rs_top("Candidate") = "F21" then Response.Write("臺東縣") end if if rs_top("Candidate") = "F22" then Response.Write("澎湖縣") end if if rs_top("Candidate") = "F23" then Response.Write("金門縣") end if if rs_top("Candidate") = "F24" then Response.Write("連江縣") end if if rs_top("Candidate") = "F25" then Response.Write("基隆市") end if %> <%=rs_top("Candidate_Count")%>票
 
 
 
定價：198元
特價：129元
 
 
 
Copyright c 1999~2008 天下遠見出版股份有限公司. All rights reserved. 讀者服務部電話：(02)26620012 時間：週一∼週五 9:00∼17:00 服務信箱：service@cwgv.com.tw
<% '=================================================== Function isTrulyNumeric( intToCheck ) '=================================================== intToCheck = Trim( intToCheck ) If Len( intToCheck ) = 0 OR IsEmpty( intToCheck ) Then isTrulyNumeric = False Else Dim c, i isTrulyNumeric = True For i = 1 To Len( intToCheck ) c = Asc( Mid( intToCheck, i, 1 ) ) If c <= 44 OR c > 57 OR c = 47 Then isTrulyNumeric = False Exit For End If Next End If End Function %>