谁能帮我看看下面的ASP是什么意思

Question

Function ShowTopicList(DataArray,IsShowColumn,IsShowTime,TitleLen)
Dim TempStr
Dim i

TempStr="<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""98%"" align=""center"">"
For i=0 To UBound(DataArray,2)
TempStr=TempStr&"<tr>"
TempStr=TempStr&"<td height=""22""> "
If DataArray(7,i) Then
TempStr=TempStr&"<img src=""pic/article_ontop.gif"" alt=""推荐文章"" border=0>"
Else
If DataArray(6,i) Then
TempStr=TempStr&"<img src=""pic/article_elite.gif"" alt=""图片文章"" border=0>"
Else
TempStr=TempStr&"<img src=""pic/article_common.gif"" alt=""普通文章"" border=0>"
End If
End If
If CBool(IsShowColumn) Then
TempStr=TempStr&" [<a href=""list.asp?classid="&DataArray(1,i)&""">"&DataArray(2,i)&"</a>]"
End If
TempStr=TempStr&" <a href=""Article.asp?articleid="&DataArray(0,i)&""" title="""&HTMLTitle(DataArray(3,i))&""" target=""_blank"">"
TempStr=TempStr&TitleAddColor(DataArray(4,i),CutTitle(HTMLTitle(DataArray(3,i)),TitleLen))
TempStr=TempStr&"</a>"
If CheckTitleTime(DataArray(5,i)) Then TempStr=TempStr&" <img src=""pic/new.gif"" alt=""新文章"" align=""absmiddle"">"
If CBool(IsShowTime) Then TempStr=TempStr&" <font color=aaaaaa>"&Month(DataArray(5,i))&"/"&Day(DataArray(5,i))&"</font>"
TempStr=TempStr&"</td>"
TempStr=TempStr&"</tr>"
Next
TempStr=TempStr&"</table>"

ShowTopicList=TempStr
End Function

这应该是在新文章后加一个图片NEW，但怎么修改NEW的时间？

Answer 1

传进来的参数就有时间
调用这个函数的时候传递进新的实践。
根据这句
If CBool(IsShowTime) Then TempStr=TempStr&" <font color=aaaaaa>"&Month(DataArray(5,i))&"/"&Day(DataArray(5,i))&"</font>"

说明 Day(DataArray(5,i)) 存放了时间，你找调用这个函数的地方 试试换下时间。

Answer 2

这是个函数，调用这个函数的时候设个时间就OK了