<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="Boke/config.asp"-->
<!--#include file="Boke/Cls_System.asp"-->
<%
'=======================================================================
'      <SCRIPT LANGUAGE=JavaScript src=TopNewBoke.asp?num=10 ></ SCRIPT>
'      num 表示指定返回的行数 
'=======================================================================

Dim DvBoke_Sys
Dim Title,LastPostTime,iLastPostTime
Dim Nodes,ChildNode
Dim TempHtml,TempStr
Dim intRecord,TopNewTopicHtml

Set DvBoke_Sys = New Cls_DvBokeIndex

'=======================================================================
' 指定返回的行数
'=======================================================================
intRecord = DvBoke.Checkstr(Trim(Request.QueryString("num")))
If IsEmpty(intRecord) Or intRecord = "" Then
	intRecord = 10
End If

'=======================================================================
'下面代码是使用系统原来的最新文章的格式。
'DvBoke.LoadPage("index.xslt")
'TopNewTopicHtml = DvBoke.Page_Strings(22).text
'这里使用重新定义的。
'=======================================================================
TopNewTopicHtml = "<tr>" & _
"<td width=""1%"" align=""left"">" & _
"<td width=""99%""><a href=""/bbs/boke.asp?userid={$UserID}"" target=""_blank"">[<b>{$PostUser}</b>]</a></td>" & _
"</tr>"

'=======================================================================
' 读取最新文章的数据，intRecord 就是返回的行数
'=======================================================================
DvBoke_Sys.GetNode = "topiclist"
DvBoke_Sys.SqlStr = "Select Top " & intRecord & " TopicID,UserID,UserName,Title,LastPostTime From [Dv_Boke_Topic] where sType<>2 and IsLock<3 Order By Hits desc "
DvBoke_Sys.GetData()

'=======================================================================
' 组成最新文章的列表代码
'=======================================================================
For Each ChildNode In DvBoke_Sys.Nodes.selectNodes("rs:data/z:row")
	TempHtml = TopNewTopicHtml
	Title = ChildNode.getAttribute("title")
	If Len(Title)>15 Then
		Title = Left(Title,15) &""
	ElseIf Title="" Then
		Title = ""
	End If
	Title = Dvbbs.HTMLEncode(Title)
	LastPostTime = ChildNode.getAttribute("lastposttime")
	iLastPostTime = "20" & Right(Year(LastPostTime),2) & "-"
	If Len(Month(LastPostTime))=1 Then
		iLastPostTime = iLastPostTime & "0" & Month(LastPostTime) & "-"
	Else
		iLastPostTime = iLastPostTime & Month(LastPostTime) & "-"
	End If
	If Len(Day(LastPostTime))=1 Then
		iLastPostTime = iLastPostTime & "0" & Day(LastPostTime)
	Else
		iLastPostTime = iLastPostTime & Day(LastPostTime)
	End If
	
	TempHtml = Replace(TempHtml,"{$TopicID}",ChildNode.getAttribute("topicid"))
	TempHtml = Replace(TempHtml,"{$UserID}",ChildNode.getAttribute("userid"))
	TempHtml = Replace(TempHtml,"{$Title}",Title)
	TempHtml = Replace(TempHtml,"{$PostUser}",Dvbbs.HtmlEncode(ChildNode.getAttribute("username")))
	TempHtml = Replace(TempHtml,"{$LastPostTime}",iLastPostTime)
	
	TempStr = TempStr & TempHtml
Next	
TempStr = "<table cellSpacing=""0"" cellPadding=""2"" border=""0"" width=""100%"">" & TempStr
TempStr = TempStr & "</table>"

'=======================================================================
' 释放对象 
'=======================================================================
Set DvBoke_Sys = Nothing
Set DvBoke = Nothing

'=======================================================================
' 输入JS的内容
'=======================================================================
Response.Write("document.write('" & TempStr & "')")

%>