 |
|
|
 |
 |
|
|
| |
| 調查主題 | 公布時間 | 調查結果下載 |
<%
''//列出最近的１５本．每頁顯示５本 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 = "![]() "
%>
| <%=sNew%><%=sSubject%> |
<%=sPublishDate%> |
<%=sDownLoad%> |
<%
oRS.MoveNext
if oRS.eof then exit for
Next
%>
| Page：
<%
For i = 1 to iAllPage
if i<>iPage then
Response.write "" & i & ""
else
Response.write i
end if
if i
|
|
|
| |
|
|
<%
''//列出最近的１期的簡介
''//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 "| | " & sSubject & " | | "
Response.write "| | "
Response.write Replace(sShortContent,vbcrlf,"
")
Response.write " | | " & sDownLoad & " | "
Response.write " | "
end if
%>
| |
|
|
 |
| |
|
|
| |
有關調查研究各項需求、諮詢或服務，歡迎與我們聯絡！
電話：（02）2517-3688 #622 張小姐
傳真：（02）2517-6275
地址： 104台北市松江路93巷1號2樓
Email： gvsrc@cwgv.com.tw
網址： www.gvm.com.tw
|
|
|
 |
 %>.<%=month(now) %>.gif)
