<%@ CODEPAGE = "936" %> 香港社會福利服務從業員協會
<% set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,Putman,addtime from News where Putout=true and Hot=true ORDER BY id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<5 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,8)&"..." %>
" title=<%=rs("Newtitle")%>><%=Newtitle%>   <%=rsp("addtime")%>
<%count=count+1 rs.movenext loop %>
更多...      
 
<% idd=trim(request.QueryString("id")) idd=101 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<5 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...      
<% idd=trim(request.QueryString("id")) idd=107 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<5 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...      
<% idd=trim(request.QueryString("id")) idd=102 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<10 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...      
<% idd=trim(request.QueryString("id")) idd=103 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<10 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...      
<% idd=trim(request.QueryString("id")) idd=105 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<5 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...      
<% idd=trim(request.QueryString("id")) idd=108 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<5 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...      
<% idd=trim(request.QueryString("id")) idd=106 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<10 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...      
<% idd=trim(request.QueryString("id")) idd=104 set rs=server.createobject("adodb.recordset") sql="select id,Newtitle,hot from News where TreeID like '%"&idd&"%' and Putout=true order by id desc" rs.open sql,conn,1,3 count=0 do while not rs.eof and count<5 Newtitle=rs("Newtitle") if len(Newtitle)>30 then Newtitle=left(Newtitle,30)&"..." %>
<% HotString = "" If rs("hot") = "True" Then HotString = "" Else HotString = "" End If %> " ><%=Newtitle%>   <%=HotString%>
<%count=count+1 rs.movenext loop %>
更多...