<%
Dim pic_BoardID,topStrLen,conlen
pic_BoardID = 0 '设置调用版块首帖图文,0表示论坛首帖图文,
topStrLen = 26 '标题显示长度
conlen = 100 '显示内容文本的长度
%>
 		<table border=0 cellpadding=5 cellspacing=1 width="740" bgcolor=<%=DEF_BBS_DarkColor%> class=TBone align=center>
			<tr bgcolor=<%=DEF_BBS_LightDarkColor%> >
			<td class=TBHead colSpan=2><img src=images/blank.gif width=2 height=3 colspan=16><br><b><font color=ffffff class=HeadFont>今日头条:</font> </td>
			</tr>
			<tr>
			<td width="50%" class=TBBG9 valign=top>
			<%
			Dim TOPID,TOPTitle,TOPConte,TOPBID,srcpos,imgpos,srcend,imgsrc,tmppos
			If pic_BoardID = 0 Then
				TOPID = con.execute("select TOP 1 ID from LeadBBS_Topic  Order by ID DESC" )(0)
			Else
				TOPID = con.execute("select TOP 1 ID from LeadBBS_Topic Where BoardID=" & pic_BoardID & " Order by RootID DESC" )(0)
			End If
			TOPBID = con.execute("Select BoardID from LeadBBS_Announce where ID = " & TOPID)(0)
			TOPTitle = con.execute("Select Title from LeadBBS_Announce where ID = " & TOPID)(0)
			If Len(TOPTitle) > topStrLen/2 Then
			If StrLength(TOPTitle) > topStrLen Then
				TOPTitle = LeftTrue(TOPTitle,topStrLen - 3) & "..."
			End If
	       		End If

			
			TOPConte = con.execute("Select PrintContent from LeadBBS_Announce where ID = " & TOPID)(0)
			TOPConte = replace(TOPConte,VbCrLf,"")
			imgpos = instr(TOPConte,"<IMG")
			if imgpos > 0 then
				srcpos = instr(imgpos,TOPConte,"src=")
				srcend = instr(srcpos,TOPConte," ")
				imgsrc = " " & Mid(TOPConte,srcpos,srcend-srcpos)
				imgsrc = replace(imgsrc,"../","")
			End IF
			if instr(TOPConte,"<OBJECT") > 0 then TOPConte = "包含多媒体文件……"
			TOPConte = replace(TOPConte,"<BR>","")
			TOPConte = replace(TOPConte,"<br>","")
			'TOPConte = replace(TOPConte,"<","")
			'TOPConte = replace(TOPConte,">","")
			TOPConte = left(TOPConte,conlen) & "……"
			Response.Write "<B>" & TOPTitle & "</B><HR size=1>"
			Response.Write "<A HREF=announce/announce.asp?BoardID=" & TOPBID & "&Aupflag=1&Anum=1&id=" & TOPID & ">"
			if imgsrc = "" then 
				Response.Write TOPConte
			Else
				Response.Write "<img "& imgsrc & " width=200 height=150 align=center border=0>"
				
			End If
			Response.Write "</A>"
			%>
			</td>
			<td width="50%" class=TBBG9>
			<!-- 下面调用最新主题,你可以调用其它内容 -->
			<script language=javascript src=other/article/topic.asp?TORA=1&StrLen=32&STime=0&Hits=1></script>

			</td>
		<tr>
		</table>
<%
	If GBL_TableBottomString <> "" Then
		%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><%
	End If

%>