ourString = "2008-8-28,16383"
ourString = Split(ourString,",")
DayDiff = DateDiff("d","2008-8-28 19:49:28",ourString(0))
'msgbox DayDiff
If DayDiff = 0 Then 
'是今天数据
   StringDay = "今天"
End If
If DayDiff = -1 Then 
'是昨天数据
   StringDay = "昨天"
End If
If DayDiff = -2 Then 
'是前天数据
   StringDay = "前天"
End If
ServerNow = "2008-8-28 19:49:28"
ServerWeekdayName =  WeekdayName(Weekday(ServerNow), False, vbUseSystem)
ServerYear   =  Year( ServerNow )
ServerMonth  =  Month( ServerNow )
ServerDay    =  Day( ServerNow )

showHTMLString = ""
showHTMLString = showHTMLString & "<table width=80% border=0 align=center cellpadding=0 cellspacing=0 class=""white h150"">" & vbCrLf
showHTMLString = showHTMLString & "<tr>" & vbCrLf
showHTMLString = showHTMLString & "<td align=left class=show2><strong>" & ServerYear & "年&nbsp;" & ServerMonth & "月" & ServerDay & "日&nbsp;" & ServerWeekdayName & "</strong></td>" & vbCrLf
showHTMLString = showHTMLString & "</tr>" & vbCrLf
showHTMLString = showHTMLString & "<tr>" & vbCrLf
showHTMLString = showHTMLString & "<td align=left class=show2><strong>" & StringDay & "本馆接待观众：</strong></td>" & vbCrLf
showHTMLString = showHTMLString & "</tr>" & vbCrLf
showHTMLString = showHTMLString & "<tr>" & vbCrLf
showHTMLString = showHTMLString & "<td align=right valign=middle>" & vbCrLf
  stringNum = ourString(1) & ""
  For i=1 To Len( stringNum )
    showHTMLString = showHTMLString & "<img src=image/digi/" & Mid(stringNum,i,1) & ".gif>" & vbCrLf 
  Next
showHTMLString = showHTMLString & "<strong>人次</strong></td>" & vbCrLf
showHTMLString = showHTMLString & "</tr>" & vbCrLf
showHTMLString = showHTMLString & "</table>" & vbCrLf
If Len(StringDay)>0 Then 
   document.write( showHTMLString )
End If