		<%
Public sub StrCount2(Str)
		Counter = 0
		z=0
		For I = 1 To Len(Trim(Str))
			If Asc(Mid(Str, I, 1))<0 Then
				Counter = Counter + 2
			Else
			Counter = Counter + 1
			
	
			end if
			if counter >= 26 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%><%
									
									set rsss=server.createobject("adodb.recordset")
    sqlss="select top 12 * from [news] where class=1 order by adddate desc"
        rsss.open sqlss,conn,1,1
news_cont=0
%>
						<table cellPadding="2" width="100%" border="0" cellspacing="4">
													<tr>
														<td  ></td>
													</tr>	<%do while not rsss.eof
										news_cont=news_cont+1
										%>
													<tr>
														<td >
														 &nbsp;	<a title="<%=rsss("newsname")%><br>添加日期:<%=rsss("adddate")%><br>浏览次数:<%=rsss("viewcount")%>" href="../news/list.asp?id=<%=rsss("newsid")%>" ><%StrCount2(rsss("newsname"))%></a> </td>
													</tr>
																<%
										rsss.movenext
										if news_cont >=9 then exit do
										
										loop
										rsss.close
										set rsss=nothing
							
										%>
												</table>