沈阳民族艺术学校好吗:动网博客高手请进

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 17:25:02

大家好,我想把下面调用动网博客相册图片的程序改为调用动网博客每热评调用代码要怎么改啊?




<%

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

Set DvBoke_Sys = New Cls_DvBokeIndex

intRecord = DvBoke.Checkstr(Trim(Request.QueryString("num")))
If IsEmpty(intRecord) Or intRecord = "" Then
intRecord = 6
End If

rows = DvBoke.Checkstr(Trim(Request.QueryString("row")))
If IsEmpty(rows) Or rows = "" Then
rows = 6
End If

TopNewTopicHtml ="<td align=""center"">" & _
" <a href=""/bbs/boke.asp?Userid_{$UserID}.showtopic.{$TopicID}.html"" target=""_blank""><img src=""{$ViewPhoto}"" width=""100"" height=""90"" border=""0""></a><br>" & _
"<a href=""/bbs/boke.asp?userid={$UserID}"" target=""_blank"">{$PostUser}</b></td>"

DvBoke_Sys.GetNode = "newphotos"
DvBoke_Sys.SqlStr = "Select Top "&intRecord&" ID,BokeUserID,UserID,UserName,CatID,sType,TopicID,PostID,IsTopic,Title,FileName,sFileName,FileType,FileSize,FileNote,DownNum,ViewNum,DateAndTime,PreviewImage,IsLock From [Dv_Boke_Upfile] where IsLock<3 and FileType=1 and Stype=4 Order By DateAndTime desc "
DvBoke_Sys.GetData()

'=======================================================================
' 组成最新文章的列表代码
'=======================================================================
i=0
For Each ChildNode In DvBoke_Sys.Nodes.selectNodes("rs:data/z:row")
i=i+1
ViewFile = ChildNode.getAttribute("previewimage")
If ViewFile="" or IsNull(ViewFile) Then
ViewFile = DvBoke.System_UpSetting(19) & ChildNode.getAttribute("filename")
End If
ViewFile = ViewFile
TempHtml = TopNewTopicHtml
Title = ChildNode.getAttribute("title")
If Len(Title)>16 Then
Title = Left(Title,16) &"..."
ElseIf Title="" Then
Title = "..."
End If
Title = Dvbbs.HTMLEncode(Title)

TempHtml = Replace(TempHtml,"{$ViewPhoto}",ViewFile)
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")))
TempStr = TempStr & TempHtml
if (i mod rows)=0 then
TempStr=TempStr & "</tr><tr>"
end if
Next
TempStr = "<table cellSpacing=""0"" cellPadding=""2"" border=""0"" width=""98%""><tr>" & TempStr
TempStr = TempStr & "</tr></table>"
Set DvBoke_Sys = Nothing
Set DvBoke = Nothing
Response.Write TempStr
%>

动网博客高手请进动网论坛的问题,高手请进~! 动网论坛注册问题高手请进熟悉动网的高手请进急！！博客高手请进! 博客高手请进来～～博客高手请进来～～博客高手请进新浪博客高手请进急！急！急!动网论坛的问题,高手请进!