编辑器/阅读器

开发平台：

C#

UpdateCodeInPage.asp：源码内容

							﻿<%
Function ExportMsg(ID,Number)
Select Case ID
Case "1"
   StrTop="更新进度:"
   StrBot="!"
  Select Case Number
  Case 1
  ExportMsg="获取新的更新列表"
  Case 2
  ExportMsg=StrTop&"还有"&UserUpdateIntervalCode-DateDiff("s",Application(SessionStr&"LastItemUpdateTime"),now())&"秒"&StrBot
  Case 3
  ExportMsg=StrTop&"还有"&FREQ-DateDiff("s",Application(SessionStr&"LastUpdateTime"),now())&"秒"&StrBot
  Case 4
  ExportMsg=StrTop&"完成"&Application(SessionStr&"UserUpdateUpdatePercentage")&"%"&StrBot
  End Select
Case "2"
   StrTop="<table style='border:#F0F0F0 solid 1px;width:150px;' cellspacing='0' cellpadding='0'><tr><td>"
   StrBot="</td></tr></table>"
  Select Case Number
  Case 1
  ExportMsg=StrTop&"<table style='background-color:#000000;' width='100%'></table>"&StrBot
  Case 2
  ExportMsg=StrTop&"<table style='background-color:#FF3300;' width="&DateDiff("s",Application(SessionStr&"LastItemUpdateTime"),now())/UserUpdateIntervalCode*100&"%' cellspacing='0' cellpadding='0'><tr><td></td></tr></table>"&StrBot
  Case 3
  ExportMsg=StrTop&"<table style='background-color:#33FF00;' width='"&DateDiff("s",Application(SessionStr&"LastUpdateTime"),now())/FREQ*100&"%'  cellspacing='0' cellpadding='0'><tr><td></td></tr></table>"&StrBot
  Case 4
  ExportMsg=StrTop&"<table style='background-color:#0000FF;' width='"&Application(SessionStr&"UserUpdateUpdatePercentage")&"%'  cellspacing='0' cellpadding='0'><tr><td></td></tr></table>"&StrBot
  End Select
End Select
End Function
%>

						