function cut(str,count1)
count1=cint(count1)
for j=1 to 0
s=mid(str,j,1)
if asc(s)<255 and asc(s)>0 then
count1=count1-1
else
count1=count1-2
end if
if count1<=0 then
cut=mid(str,1,j)
exit function
end if
next
if count1>=0 then
cut=str
end if
end function
function d_cut(str,num,type1)
dim start_i,end_i
start_i=instr(str,"<span")
if start_i<>0 then
end_i=instr(start_i+5,str,">")
if end_i<>0 then
dim spanstr
spanstr=left(str,end_i)
start_i=instr(end_i+1,str,"</span>")
if start_i<>0 then
title=mid(str,end_i+1,start_i-end_i-1)
if type1=1 then
d_cut=title
exit function
end if
title=cut(title,num)
else
title=mid(str,end_i+1)
end if
d_cut=spanstr&title&"</span>"
end if
else
if type1=0 then
d_cut=cut(str,num)
else
d_cut=str
end if
end if
end function
dim w163news
w163news=w163news &"<table>"
set xiubu=conn.execute("select id,art_type from w163art_type where sid=-1 order by pid")
			while not xiubu.eof
					
w163news=w163news &"<tr>"
for i=1 to 2
if  xiubu.eof then
	w163news=w163news &"<td width=50% ></td>"
				else
					
		w163news=w163news &"<td width=563 height=60 valign=top>"
	
w163news=w163news &"<TABLE width=100%   border=0 align=left cellPadding=0 cellSpacing=0>"

w163news=w163news &"<tr>"
w163news=w163news &"<TD width=74% height=20><img src=images/qian.gif>&nbsp;<b>"
w163news=w163news &"<a href=w163.asp?id="
	w163news=w163news & xiubu("id")	
		w163news=w163news &"target=_blank><font color=#cc0000>"
				w163news=w163news & xiubu("art_type")	

							w163news=w163news &"</font></a></b></TD>"
	
								w163news=w163news &" <TD width=26% height=20 align=center>·¢±íʱ¼ä</TD></TR>"
set w163=conn.execute("select top 10 * from w163_new where sid="&id1&" or sid in(select id from w163art_type where sid="&id1&") order by id desc") 
		  do while not w163.eof

				w163news=w163news &"<tr>"
					w163news=w163news &"<TD height=15 vAlign=top bgcolor=#ffffff><img src=images/article_elite.gif width=9 height=15>"
				w163news=w163news &"<a href="

								w163news=w163news & replace(trim(w163("path")),"../","")	
					w163news=w163news &"/"
								w163news=w163news & w163("w163new")	
					w163news=w163news &"target=_blank>"
								w163news=w163news & d_cut(w163("w163newsname"),29,0)	
				w163news=w163news &"</a>&nbsp;</TD>"

									w163news=w163news &"<TD height=15 align=center vAlign=top bgcolor=#ffffff>["

													w163news=w163news & split(w163("adddate")," ")(0)	
				w163news=w163news &"]</TD></TR>"
 w163.movenext
		loop
		w163.close
		set w163=nothing

									w163news=w163news &"</TABLE></td>"
									xiubu.movenext
end if 
next 
wend
	w163news=w163news &"</tr></table>"