UpdateCodeInPage.asp
上传用户:rblchem
上传日期:2022-04-27
资源大小:1941k
文件大小:2k
- <%
- 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
- %>