<% on error resume next dirs = "../" CatID = SafeRequest("CatID") if CatID = "" then CatID = 100 CatD = SafeRequest("CatD") if CatD = "" then CatD = "l" %> 最新訊息
      <%=Cascade%>
<% SYear = Request("SYear") FYear = Year(Now()) if SYear = "" then SYear = FYear SDate = SYear & "/1/1" %>

<% 'sql = "select * from tblGroup where ProjectTime >= '" & SDate & "' and ProjectTime < '" & dateadd("yyyy", 1, SDate) & "' and onLine = 'y' and CatID = " & CatID & " order by OrderNo desc " sql = "select * from tblGroup where onLine = 'y' and CatID = " & CatID & " order by OrderNo desc " set rs = server.CreateObject("ADODB.Recordset") Set rs = conn.Execute(sql) i = 1 Do Until rs.EOF if clng(Trim(rs("PID") & " ")) <> 0 then sql_rn = "select FilePath from tblPost where PID = " & rs("PID") set rn = server.CreateObject("ADODB.Recordset") Set rn = conn.Execute(sql_rn) if not rn.EOF then rfilepath = rn("filepath") end if else rfilepath = "http://www.lopon.org.tw/showgroup.asp?CatID=4&CatD=l&GID=" & rs("GID") end if %> <% rs.MoveNext i = i + 1 Loop %>
">
•<%=rs("title")%>  <%=rs("ProjectTime")%> <% if Trim(rs("EndTime") & " ") <> "" then if rs("EndTime") > rs("ProjectTime") then response.Write("~" & Mid(rs("EndTime"),6, 5)) elseif rs("EndTime") < rs("ProjectTime") then response.Write(" 起") end if End if %>
<% '顯示圖片 if Trim(rs("abimg") & " ") <> "" then addName = UCase(Right(rs("abimg"), 3)) if addName = "JPG" or addName = "GIF" or addName = "PNG" then %> " style="background-position:center;background-repeat:no-repeat ">
" src="http://www.lopon.org.tw/images/spacer.gif" width="296" height="196">
<% js = js & "window.document.images[""abimg_" & i & """].height=imgobj1_" & i & ".height-4;" js = js & "window.document.images[""abimg_" & i & """].width=imgobj1_" & i & ".width-4;" else response.Write(rs("abimg")) end if end if %> 		<% '顯示相關連結 sql_rn = "select p.FilePath, p.PID, p.Subject, p.CatID from tblPost p, tblGP g where p.PID = g.PID and g.GID = " & rs("GID") & " and p.onLine = 'y' order by g.OrderNo " set rn = server.CreateObject("ADODB.Recordset") Set rn = conn.Execute(sql_rn) if not rn.EOF then %> <% end if %>
<%=rs("Abstract")%>
<% Do Until rn.EOF response.Write("") Loop %>
• " & rn("Subject") & "") rn.MoveNext response.Write("
回上一頁｜回頁首