<% ''============================================ ''FsNull 回傳字串值,若空白或Null,回傳"" ''============================================ response.Redirect("http://www.gvsrc.net.tw/dispPageBox/GvsrcHP.aspx?ddsPageID=GVSRCCHT") response.End() Function FsNull(sText) if isnull(sText) then FsNull="" else FsNull=Trim(sText) end if End Function ''============================================ ''FiNull 回傳整數值,若空白或Null,回傳0 ''============================================ Function FiNull(sText) if isnull(sText) then FiNull=0 else if cstr(sText)="" then FiNull=0 else if isNumeric(sText) then FiNull=CLng(sText) else FiNull=0 end if end if end if End Function Function FsDate(sDate) if isdate(sDate) then FsDate = year(sDate) & "年" & month(sDate) & "月" & day(sDate) & "日" else FsDate="" end if End Function %> 遠見雜誌民調中心
當月遠見雜誌
 
天下文化書坊
天下遠見讀書俱樂部
小天下
30雜誌
哈佛商業評論全球中文版
人文空間
English Version
閱讀民調結果PDF檔案請先下載Adobe Reader
  <% ''//列出最近的1期的簡介 ''//Status: 0,下線/1,測試/2,上線 ''//Lang : 1,中文/2,英文 ''//Kind : 1,一般調查/2,民心指數 iPage=FiNull(Request("Page")) sToday=Cstr(Year(Now)) & "/" & Cstr(Month(Now)) & "/" & Cstr(Day(Now)) if Trim(Request.ServerVariables("REMOTE_ADDR"))="202.3.167.67" then sSQL="Select Top 1 Sid,Subject,ShortContent,PdfPath From gvsrc where Lang='1' and (Status='1' or Status='2') and Kind='1' and PublishDate<='" & sToday & "' order by PublishDate desc" else sSQL="Select Top 1 Sid,Subject,ShortContent,PdfPath From gvsrc where Lang='1' and Status='2' and Kind='1' and PublishDate<='" & sToday & "' order by PublishDate desc" end if oRS.Open sSQL, oCn, 3 if Not oRS.eof then sSubject = FsNull(oRs("Subject")) sShortContent = FsNull(oRs("ShortContent")) sSid = FsNull(oRs("Sid")) sPdfPath = "http://www.gvm.com.tw/gvsrc/" & FsNull(oRs("PdfPath")) sDownLoad = "...(詳細調查結果請下載PDF)     " sShortContent=sShortContent else sShortContent="" end if oRS.close oCn.close set oRS=nothing set oCn=nothing if sShortContent<>"" then Response.write "" Response.write "" Response.write "" end if %>
 
  <% ''//列出最近的15本.每頁顯示5本 20060825 iPage=FiNull(Request("Page")) sToday=Cstr(Year(Now)) & "/" & Cstr(Month(Now)) & "/" & Cstr(Day(Now)) ''//Status: 0,下線/1,測試/2,上線 ''//Lang : 1,中文/2,英文 ''//Kind : 1,一般調查/2,民心指數 if Trim(Request.ServerVariables("REMOTE_ADDR"))="202.3.167.67" then sSQL="Select Sid,PdfPath,WordPath,Subject,PublishDate From gvsrc where Lang='1' and ( Status='1' or Status='2') and Kind='1' and PublishDate<='" & sToday & "' order by PublishDate desc" else sSQL="Select Sid,PdfPath,WordPath,Subject,PublishDate From gvsrc where Lang='1' and Status='2' and Kind='1' and PublishDate<='" & sToday & "' order by PublishDate desc" end if dim oCn,oRS 'response.write ssql 'response.end set oCn=Server.CreateObject("ADODB.Connection") set oRs=Server.CreateObject("ADODB.Recordset") oCn.Open "Driver={SQL Server};Server=server08;UID=user_web;PWD=724;Database=gvm" oRS.Open sSQL, oCn, 3 oRS.PageSize=5 iAllPage=oRS.PageCount if iPage<1 then iPage=1 if iPage>iAllPage then iPage=iAllPage oRS.absolutepage=iPage For i=1 to 5 if i=1 and iPage=1 then sNew="" else sNew="" end if sSid = FsNull(oRs("Sid")) sSubject = FsNull(oRs("Subject")) sPublishDate = FsDate(oRs("PublishDate")) sPdfPath = "http://www.gvm.com.tw/gvsrc/" & FsNull(oRs("PdfPath")) sDownLoad = "" %> <% oRS.MoveNext if oRS.eof then exit for Next %>
調查主題公布時間調查結果下載
<%=sNew%><%=sSubject%> <%=sPublishDate%> <%=sDownLoad%>
Page: <% For i = 1 to iAllPage if i<>iPage then Response.write "" & i & "" else Response.write i end if if i
 
     
 " & sSubject & " 
 " Response.write Replace(sShortContent,vbcrlf,"
") Response.write "
" & sDownLoad & "
 
     


     
 

有關調查研究各項需求、諮詢或服務,歡迎與我們聯絡!
電話:(02)2517-3688 #622 張小姐
傳真:(02)2517-6275
地址: 104台北市松江路93巷1號2樓
Email: gvsrc@cwgv.com.tw
網址: www.gvm.com.tw